関数内のNA値を無視します。

Question

Imデータセット内の列の平均を計算してapply（）を使用して適用する独自の関数を作成しますが、最初の列の平均を返します。以下は私のコード

mymean <- function(cleaned_us){ 
    column_total = sum(cleaned_us) 
    column_length = length(cleaned_us) 
    return (column_total/column_length) 
} 

Average_2 <- apply(numeric_clean_usnews,2,mymean,na.rm=T) 

Answer 1

はcolMeansができることをその引数

mymean <- function(cleaned_us){ 
    column_total = sum(cleaned_us, na.rm = TRUE) #change 
    column_length = sum(!is.na(cleaned_us)) #change 
    return(column_total/column_length) 
} 

注意を持っていない私たちは、sumでna.rm=TRUEを使用する必要があるとapplyでそれを使用してmymeanとして動作するつもりはないです各列にmeanを取得するために使用されます。

Answer 2

定義した関数にna.rmパラメータを渡すには、関数のパラメータにする必要があります。 sum()関数のパラメータはna.rmですが、length()はありません。だから、あなたが作成しようとしている関数を記述するために、あなたが言うことができる：

# include `na.rm` as a param of the argument 
mymean <- function(cleaned_us, na.rm){ 

    # pass it to `sum()` 
    column_total = sum(cleaned_us, na.rm=na.rm) 

    # if `na.rm` is set to `TRUE`, then don't count `NA`s 
    if (na.rm==TRUE){ 
    column_length = length(cleaned_us[!is.na(cleaned_us)]) 

    # but if it's `FALSE`, just use the full length 
    } else { 
    column_length = length(cleaned_us) 
    } 

    return (column_total/column_length) 
} 

次に、あなたの呼び出しが動作するはずです：

Average_2 <- apply(numeric_clean_usnews, 2, mymean, na.rm=TRUE) 

Answer 3

使用na.omit()は

set.seed(1) 
m <- matrix(sample(c(1:9, NA), 100, replace=TRUE), 10) 

mymean <- function(cleaned_us, na.rm){ 
    if (na.rm) cleaned_us <- na.omit(cleaned_us) 
    column_total = sum(cleaned_us) 
    column_length = length(cleaned_us) 
    column_total/column_length 
} 

apply(m, 2, mymean, na.rm=TRUE) 

# [1] 5.000 5.444 4.111 5.700 6.500 4.600 5.000 6.222 4.700 6.200