要做的case中需要批量读取一个文件夹中所有的tif文件,想要读取每一个并给予对应的变量名。
setwd("D:/case_age/data/wc2.1_10m_tavg") all_td <- list.files(getwd())
前两步分别是设定工作目录和读取文件夹中所有文件,没有啥问题,而批量生成变量并赋值这一步出现了问题。
for (i in 1:length(all_td)){ result_i = readGDAL(all_td[i]) }
首先尝试了直接刚,只能输出一个结果显然不行。也搜不到在变量名中使用占位符的方法。
然后尝试先生成变量,然后再分配:
file_tname=paste("result",c(1:length(all_td)),sep="") for (i in 1:length(all_td)){ file_tname[i] = readGDAL(all_td[i]) }
会出现如下报错:
这是因为读取的文件是空间数据,如果换成普通的数值就能正常执行。
在查询了诸多方法后,总算找到了个有用的方法:总算是能够成功运行了。核心就是eval函数和parse函数。在处理别的数据类型时,应该只要按照需要修改括号中的代码就能正常运行了。
参考网址:r 批量产生变量名并赋值 - R语言论坛 - 经管之家(原人大经济论坛)
for (i in 1:length(all_td)) {eval(parse(text=paste(paste('f_t',i,sep=''), '= readGDAL(all_td[',i,'])')))}