データフレームから2つの列をマージするにはどうすればよいですか？

Question

私のデータは、私は、行にし、それらの平均値を取得する二つの値が存在する場合、2つの条件で、このような何かをしたい、この

V2 V4  V6 V8 
0  0.34  1 3 
0.24 0  0.3 0 
0  0  0 110 
0  11  0 0 
120  0  20 0 
0  90  0 21 

のようなものです。一つの値と1つのゼロは、値を入れて、ゼロの両方の場合ならば、ゼロ

ので、出力は私があるため、我々が持っている多くのゼロのと、平均を取得する必要はありません。この

V2  V6 
0.34 2 
0.24 0.3 
0  110 
11  0 
120  20 
90  21 

のように見えます以下は、結果に影響を与えると述べた。

Answer 1

我々は0

m1 <- sapply(seq(1, ncol(df1), by=2), function(i) { 
      x1 <- df1[ i:min((i+1), ncol(df1))] 
      x2 <- rowMeans(replace(x1, x1==0, NA), na.rm=TRUE) 
      replace(x2, is.nan(x2),0) 
}) 
d1 <- as.data.frame(m1) 
d1 
#  V1 V2 
#1 0.34 2.0 
#2 0.24 0.3 
#3 0.00 110.0 
#4 11.00 0.0 
#5 120.00 20.0 
#6 90.00 21.0