R语言：如何绘制多变量同尺度且共享Y轴的箱线图

嘿，我来帮你搞定这个箱线图的问题！你之前尝试的boxplot(var1,var2,data = mydata)没成功，其实是因为base R的boxplot函数在直接传入变量名时，不会自动从data参数指定的数据框里提取变量——它会去全局环境找这两个变量，所以才出问题。下面给你几种简单的实现方式，都能让两个变量的箱线图共享Y轴，放在同一张图里：

Base R 快速实现 #

这两种方法不用额外装包，直接就能用：

方法1：用with()指定数据环境 #

通过with()把mydata设为当前环境，这样函数就能正确识别数据框里的var1和var2：

# 先构造示例数据（你可以替换成自己的mydata）
set.seed(123)
mydata <- data.frame(
  var1 = sample(0:3, 20, replace=TRUE),
  var2 = sample(0:3, 20, replace=TRUE)
)

# 绘制箱线图
with(mydata, boxplot(var1, var2, names=c("变量1", "变量2"), ylab="取值"))

方法2：用cbind()组合变量 #

把两个变量合并成矩阵，boxplot会自动把每一列作为一个分组，同时data参数能正确读取数据框里的变量：

boxplot(cbind(var1, var2), data=mydata, names=c("变量1", "变量2"), ylab="取值")

这两种方法生成的图都会自动共享Y轴，完全符合你的需求。

ggplot2 实现（更美观灵活） #

如果你想要更美观、可定制的可视化效果，可以用ggplot2包，只需要先把数据转成长格式：

library(ggplot2)
library(tidyr)

# 把宽格式数据转成长格式
mydata_long <- pivot_longer(mydata, cols = c(var1, var2), 
                            names_to = "变量名称", values_to = "取值")

# 绘制箱线图
ggplot(mydata_long, aes(x=变量名称, y=取值)) +
  geom_boxplot(fill="#69b3a2") +
  labs(y="取值") +
  theme_minimal()

这种方式的优势是可以轻松调整颜色、主题、添加标注等，扩展性更强。

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