如何根据一个变量(R)通过ggplot同时绘制直线和点？

# 安装并加载ggplot2包
if (!require(ggplot2)) {
  install.packages("ggplot2")
  library(ggplot2)
}

# 创建示例数据
set.seed(123)
data <- data.frame(
  x = seq(1, 10, length.out = 100),
  y = 2 * x + rnorm(100, sd = 2),
  R = runif(100, min = 0, max = 1)
)

# 绘制直线和点
ggplot(data, aes(x = x, y = y)) +
  geom_line(aes(y = 2 * x), color = "blue", linetype = "dashed") +  # 绘制直线
  geom_point(aes(color = R)) +  # 绘制点
  scale_color_gradient(low = "red", high = "green") +  # 设置点的颜色渐变
  labs(title = "Plot of Lines and Points",
       x = "X-axis",
       y = "Y-axis",
       color = "R value") +
  theme_minimal()