循环将代码应用于不同的数据并将曲线图保存在R中

# 导入必要的库
library(ggplot2)

# 创建一个空的数据框来存储结果
result <- data.frame()

# 创建一个数据列表，包含不同的数据
data_list <- list(data1 = c(1, 2, 3, 4, 5),
                  data2 = c(2, 4, 6, 8, 10),
                  data3 = c(3, 6, 9, 12, 15))

# 循环遍历数据列表
for (i in 1:length(data_list)) {
  # 获取当前数据
  current_data <- data_list[[i]]
  
  # 在这里应用你的代码，对当前数据进行处理和分析
  # 这里只是简单地计算了数据的平均值
  mean_value <- mean(current_data)
  
  # 将结果添加到结果数据框中
  result <- rbind(result, data.frame(Data = paste0("data", i), Mean = mean_value))
  
  # 绘制曲线图并保存
  ggplot(data = data.frame(x = 1:length(current_data), y = current_data), aes(x = x, y = y)) +
    geom_line() +
    labs(title = paste0("Data ", i), x = "X", y = "Y") +
    ggsave(filename = paste0("plot_data", i, ".png"), width = 6, height = 4)
}

# 打印结果数据框
print(result)