在R中通过迭代绘制

# 导入必要的包
library(ggplot2)

# 创建一个数据框
data <- data.frame(x = 1:10, y = 1:10)

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

# 设置绘图参数
plot <- plot + labs(title = "Scatter Plot", x = "X", y = "Y")

# 循环迭代绘制散点图
for (i in 1:10) {
  plot <- plot + geom_point(data = data, aes(x = x, y = y + i))
}

# 显示绘图结果
print(plot)