使用apply函数结合ggplot绘制数据框的指定列子集

我来帮你搞定这个需求！你想用循环结合ggplot批量绘制数据框里指定列的图表，对吧？其实用lapply比apply更适合这个场景（因为它会返回存储图表对象的列表，方便后续调用和修改），下面给你一套完整的解决方案：

第一步：补全/构造示例数据框 #

你提供的数据框结构不完整，我先构造一个包含数值列的完整示例（毕竟要绘图的话得有可可视化的数值型数据）：

# 构造完整的示例数据框
df <- structure(list(
  Image.Name = structure(1:5, .Label = c("D1C1", "D2C2", "D4C1", "D5C3", "D6C2"), class = "factor"),
  Experiment = structure(1:5, .Label = c("020718 perfusion EPC_BC_HCT115_Day 5", 
                                         "020718 perfusion EPC_BC_HCT115_Day 6", 
                                         "020718 perfusion EPC_BC_HCT115_Day 7", 
                                         "020718 perfusion EPC_BC_HCT115_Day 8", 
                                         "020718 perfusion EPC_BC_HCT115_Day 9"), class = "factor"),
  Cell.Count = c(120, 150, 90, 200, 170),
  Viability = c(0.85, 0.92, 0.78, 0.95, 0.88),
  Area = c(500, 620, 450, 700, 600)
), class = "data.frame", row.names = c(NA, -5L))

第二步：批量绘图的核心代码 #

首先加载ggplot2包，然后定义要绘制的列名列表（注意别用c当变量名，它是R的内置函数，容易冲突），最后用lapply循环生成图表：

library(ggplot2)

# 定义要绘制的目标列名
plot_cols <- c("Cell.Count", "Viability", "Area")

# 生成直方图列表（适合看单变量分布）
hist_plot_list <- lapply(plot_cols, function(col) {
  ggplot(df, aes(x = .data[[col]])) +
    geom_histogram(bins = 5, fill = "steelblue", alpha = 0.7) +
    labs(title = paste("Distribution of", col),
         x = col,
         y = "Count") +
    theme_minimal()
})

# 如果你需要按Image.Name分组的箱线图（适合看分组差异），可以用这段代码
box_plot_list <- lapply(plot_cols, function(col) {
  ggplot(df, aes(x = Image.Name, y = .data[[col]])) +
    geom_boxplot(fill = "coral", alpha = 0.7) +
    labs(title = paste(col, "by Image Name"),
         x = "Image Name",
         y = col) +
    theme_minimal() +
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签避免重叠
})

第三步：查看和使用图表 #

• 查看单个图表：比如调用hist_plot_list[[1]]就能看到第一列的直方图
• 批量输出所有图表：如果是在R脚本或R Markdown里，用lapply(hist_plot_list, print)就能一次性输出全部图表

小提示 #

• 为什么用lapply而不是apply？因为apply处理数据框时会把列转成向量，返回的是数组，而lapply直接返回存储ggplot对象的列表，更方便后续操作
• .data[[col]]是ggplot2推荐的准引用方式，能避免循环中列名引用的评估问题，比get(col)更规范
• 你可以根据需求替换geom_*函数，比如换成geom_density()做密度图，geom_point()做散点图等等

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