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
R 无法将列合并为一个向量_R_For Loop_Vector_Multiple Columns - Fatal编程技术网

R 无法将列合并为一个向量

R 无法将列合并为一个向量,r,for-loop,vector,multiple-columns,R,For Loop,Vector,Multiple Columns,我试图将n个csv表单中的相同命名列合并到一个向量中,然后我可以求向量的平均值并得到一个值 相反,我似乎得到了一个数字向量的向量(我们称之为Lo)。因此,当我调用Lo上的平均值函数时,我得到每个列的平均值 下面是响应(1)中所述的代码 p不完全确定这就是你要找的,但是像这样的东西 p <- list.files(getwd(), full.names = TRUE)[1:10] Re <- c() vector_list <- list() for(i in p) {

我试图将n个csv表单中的相同命名列合并到一个向量中,然后我可以求向量的平均值并得到一个值

相反,我似乎得到了一个数字向量的向量(我们称之为Lo)。因此,当我调用Lo上的平均值函数时,我得到每个列的平均值

下面是响应(1)中所述的代码


p不完全确定这就是你要找的,但是像这样的东西

p <- list.files(getwd(), full.names = TRUE)[1:10]
Re <- c()
vector_list <- list()
for(i in p) {
    Lo <- read.csv(i, header = TRUE)
    Zo <- na.omit(Lo$sulfate)
    An <- c(Re, Zo)
    vector_list[[i]] <- An
    }

mean(unlist(vector_list))

p您正在打印循环中的平均值。它将打印项目i的平均值,然后转到下一个项目i,打印平均值,然后转到下一个项目,依此类推。如果我理解正确,您需要将中间平均值存储在列表中,然后计算循环外的总体平均值。它只返回一个值,但该值不正确。它是取每列平均值的平均值,而不是将各列合并为一列并对所有这些值进行平均值计算。不客气,如果您满意,请接受答案:)
p <- list.files(getwd(), full.names = TRUE)[1:10]
Re <- c()
vector_list <- list()
for(i in p) {
    Lo <- read.csv(i, header = TRUE)
    Zo <- na.omit(Lo$sulfate)
    An <- c(Re, Zo)
    vector_list[[i]] <- An
    }

mean(unlist(vector_list))