tapplyに引数としてna.rmを渡すには？

Question

私は、データフレームから平均とsdを計算するのは、そのパラメータのための1つの列とグループ識別子のための1つの列です。 tapplyを使用しているときにそれらを計算するにはどうすればよいですか？私はsd(v1, group, na.rm=TRUE)を使用することができますが、tapplyを使用する場合、na.rm=TRUEをこのステートメントに適合させることはできません。 omit.naはオプションではありません。私はパラメータのすべてを持っており、1つの値が欠けているすべての行を除外すると、データフレームの半分を失うことなく、段階的に進めなければなりません。

data("weightgain", package = "HSAUR") 
tapply(weightgain$weightgain, list(weightgain$source, weightgain$type), mean) 

byステートメントでも同様です。

x<-c(1,2,3,4,5,6,7,8,9,NA) 
y<-c(2,3,NA,3,4,NA,2,3,NA,2) 
group<-rep((factor(LETTERS[1:2])),5) 
df<-data.frame(x,y,group) 
df 

by(df$x,df$group,summary) 
by(df$x,df$group,mean) 

sd(df$x) #result: NA 
sd(df$x, na.rm=TRUE) #result: 2.738613 

これを行う方法はありますか。

Answer 1

私はこれがあなたが望むことをするべきだと思います。

1. したい列を選択します。vを反復してtapplyに値を渡すために

   v = c("x", "y")#or 
   v = colnames(df)[1:2] 
   

2. 使用sapplyを：

   sapply(v, function(i) tapply(df[[i]], df$group, sd, na.rm=TRUE)) 
   

Answer 2

単にtapplyにna.rm=TRUEを設定関数：

tapply(weightgain$weightgain, list(weightgain$source, weightgain$type), mean, na.rm=TRUE)