如何将矩阵中包含的每个变量的一个图保存为R元素，并将变量名称保存为元素名称？(使用循环)

# 创建一个包含变量的矩阵
matrix <- matrix(c(1, 2, 3, 4), nrow = 2, ncol = 2)
colnames(matrix) <- c("var1", "var2")
rownames(matrix) <- c("row1", "row2")

# 创建一个空的列表，用于保存图和变量名称
plots <- list()

# 循环遍历矩阵中的每个变量
for (i in 1:ncol(matrix)) {
  # 获取变量名称
  var_name <- colnames(matrix)[i]
  
  # 创建一个图，并保存到列表中
  plot <- plot(matrix[, i], main = var_name)
  plots[[i]] <- plot
  
  # 保存图为R元素
  filename <- paste0(var_name, ".png")
  png(filename)
  print(plot)
  dev.off()
}

# 打印保存的图和变量名称
for (i in 1:length(plots)) {
  var_name <- colnames(matrix)[i]
  print(paste("变量名称:", var_name))
  print(paste("图:", plots[[i]]))
}