在R中两个栅格之间的散点图中绘制回归线和r2？

# 安装和加载所需的包
install.packages("ggplot2")
library(ggplot2)

# 创建示例数据
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
data <- data.frame(x, y)

# 绘制散点图
scatter_plot <- ggplot(data, aes(x, y)) +
  geom_point() +
  labs(x = "X", y = "Y") +
  theme_minimal()

# 添加回归线和R²值
scatter_plot_with_regression <- scatter_plot +
  geom_smooth(method = "lm", se = FALSE) +
  geom_text(x = max(data$x), y = max(data$y), 
            label = paste0("R² = ", round(cor(data$x, data$y)^2, 2)))

# 显示图形
print(scatter_plot_with_regression)