在ggplot中定义散点图上两点之间的直线

library(ggplot2)

# 准备数据集
data <- data.frame(x = c(1, 2, 3, 4, 5),
                   y = c(2, 4, 6, 8, 10))

# 创建绘图对象
p <- ggplot(data, aes(x = x, y = y))

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

# 添加直线层
p <- p + geom_smooth(method = "lm")

# 自定义直线的外观
p <- p + geom_smooth(method = "lm", color = "red", linetype = "dashed", size = 1)

# 添加标题和坐标轴标签
p <- p + labs(title = "Scatter plot with a line", x = "X", y = "Y")

# 显示图表
print(p)