使用 scale_color_manual() 或 aes() 函数更改颜色

如果您需要为多个 geom_smooth 绘图更改颜色，您可以使用 scale_color_manual() 或 aes() 函数在 ggplot2 中指定颜色。

以下是一个示例代码，展示了如何使用 scale_color_manual()。

library(ggplot2)

创建数据集

data <- data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100, 2, 1))

绘制散点图和线性拟合曲线

g1 <- ggplot(data, aes(x = x, y = y)) + geom_point() + geom_smooth(method = "lm", se = FALSE) + theme_minimal() + labs(title = "Scatterplot with linear regression line")

添加 scale_color_manual()，更改拟合曲线的颜色

g1 + scale_color_manual(values = c("red", "blue", "green"))

如果您需要更改多种类型的 geom_smooth 绘图的颜色，则可以使用 aes() 函数在ggplot2中指定颜色。

以下是一个示例代码，展示了如何使用 aes() 函数。

library(ggplot2)

创建数据集

data <- data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100, 2, 1))

绘制散点图和拟合曲线

g2 <- ggplot() + aes(x = x, y = y, color = "Scatter plot") + geom_point(data = data) + geom_smooth(method = "lm", data = data, se = FALSE) + aes(x = x, y = z, color = "Smooth line") + geom_smooth(method = "lm", data = data, se = FALSE) + theme_minimal() + labs(title = "Scatterplot and smooth line")

更改颜色

g2 + scale_color_manual(values = c("red", "blue"))

在上面的代码示例中，我们首先在 aes() 函数中指定了 scatter plot 和 smooth line 的颜色，并使用 scale_color_manual() 函数更改了它们的颜色。最后，我们把所有的 geom_smooth 绘图放在一个 plot 中。