如何用ggplot2包构建含多组交叉对照表的可视化图表

我想用ggplot2把5组交叉对照表的结果做成组合图表，已经创建了包含所有结果的data.frame：

crosswalk <- data.frame(subset(fsdiscDET,, (1:2)),(subset(fsdiscDIS,, 2)), 
(subset(fsdiscANT,, 2)), (subset(fsdiscPSY,, 2)),(subset(fsdiscANPICD,, 2)), 
(subset(fsdiscANPID5,,2)))

# 为crosswalk数据框定义列名
colnames(crosswalk) <- c("SumScore", "ThetaDET", "ThetaDIS","ThetaANT", "ThetaPSY", 
"ThetaANPiCD", "ThetaPID5BF+M")

数据框结构如下：

SumScore    ThetaDET    ThetaDIS     ThetaANT   ThetaPSY   ThetaANPiCD  ThetaPID5BF+M
0               -2           ...          ....
1
2
3
4
5
6
7
8            

示例数据（第一行）：

> dput(head(crosswalk, 1))
structure(list(SumScore = 0L, ThetaDET = -0.880871248855981, 
   ThetaDIS = -0.594351208632866, ThetaANT = -0.463495518249115, 
 ThetaPSY = -0.471562212797643, ThetaANPiCD = -0.850865132469677,
`ThetaPID5BF+M` = -0.91391979254119), row.names = 0L, class = "data.frame") 

我想要创建类似示例图的图表：把SumScore（0到8）作为横轴，所有Theta值放在左侧y轴（取值范围-3到4），多组Theta数据都在这个y轴上展示，该怎么做？

要实现这个需求，核心是先把数据从宽格式转换为长格式，ggplot2更适合处理长格式数据来做分组可视化，具体步骤如下：

1. 加载必要的包 #

确保已安装并加载包含ggplot2和数据转换工具的tidyverse包：

# 未安装则先执行：install.packages("tidyverse")
library(tidyverse)

2. 转换数据格式 #

用pivot_longer将宽格式的crosswalk转换为长格式，方便后续分组绘图：

crosswalk_long <- crosswalk %>%
  pivot_longer(
    cols = -SumScore,  # 排除SumScore列，其余列转为长格式
    names_to = "Theta_Type",  # 新增列，用于标记不同的Theta组别
    values_to = "Theta_Value" # 新增列，存储对应的Theta数值
  )

3. 绘制组合图表 #

用ggplot2绘制点线结合的分组图表（和示例图风格匹配），也可根据需求改为柱状图：

ggplot(crosswalk_long, aes(x = SumScore, y = Theta_Value, color = Theta_Type)) +
  # 绘制分组折线
  geom_line(linewidth = 1) +
  # 添加数据点提升可读性
  geom_point(size = 2) +
  # 固定y轴范围为-3到4，符合需求
  ylim(-3, 4) +
  # 设置坐标轴和图例标题
  labs(
    x = "SumScore",
    y = "Theta 值",
    color = "Theta 组别"
  ) +
  # 选用简洁的经典主题
  theme_classic() +
  # 将图例移至底部，避免遮挡图表
  theme(legend.position = "bottom")

可选调整 #

如果示例图是分组柱状图，只需把geom_line()和geom_point()替换为：

geom_col(position = position_dodge(width = 0.8), width = 0.7)

内容的提问来源于stack exchange，提问作者C K