計算數據幀/表中每列的行數

這是一個簡單的問題，但我不確定我做錯了什麼。計算數據幀/表中每列的行數

df1 <- data.frame(
    A = c(NA, 0.57, 0.60, 0.51), 
    B = c(NA, 0, 0.09,0.19), 
    C = c(0., 0.05, 0.07, 0.05), 
    D = c(0.23, 0.26, 0.23, 0.26) 
) 
View(df1) 
# A  B  C  D 
# 1 NA  NA  0.00 0.23 
# 2 0.57 0.00 0.05 0.26 
# 3 0.60 0.09 0.07 0.23 
# 4 0.51 0.19 0.05 0.26

我需要在每一列是行數來獲得每列和分裂的總和也不NA也不0.00結果應該是：

# A  B  C  D 
# 1 0.56 0.14 0.06 0.25

我試圖df2 <- apply(df1, 2, function(x) colSums(df1, na.rm = T) /length(which(x !=0)))但它返回一個4x4矩陣。我懷疑問題出在length(which(x !=0))。請指教。

來源

2016-12-01 T-T

'sapply（DF1，函數（x）的總和（X，na.rm = T）/長度（其（X = 0）））' – Haboryme

你應該嘗試停止思考循環，並開始思考Rish –

我們可以這樣做

round(colSums(df1, na.rm = TRUE)/colSums(df1!=0, na.rm=TRUE), 2) 
# A B C D 
# 0.56 0.14 0.06 0.24

來源

2016-12-01 17:49:24 akrun

爲什麼這是低調？ –

隨着dplyr：

df1 %>% 
    replace(is.na(.), 0) %>% 
    summarise_each(funs(round(sum(.)/sum(.!=0),2))) 

#  A B C D 
# 1 0.56 0.14 0.06 0.24

來源

2016-12-01 18:24:23

計算數據幀/表中每列的行數

回答

相關問題