在R语言中为同一变量的不同取值绘制独立图表

问题描述 #

现有如下R数据集：

a1 <- c("a","a","a", "b","b","b", "c", "c", "c", "d", "d", "d")
b1 <- c(7, 7, 7,5, 4, 4, 3, 3, 3, 3, 4, 6)
c1 <- c("1","2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")

m1 <- data.frame(a1, b1, c1)

需要为a1的每个不同取值生成独立图表，每个图表的x轴对应分组的c1值，y轴对应分组的b1值。

解决方案 #

方法1：Base R 循环生成独立图表 #

利用split()拆分数据，再通过循环为每个分组绘制图表：

# 按a1分组拆分数据集
grouped_data <- split(m1, m1$a1)

# 遍历每个分组生成图表
for (group_name in names(grouped_data)) {
  # 获取当前分组的子集数据
  current_subset <- grouped_data[[group_name]]
  
  # 绘制散点图（可根据需求修改type参数，如"l"为折线图）
  plot(
    x = current_subset$c1, 
    y = current_subset$b1,
    main = paste("分组:", group_name),  # 图表标题
    xlab = "c1",  # x轴标签
    ylab = "b1",  # y轴标签
    type = "p",   # 绘图类型：p=点，l=线，b=点线结合
    pch = 16,     # 点的形状
    col = "#2E86AB"  # 点的颜色
  )
}

运行后会依次弹出每个分组的独立图表，你可以根据需要调整type、pch、col等参数修改图表样式。

方法2：ggplot2 生成面板图或独立文件 #

ggplot2是R中常用的可视化包，既可以生成包含所有分组的面板图，也能导出独立的图表文件。

步骤1：安装并加载ggplot2

install.packages("ggplot2")
library(ggplot2)

生成多面板组合图（所有分组在一页）

用facet_wrap()快速生成按a1分组的面板图：

ggplot(m1, aes(x = c1, y = b1)) +
  geom_point(color = "#2E86AB", size = 2) +  # 绘制散点，可替换为geom_line()生成折线图
  facet_wrap(~a1, scales = "free") +  # 按a1分组生成面板，scales="free"让坐标轴自适应
  labs(x = "c1", y = "b1") +
  theme_bw()  # 切换为简洁的黑白主题

如果需要固定所有面板的坐标轴范围，把scales="free"改成scales="fixed"即可。

导出每个分组的独立图表文件

如果需要将每个分组的图表单独保存为文件，可以结合purrr包实现批量导出：

install.packages("purrr")
library(purrr)

# 获取a1的所有唯一分组
all_groups <- unique(m1$a1)

# 遍历每个分组，生成并保存图表
walk(all_groups, function(group) {
  # 生成当前分组的ggplot对象
  plot_obj <- ggplot(subset(m1, a1 == group), aes(x = c1, y = b1)) +
    geom_point(color = "#E74C3C", size = 2) +
    labs(title = paste("分组:", group), x = "c1", y = "b1") +
    theme_bw()
  
  # 保存为PNG文件，文件名自动以分组命名
  ggsave(
    filename = paste0("分组_", group, ".png"),
    plot = plot_obj,
    width = 5,  # 图片宽度（英寸）
    height = 4  # 图片高度（英寸）
  )
})

运行后，当前工作目录下会生成分组_a.png、分组_b.png等独立文件。

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