如何用ggplot在同一窗口叠加绘制多组带回归线的不同颜色图形？

最优方式：直接使用完整数据分组映射（推荐） #

ggplot的设计逻辑就是基于完整数据集的分组可视化，不需要循环累加。直接把Country映射到color美学属性，就能自动按国家区分颜色，同时生成各组的回归线：

# 一次性绘制所有国家的点和回归线，自动按国家分色
ggplot(dataf, aes(x = varA, y = varB, color = Country)) +
  geom_point() +  # 绘制所有组的散点
  geom_smooth(method = "lm", se = FALSE)  # 添加各组的线性回归线（se=FALSE去掉置信区间）

循环累加图层的方式（不推荐，仅作参考） #

如果一定要用循环实现叠加，需要先初始化一个空的ggplot对象，然后在循环中逐步添加图层，而不是每次新建ggplot：

# 初始化空的ggplot对象
p <- ggplot()

# 循环添加每个国家的点和回归线
for (i in 1:6) {
  country_data <- subset(dataf, Country == vec[i])
  p <- p +
    geom_point(data = country_data, aes(x = varA, y = varB, color = vec[i])) +
    geom_smooth(data = country_data, aes(x = varA, y = varB, color = vec[i]), 
                method = "lm", se = FALSE)
}

# 最后输出完整图形
print(p)

原代码问题说明 #

你之前的代码每次循环都会新建一个ggplot()对象，所以每次调用都会覆盖之前的图形；dev.off()只是关闭当前绘图设备，和图层叠加无关。

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