Создание функции среднего значения, возвращающее сообщение об ошибке NAs

Question

Я пытаюсь написать функцию, которая вернет среднее значение столбцов для нескольких CSV-файлов. Однако функция, кажется, застрял с моим средним расчетом, так как она возвращает NA значения:

pollutantmean <- function(directory, pollutant, id = 1:332){ 
    dy <- list.files("specdata", full.names = T) 
    df <- data.frame() 
    for(i in id){ 
    rbind(df,read.csv(dy[i])) 
    } 
    if(pollutant == "nitrate"){mean(df$nitrate, na.rm = TRUE)} 
    if(pollutant == "sulfate"){mean(df$sulfate, na.rm = TRUE)} 
} 

Предложения по решению этой проблемы весьма признателен.

Answer 1

Попробуйте явно возвращаются средние значения из пользовательской функции, как это:

pollutantmean <- function(directory, pollutant, id = 1:332) { 
    dy <- list.files("specdata", full.names=TRUE) 
    df <- data.frame() 
    for (i in id) { 
     df <- rbind(df, read.csv(dy[i])) 
    } 
    if(pollutant == "nitrate") { return(mean(df$nitrate, na.rm=TRUE)) } 
    if(pollutant == "sulfate") { return(mean(df$sulfate, na.rm=TRUE)) } 
} 

Если это не устранит проблему, то вы, вероятно, есть столбцы кадров данных, которые содержат символьные данные, в результате чего R, чтобы дать вам NA значений. Вставьте эти две строки в функции pollutantmean, чтобы увидеть ли вы имеете дело с числовыми столбцами:

print(class(df$nitrate)) 
print(class(df$sulfate)) 

Если вы видите «фактор», или что-нибудь другое, чем числовые, то вы будете знать, что ваш ввод данных содержит нечто иное, чем чистые числа.