R使用lapply保存绘图

# 创建包含绘图参数的列表
plot_params <- list(
  list(x = 1:10, y = 1:10, type = "l", main = "Plot 1", xlab = "X", ylab = "Y"),
  list(x = 1:10, y = 1:10^2, type = "l", main = "Plot 2", xlab = "X", ylab = "Y"),
  list(x = 1:10, y = 1:10^3, type = "l", main = "Plot 3", xlab = "X", ylab = "Y")
)

# 定义生成和保存绘图的函数
save_plot <- function(params) {
  plot(params$x, params$y, type = params$type, main = params$main, xlab = params$xlab, ylab = params$ylab)
  filename <- paste0(params$main, ".png")
  dev.copy(png, filename)
  dev.off()
}

# 使用lapply函数遍历列表并生成和保存绘图
lapply(plot_params, save_plot)