如何用ggplot2在同一张箱线图中绘制叶长和叶宽两个变量？

你的问题核心是数据格式不匹配——当前数据为宽格式（叶长、叶宽各占一列），而要在同一张图中对比两个变量，需先将数据转换为长格式（合并叶长、叶宽为一列，新增标记列区分变量类型）。

步骤1：转换数据格式 #

使用tidyr包的pivot_longer函数（属于tidyverse生态，推荐使用）将宽数据转为长数据：

# 加载所需包
library(ggplot2)
library(tidyr)

# 你的数据（若从csv读取，替换为你的read.csv代码即可）
data <- structure(list(AORB = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L), levels = c("a", "b"), class = "factor"), 
                       Leaf_length = c(290L,290L, 350L, 300L, 250L, 510L, 450L, 430L, 550L, 1000L), 
                       Leaf_width = c(200L,200L, 280L, 240L, 200L, 190L, 230L, 240L, 250L, 531L)), 
                  row.names = c(NA,-10L), class = "data.frame")

# 转换为长格式
data_long <- pivot_longer(data, cols = c(Leaf_length, Leaf_width), 
                          names_to = "Leaf_Trait", values_to = "Value")

转换后的数据会生成三列：AORB（种群）、Leaf_Trait（标记是叶长还是叶宽）、Value（对应数值），完全适配ggplot2的绘图逻辑。

步骤2：用qplot绘制合并箱线图 #

现在可以直接用qplot将两个变量的箱线图放在同一张图中，通过填充色区分特征：

qplot(x = AORB, y = Value, data = data_long, 
      geom = "boxplot", fill = Leaf_Trait,
      main = "种群a、b的叶长与叶宽对比",
      xlab = "种群", ylab = "数值") +
  scale_fill_discrete(name = "叶片特征", labels = c("叶长", "叶宽")) +
  theme_bw()

可选：用标准ggplot语法自定义图形 #

如果需要更灵活的样式调整，推荐使用标准ggplot语法：

ggplot(data_long, aes(x = AORB, y = Value, fill = Leaf_Trait)) +
  geom_boxplot(width = 0.7, position = position_dodge(0.8)) +
  labs(title = "种群a、b的叶长与叶宽对比箱线图",
       x = "种群", y = "数值",
       fill = "叶片特征") +
  scale_fill_manual(values = c("#4285F4", "#EA4335"), 
                    labels = c("叶长", "叶宽")) +
  theme_minimal()

关键说明 #

• 宽转长是多变量对比图的核心操作，ggplot2的图层系统仅对长数据友好。
• fill参数用于区分不同变量的箱线图，position_dodge可手动调整同种群下两个箱线图的间距，避免重叠。

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