使用apply() to ggplot()创建和保存单个jpeg

install.packages("ggplot2")
library(ggplot2)

# 创建一个包含多个数据框的列表
data_list <- list(data1 = data.frame(x = 1:10, y = 1:10),
                  data2 = data.frame(x = 1:10, y = 10:1))

# 定义一个函数，用于创建和保存ggplot2图形
create_and_save_plot <- function(data) {
  # 创建ggplot2图形
  p <- ggplot(data, aes(x = x, y = y)) +
    geom_point() +
    labs(title = paste("Plot for", names(data)))
  
  # 保存图形为jpeg文件
  filename <- paste(names(data), ".jpeg", sep = "")
  ggsave(filename, p, width = 6, height = 4)
}

# 使用apply()函数遍历数据列表，并调用create_and_save_plot函数
apply(data_list, 2, create_and_save_plot)