将散点图、箱形图和线性回归线组合在一个图表ggplot R上

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

# 创建基础图表
p <- ggplot(data, aes(x = x, y = y))

# 添加散点图层
p <- p + geom_point()

# 添加箱形图层
p <- p + geom_boxplot()

# 添加线性回归线层
p <- p + geom_smooth(method = "lm", se = FALSE)

# 安装并加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建基础图表
p <- ggplot(data, aes(x = x, y = y))

# 添加散点图层
p <- p + geom_point()

# 添加箱形图层
p <- p + geom_boxplot()

# 添加线性回归线层
p <- p + geom_smooth(method = "lm", se = FALSE)

# 显示图表
print(p)