如何在ggplot中基于多因子组合创建独立分组折线图？

我完全懂你的困扰！你有一个2×2的因子组合（F1和F2各两个水平），想要每个组合对应一条独立折线，但目前用group=F1的话，同F1下不同F2的点会被错误连接，没法得到预期的4条线。其实你的思路是对的——我们需要用F1和F2的组合作为分组依据，这里有两种简单的实现方式：

方法1：新增合并F1和F2的分组列（用dplyr） #

你可以用dplyr的mutate()函数创建一个包含F1和F2组合的新列，这样就能直接用这个列作为分组依据。代码如下：

library(dplyr)
library(ggplot2)

# 你的原始数据
df <- data.frame(
  "X" = c(1,2,4,5,7,8,10,11),
  "Y" = c(1,2,3,4,5,6,7,8),
  "F1" = c(1,1,1,1,2,2,2,2),
  "F2" = c(1,1,2,2,1,1,2,2)
) %>% 
  mutate(F1 = as.factor(F1), F2 = as.factor(F2)) %>%
  # 新增F1和F2的组合列，用interaction()自动生成因子型组合
  mutate(F1F2 = interaction(F1, F2))

# 绘图：用新列作为group，同时可以用F2设置颜色区分
ggplot(df, aes(x = X, y = Y, group = F1F2, color = F2)) +
  geom_line()

interaction(F1, F2)会自动把两个因子的所有笛卡尔积组合转化为一个新的因子（比如1.1、1.2、2.1、2.2），完美对应你需要的4个分组。

方法2：直接在ggplot中使用交互项（无需修改数据） #

如果你不想额外修改数据框，可以直接在aes()里用interaction(F1, F2)作为分组参数，这样更简洁：

library(dplyr)
library(ggplot2)

df <- data.frame(
  "X" = c(1,2,4,5,7,8,10,11),
  "Y" = c(1,2,3,4,5,6,7,8),
  "F1" = c(1,1,1,1,2,2,2,2),
  "F2" = c(1,1,2,2,1,1,2,2)
) %>% 
  mutate(F1 = as.factor(F1), F2 = as.factor(F2))

# 直接用interaction(F1, F2)作为group参数
ggplot(df, aes(x = X, y = Y, group = interaction(F1, F2), color = F2)) +
  geom_line()

这样做的效果和方法1完全一样，但省去了修改数据的步骤，适合快速绘图。

为什么之前的代码不对？ #

你之前用group=F1，意味着ggplot会把所有F1水平相同的点归为一组——比如F1=1的点里，F2=1和F2=2的点会被连在一起，所以你只能得到2条线，而不是4条。只有把分组设为F1和F2的组合，才能让每个组合的点单独连成一条线。

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