R:用过的;write.csv“;在一个圈内,但R赢了';I don’我没有把它读回去
我有一个用于创建几个.csv文件的短循环。循环工作正常,文件创建正确,我可以在Microsoft Excel中打开它们。一切看起来都很好。但当我试图在另一个脚本中将这些文件读回R时,R无法识别它们 您是否需要像创建几个png文件那样关闭循环中的某种驱动程序 这是循环(工作)。作为参考,dtlm是一个大型数据帧,包含“diag”、“country”和“date”以及“Freq”等多列 下面是一个R无法识别文件的命令示例:R:用过的;write.csv“;在一个圈内,但R赢了';I don’我没有把它读回去,r,loops,csv,driver,dataframe,R,Loops,Csv,Driver,Dataframe,我有一个用于创建几个.csv文件的短循环。循环工作正常,文件创建正确,我可以在Microsoft Excel中打开它们。一切看起来都很好。但当我试图在另一个脚本中将这些文件读回R时,R无法识别它们 您是否需要像创建几个png文件那样关闭循环中的某种驱动程序 这是循环(工作)。作为参考,dtlm是一个大型数据帧,包含“diag”、“country”和“date”以及“Freq”等多列 下面是一个R无法识别文件的命令示例: dt <- read.csv("C:/Users/myname/Des
dt <- read.csv("C:/Users/myname/Desktop/FreqTables/492.csv")
dt我通常是这样做的
## store the path in some object, here 'dir'
dir <- "[path to the folder where you have your data]"
## then pick up the file names from the 'dir,' change the filter as needed
fnames <- list.files(path = dir, pattern = ".csv")
## read the data into a list
dfn = list()
for (string in fnames){
dfn[[string]]=read.csv(paste(dir,string,sep = ""))
}
##将路径存储在某个对象中,此处为“dir”
dir您所说的“R无法识别带有的文件”是什么意思?当您尝试读取它时,结果是什么?另外,为什么您在当前目录中进行写入操作,但随后使用完整路径进行读取?我想这就是原因,所以选择其中一个或另一个,看看这是否有区别。Windows 7和Vista的路径可能很模糊。我使用的是完整的文件路径,因为我已将文件移动到一个文件夹中,以便为组织目的对其进行排序。错误在文件(文件,“rt”):无法打开连接另外:警告消息:在文件(文件,“rt”):无法打开文件“C:/Users/mtinling/Desktop/frektables/493.csv”:没有这样的文件或目录>您一定是不知怎的把它搞错了,在编写它们时,您看到了getwd()的什么?只要消除相对路径和绝对路径之间的模糊性,问题无疑就会消失。将此详细信息添加到问题中以进行改进。如果不是打字错误,则可能是您已将文件移动到当前Windows/R会话无权访问的目录中。您可以尝试在“C:/Users/mtinling/Desktop/frektables”目录下运行file.access
、file.info
和list.files
。
## store the path in some object, here 'dir'
dir <- "[path to the folder where you have your data]"
## then pick up the file names from the 'dir,' change the filter as needed
fnames <- list.files(path = dir, pattern = ".csv")
## read the data into a list
dfn = list()
for (string in fnames){
dfn[[string]]=read.csv(paste(dir,string,sep = ""))
}
## remove the .csv suffix
names(dfn) <- strsplit(names(dfn),".csv")
## merging the data frames together (traditional)
DF <- dfn[[1]]
for ( .df in dfn) {
DF <-merge(DF, .df, by.x="ID", by.y="ID", all.x=T,
suffixes=paste(":", names(dfn), sep = ""))
}