R-在循环中保存多个绘图时出错

我有一个像这个testframe这样的数据帧，但要大得多

lat_area = seq (50, 40, -0.5)
lon_area = seq (-10, 10, 0.5)
grid_area = matrix(0, ncol=2, nrow=length(lon_area)*length(lat_area))
grid_area[,2] = rep(lat_area, each=length(lon_area))
grid_area[,1] = lon_area
testframe = as.data.frame(grid_area)

colnames(testframe) = c("Lon", "Lat")
testframe$FDsw = rep(c(0.5,0.7), length.out= nrow(testframe))
testframe$Thgf = rep(c(0.2,0.3), length.out= nrow(testframe))
testframe$Igbff = rep(c(0.8,0.9), length.out= nrow(testframe))

我想为每个数据列绘制轮廓图（testframe中的3:5列） 我发现了关于如何自动保存多个绘图的多个问题。在我看来，最好的方法是将所有绘图保存在一个列表中，然后稍后再从该列表中保存它们。我的尝试在下面

library(ggplot2)
library(metR)

plot_list = list()
for (i in 3:length(testframe)) {
  wd = map_data("world") 
  LP = ggplot() 
  LP = LP + 
    geom_contour_fill(data = testframe, aes(x = Lon, y = Lat, z = colnames(testframe)[i]), breaks = MakeBreaks(0.1)) + 
    geom_contour(data = testframe, aes(x = Lon, y = Lat, z = colnames(testframe)[i]), color = "blue", size = 0.6) + 
    geom_text_contour(data = testframe, aes(x = Lon, y = Lat, z = colnames(testframe)[i]), stroke = 0.1) + 
    scale_fill_divergent() +
    geom_polygon(data = wd , aes(x = long, y = lat, group = group), colour="black", fill = NA) + 
    coord_cartesian(xlim = c(-10, 10), ylim = c(50, 40)) +
    scale_x_longitude(ticks = 10)+ scale_y_latitude(ticks = 10) +
    labs(title= paste("Plot", colnames(testframe)[i], sep = " ")) 
  plot_list[[i]] = LP}

plot_list[1:2] = NULL
names(plot_list) = colnames(testframe)[3:ncol(testframe)]


for (i in 1:3) {
  file_name = paste("Plot", i, ".tiff", sep="")
  tiff(file_name)
  print(plot_list[[i]])
  dev.off()
}           

我不知道我做错了什么。我得到这个错误：

Error in UseMethod("fullseq") : 
  no applicable method for 'fullseq' applied to an object of class "character"
In addition: Warning message:
In pretty.default(range(data$z, na.rm = TRUE), 10) :
  NAs introduced by coercion

---

有人知道为什么这不起作用吗？

您不能将变量插入常规的

aes（）

语句中，因为这些语句在打印时进行计算。您需要传递sumbol而不是字符串，并且plot对象中不包含变量。大概是

aes(x = Lon, y = Lat, z = colnames(testframe)[i])

不行。使用最新版本的ggplot2，您可以使用

rlang:：sym（）

和

的组合将符号插入表达式中（bang-bang）运算符。试一试

aes(x = Lon, y = Lat, z = !!rlang::sym(colnames(testframe)[i]))

可能重复：谢谢你的回答。我仍然得到错误：错误：在“实验室（title=paste（“Plot”，colnames（testframe）[I]，sep=”“）Plot_list”>>Plot_list[1:2]=NULL>names（Plot_list）=colnames（testframe）[3:ncol（testframe）]中出现意外符号名称错误（Plot_list）=colnames（testframe）[3:ncol（testframe）]：“names”属性[3]必须与向量长度相同[0]>>>对于（1:3中的i）{+文件名=粘贴（“绘图”，i，“.tiff”，sep=”“）+tiff（文件名）+打印（绘图列表[[i]]）+开发关闭（）+}绘图列表中的错误[[i]]：下标越界你确定你用上面的代码和数据得到了吗？我只是用我建议的更改运行了它，没有出现错误。好的，看起来我犯了一个错误！现在它正在运行！非常感谢！