导入多个文件R [英] import multiple files R

问题描述

我希望你能帮助我。我一直在尝试将多个栅格数据集导入到R中，重新编码每个导入的栅格数据的缺失值，将它们链接到zipcodes，然后将每个栅格数据导出为具有不同名称的csv文件。
我试图使用循环，但到目前为止我只有错误。这是我已经得到的（不要笑）：

导入所有24个栅格数据集

  file_names = as.list（dir（pattern =home。*））
 listy< -lapply（file_names，raster，band = 1）
 names ;  -  paste0（hour，seq_along（0:23））
  

列表中的栅格数据集（listy），我只需要在每个列表上运行以下命令：

listy的元素1的示例

  listy $ hour1_r <-listy $ hour1 
 listy $ hour1_r [listy $ hour1_r == 9999]< -NA 
y&提取（listy $ hour1_r，zipcoords）
 hour1_zipcode<  -  cbind（zipid，y）
 write.table（hour1_zipcode，file =home\\urur1.csv，sep =， ，row.names = F）
  

如何使用循环？
我非常感谢您可能有任何建议！

谢谢！
m

解决方案

使用命令创建函数：

  f < -  function（listy，filename）{
 listy $ hour1_r <-listy $ hour1 
 listy $ hour1_r [listy $ hour1_r == 9999] ; -NA 
y < -  extract（listy $ hour1_r，zipcoords）
 hour1_zipcode < -  cbind（zipid，y）
 write.table（hour1_zipcode，file = filename，sep = ，row.names = F）
} 
  

在所有元素上运行命令： / p>

  mapply（f，listy，filename = paste0（home\\hour，seq_along（listy），。csv ））
  

注意，你实际上不想要 mapply

  invisible（mapply（f，listy，filename = paste0（home\\urur，seq_along（listy），。csv）））
  

您也可以在for循环中执行此操作：

  filenames = paste0（home\\hour，seq_along （列表），。csv）
 for（i in seq_along（listy））f（listy [[i]]，filenames [[i]]）
  / pre> 
I hope you can help me. I have been trying to import multiple raster datasets into R, recode missing values for each raster data imported, link them to zipcodes and then export each raster data as a csv file with different names. 
I am trying to use a loop but so far I have only got errors. This is as far as I have gotten (dont laugh): 

import all 24 raster datasets

file_names=as.list(dir(pattern="home.*"))
listy<-lapply(file_names,raster, band=1)
names(listy) <- paste0("hour", seq_along(0:23))
so now I have all the raster datasets in a list (listy) and I just need to run the following commands on each one: 

example for element 1 of listy

listy$hour1_r<-listy$hour1
listy$hour1_r[listy$hour1_r==9999]<-NA
y <- extract(listy$hour1_r, zipcoords)
hour1_zipcode <- cbind(zipid,y)
write.table(hour1_zipcode,file="home\\hour1.csv",sep=",",row.names=F)
How can I do this with a loop? 
I would very much appreciate any suggestions that you may have!  

Thank you!!! 
m
解决方案
Make a function out of your commands:
f <- function(listy,filename) {
  listy$hour1_r<-listy$hour1
  listy$hour1_r[listy$hour1_r==9999]<-NA
  y <- extract(listy$hour1_r, zipcoords)
  hour1_zipcode <- cbind(zipid,y)
  write.table(hour1_zipcode,file=filename,sep=",",row.names=F)
}
Run your command on all elements:
mapply(f, listy, filename= paste0("home\\hour",seq_along(listy),".csv"))
Note that you don't actually want mapply to return anything, so you could wrap it in invisible:
invisible(mapply(f, listy, filename= paste0("home\\hour",seq_along(listy),".csv")))
You could also do this in a for loop:
filenames = paste0("home\\hour",seq_along(list),".csv")
for (i in seq_along(listy)) f(listy[[i]],filenames[[i]])


                        
这篇关于导入多个文件R的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！