여러 파일에서 열의 평균을 찾고 싶습니다.

Question

이것은 모든 입력에 대해 NA를 제공하는 코드입니다. . 내가 어디 잘못 갈거야 알고 도와주세요 (저는 초보자입니다)

pollutantmean <- function(directory, pollutant, id=1:332){ 
    fname <- sprintf("%s/%03d.csv", directory, id) 
    ldf <- lapply(fname, read.csv) 
    df <- unlist(ldf) 
    a <- matrix(df, ncol = 3) 
    dfa <- data.frame(a) 
    colnames(dfa)<-c("date", "sulfate", "nitrate") 
    mn<-mean(dfa[, pollutant],na.rm=TRUE) 
    print(mn) 
} 

Answer 1

결국 당신이 원하는 :

fname <- sprintf("%s/%03d.csv", directory, id) 
ldf <- lapply(fname, read.csv) 

my.mean <- function(df, pollutant) mean(df[, pollutant], na.rm=TRUE) 

pollutant <- "nitrate" # or "sulfate" 
sapply(ldf, my.mean, pollutant) # or 
mean(sapply(ldf, my.mean, pollutant)) 

Alternativly 당신이 (`인쇄를 사용하지 않는

mean(unlist(sapply(ldf, '[[', pollutant), na.rm=TRUE))