如何循环绘制数据并将其导出到R中

data <- read.csv("data.csv")

library(ggplot2)

for (i in 1:length(data)) {
  plot_data <- data[i, ]  # 获取当前行的数据
  ggplot(plot_data, aes(x = x_variable, y = y_variable)) +
    geom_line() +
    labs(title = paste("Plot", i))
}

for (i in 1:length(data)) {
  plot_data <- data[i, ]  # 获取当前行的数据
  plot <- ggplot(plot_data, aes(x = x_variable, y = y_variable)) +
    geom_line() +
    labs(title = paste("Plot", i))
  
  ggsave(paste("plot", i, ".png", sep = ""), plot)
}