拆分PlantGrowth数据集为3个分组绘制箱线图，求有效实现方法

一、无需拆分数据集的简便绘图方法（更推荐） #

不管用base R还是ggplot2，都能直接按分组绘制独立箱线图，不用手动拆分数据集，效率更高。

1. 使用ggplot2（美观且灵活） #

library(ggplot2)
# 按group分组生成三个独立箱线图
ggplot(PlantGrowth, aes(y = weight)) +
  geom_boxplot() +
  facet_wrap(~group, scales = "free_x") + # 拆分为三个子图
  labs(title = "Plant Growth by Group")

2. 使用base R #

# 自动按group拆分数据为列表
split_data <- split(PlantGrowth, PlantGrowth$group)

# 一次性绘制三个箱线图
par(mfrow = c(1, 3)) # 设置画布为1行3列，同时显示三个图
for (data in split_data) {
  boxplot(data$weight, main = unique(data$group), ylab = "Weight")
}
par(mfrow = c(1, 1)) # 恢复默认画布设置

二、手动拆分数据集的方法（含if函数正确用法） #

如果一定要手动拆分数据集，这里提供两种方式：

1. 用subset函数拆分（比if更直观） #

# 按group分别提取数据集
ctrl_data <- subset(PlantGrowth, group == "ctrl")
trt1_data <- subset(PlantGrowth, group == "trt1")
trt2_data <- subset(PlantGrowth, group == "trt2")

# 绘制三个独立箱线图
par(mfrow = c(1, 3))
boxplot(ctrl_data$weight, main = "Control Group", ylab = "Weight")
boxplot(trt1_data$weight, main = "Treatment 1", ylab = "Weight")
boxplot(trt2_data$weight, main = "Treatment 2", ylab = "Weight")
par(mfrow = c(1, 1))

2. 让if相关逻辑生效的正确写法 #

在R里筛选数据，直接用逻辑索引最简洁；如果要用条件判断函数，得用向量化的ifelse（普通if只能处理单个逻辑值，没法批量筛选行）：

# 直接用逻辑索引筛选（推荐写法）
ctrl_data <- PlantGrowth[PlantGrowth$group == "ctrl", ]
# 用ifelse的等价写法
ctrl_data <- PlantGrowth[ifelse(PlantGrowth$group == "ctrl", TRUE, FALSE), ]

# 同理拆分另外两组
trt1_data <- PlantGrowth[PlantGrowth$group == "trt1", ]
trt2_data <- PlantGrowth[PlantGrowth$group == "trt2", ]

# 绘图代码和上面一致
par(mfrow = c(1, 3))
boxplot(ctrl_data$weight, main = "Control Group", ylab = "Weight")
boxplot(trt1_data$weight, main = "Treatment 1", ylab = "Weight")
boxplot(trt2_data$weight, main = "Treatment 2", ylab = "Weight")
par(mfrow = c(1, 1))

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