Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.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
R中多个数据帧的循环_R_Loops - Fatal编程技术网

R中多个数据帧的循环

R中多个数据帧的循环,r,loops,R,Loops,我有大约200个不同名称的txt文件,任何文件都有不同的维数。读取代码正常: setwd("C:/...") filelist<-list.files(pattern="*.txt") for (j in 1:length(filelist)) assign(filelist[j], read.csv(filelist[j], header=TRUE)) setwd(“C:/…”) filelist您可能希望在for循环中执行以下操作之一,@hvollmeier建议执行第二个操作 for

我有大约200个不同名称的txt文件,任何文件都有不同的维数。读取代码正常:

setwd("C:/...")
filelist<-list.files(pattern="*.txt")
for (j in 1:length(filelist)) assign(filelist[j], read.csv(filelist[j], header=TRUE))
setwd(“C:/…”)

filelist您可能希望在for循环中执行以下操作之一,@hvollmeier建议执行第二个操作

for (file in filelist){
    ## Uncomment one of these options
    #=> data[file] <- eval(parse(text = file))
    # OR
    #=> data[file] <- get(file)

    Do something with data
    e.g. log(data[,6])
}
for(文件列表中的文件){
##取消对其中一个选项的注释

#=>data[file]data[file]您可能希望在for循环中执行以下操作之一,@hvollmeier建议的第二个操作

for (file in filelist){
    ## Uncomment one of these options
    #=> data[file] <- eval(parse(text = file))
    # OR
    #=> data[file] <- get(file)

    Do something with data
    e.g. log(data[,6])
}
for(文件列表中的文件){
##取消对其中一个选项的注释

#=>数据[文件]数据[文件]请显示
文件列表的内容
。它应该更方便;即
all_csv=setNames(lappy(filelist,read.csv,header=TRUE),filelist)
,然后使用
lappy
操作:
lappy(all_csv,function(data)log(data[,6]))
等。请显示
文件列表的内容
。它应该更方便;即
all\u csv=setNames(lappy(filelist,read.csv,header=TRUE),filelist)
然后,使用
lappy
操作:
lappy(all\u csv,function(data)log(data[,6])
等。或者使用
data[文件]@hvollmeier谢谢你指出这一点,我会将此添加到答案中。或者使用
data[file]@hvollmeier谢谢你指出这一点,我会将此添加到答案中。