Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
维数不正确:从多个rdata文件中提取元素_R_For Loop_Data Extraction_Storing Data_Rdata - Fatal编程技术网

维数不正确:从多个rdata文件中提取元素

维数不正确:从多个rdata文件中提取元素,r,for-loop,data-extraction,storing-data,rdata,R,For Loop,Data Extraction,Storing Data,Rdata,问题 我在一个文件夹中有许多.RData文件,我想提取每个.RData文件中的坐标。我还想将附带的文件name(use_hab)和datetime(dt)链接到它们各自坐标的每一行 代码 file.namez<-list.files("C:/fitting/fitdata/7 27 2015") #name of files #file.namez.rev<-file.namez[grep(".RData",file.namez)] datastor<-data.frame(

问题 我在一个文件夹中有许多
.RData
文件,我想提取每个
.RData
文件中的坐标。我还想将附带的文件
name(use_hab)
datetime(dt)
链接到它们各自坐标的每一行

代码

file.namez<-list.files("C:/fitting/fitdata/7 27 2015") #name of files
#file.namez.rev<-file.namez[grep(".RData",file.namez)]

datastor<-data.frame(matrix(NA,length(file.namez),4))
names(datastor)<-c("use_hab",paste("B",1:3,sep=""))

allresults<-NULL

for(i in 1:length(file.namez))
  {
  datastor<-NULL
  print(file.namez[i])
  load(paste("C:/fitting/fitdata/7 27 2015/",file.namez[i], sep=""))
  use_hab <- as.character(as.data.frame(strsplit(file.namez[i],"_an"))[2,])# this line is used to remove unwanted parts of the file name
  use_hab <- gsub(".RData","", use_hab)
  datastor <- fitdata$coords
  datastor$use_hab <- use_hab
  datastor$dt <- fitdata$dt
  allresults <- rbind(allresults, datastor[,c(3,4,1,2)])
}
错误

数据器[,c(3,4,1,2)]中的错误:维度数不正确
此外:警告消息:
在datastor$use_habReplace中

  datastor <- fitdata$coords


allresults加载每个文件,每次键入
ls()
以查看新对象是什么。运行
str()
和/或
dim()
确认尺寸。如果有很多,只需自动化(
store.dim@rbatt您能详细说明您提到的自动化过程吗?@rbatt您能详细说明您提到的自动化过程吗?您的意思是存储rdata文件中的维度还是循环应该产生的维度?
  datastor <- fitdata$coords
 datastor$coords <- fitdata$coords
allresults<-NULL
datastor<-NULL
allresults <- data.frame()
datastor <- data.frame()