R语言: 关于批量读取文件及生成变量的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

数据是以csv格式保存的，现在想批量将数据读取到每个单独的变量中，想请教下如何操作。
就是想实现文件名

filename = list.files(path = Rdata_path, pattern = "*.csv")
obj_R <- list()
for (i in 1:length(filename)){
  obj_R[]<- substr(filename,1,7)
  #想将文件名的字符变为变量名称。
}
obj_R <- do.call(c, obj_R)

charexpress <- "<-read.csv(\""
data_R <- paste0(obj_R, charexpress, obj_R,".csv\")")

#这句话有问题，执行错误
for (i in 1:length(data_R)){
  eval(parse(paste0(obj_R , data_R )))
}

显示错误，没有那个文件或目录。实在不知道怎么解决了。求教。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：生成变量 读取文件 R语言 filename Pattern 如何

1. filename = list.files(path = Rdata_path, pattern = "*.csv")
   
2. setwd(Rdata_path)##设置Rdata_path为当前工作路径
   
3. obj_R<-sub(".csv", "", filename) ##提取csv文件名，作为变量名
   
4. for (i in 1:length(filename)) {
   
5.   
   
6.   assign(obj_R[i],read.csv(filename[i])) ##assign 函数 Assign a Value to a Name
   
7.                                          ##因为obj_R里存的是字符，要给字符赋予实际值
   
8. 
   
9.   }

复制代码

1. filename = list.files(path = Rdata_path, pattern = "*.csv")
   
2. setwd(Rdata_path)##设置Rdata_path为当前工作路径
   
3. obj_R<-sub(".csv", "", filename) ##提取csv文件名，作为变量名
   
4. for (i in 1:length(filename)) {
   
5.   
   
6.   assign(obj_R[i],read.csv(filename[i])) ##assign 函数 Assign a Value to a Name
   
7.                                          ##因为obj_R里存的是字符，要给字符赋予实际值
   
8. 
   
9.   }

复制代码

谢谢le.chat, 你的代码解决了我的问题，太感谢了！非常感谢！