在R中使用for循环创建多个散点图

# 加载所需的包
library(ggplot2)

# 创建数据集列表
datasets <- list(data1 = data.frame(x = c(1, 2, 3), y = c(4, 5, 6)),
                 data2 = data.frame(x = c(2, 4, 6), y = c(3, 6, 9)),
                 data3 = data.frame(x = c(3, 6, 9), y = c(2, 4, 6)))

# 创建一个空的绘图对象
plot_obj <- ggplot()

# 使用for循环创建散点图
for (i in 1:length(datasets)) {
  # 从数据集列表中获取当前数据集
  dataset <- datasets[[i]]
  
  # 创建散点图并添加到绘图对象中
  plot_obj <- plot_obj + geom_point(data = dataset, aes(x = x, y = y))
}

# 显示绘图对象
print(plot_obj)