ggplot中如何对不同颜色的点拟合两条曲线

可以使用geom_smooth()函数来拟合两条曲线，并使用scale_color_manual()函数为不同颜色的点分配颜色。下面是示例代码：

library(ggplot2)

# 创建数据框
df <- data.frame(
  x = c(1, 2, 3, 4, 5, 6, 7, 8),
  y = c(2, 3, 5, 6, 8, 10, 11, 13),
  group = c("A", "A", "A", "B", "B", "B", "B", "B")
)

# 绘制散点图并拟合两条曲线
ggplot(df, aes(x, y, color = group)) +
  geom_point() +
  geom_smooth(method = "lm", formula = y ~ x, se = FALSE) +
  geom_smooth(method = "lm", formula = y ~ x, se = FALSE, linetype = "dashed") +
  scale_color_manual(values = c("red", "blue"))

上述代码将x作为自变量，y作为因变量，group作为颜色分组变量。使用geom_point()函数绘制散点图，使用geom_smooth()函数拟合两条曲线。使用scale_color_manual()函数为不同颜色的点分配颜色，这里分别为"A"组和"B"组分配了红色和蓝色。其中，linetype参数用于指定第二条曲线的类型，这里使用虚线。