代碼如下：

for(i in 13:36){

assign(paste0("plot", i),ggplot(data = DOI, aes(x = origin_lat, y = DOI[,i], color = species))+

geom_smooth(method = "lm", formula = y~I(x*x)+x)+

geom_point()+guides(color = FALSE)+

labs(title = "", x = "", y = names(DOI)))

}

然后得到的結(jié)果是，總共14張圖，變量名為plot13~36，每張圖都是i=36的時(shí)候的數(shù)據(jù)做出的圖，而縱坐標(biāo)的label卻是i=13~36。

但是如果我單獨(dú)賦值i的話，運(yùn)行前面代碼中g(shù)gplot部分，就是正常的：

ggplot(data = DOI, aes(x = origin_lat, y = DOI[,i], color = species))+

geom_smooth(method = "lm", formula = y~I(x*x)+x)+

geom_point()+guides(color = FALSE)+

labs(title = "", x = "", y = names(DOI))