SD值dplyr

Question

不顯示我有這樣的數據集：

structure(list(CAMPAMENTO = c("Futura Esperanza", "Futura Esperanza", 
"Futura Esperanza", "Futura Esperanza", "Futura Esperanza", "Nuevo Amanecer", 
"Nuevo Amanecer", "Nuevo Amanecer", "Nuevo Amanecer", "Nuevo Amanecer", 
"Nuevo Amanecer", "Laderas de Angelmó", "Laderas de Angelmó", 
"Laderas de Angelmó", "Laderas de Angelmó", "Laderas de Angelmó", 
"Laderas de Angelmó", "Laderas de Angelmó", "Pelluhuin 1", 
"Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1", "Pelluhuin 1", 
"Pelluhuin 1", "Pelluhuin 2", "Pelluhuin 2", "Pelluhuin 2", "Pelluhuin 2", 
"Pelluhuin 2", "Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas", 
"Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas", "Mediaguas", 
"Mediaguas"), CEO = c(1L, 4L, 2L, 0L, 0L, 0L, 0L, 1L, 2L, 0L, 
0L, 2L, 2L, 0L, 6L, 0L, 1L, 0L, 1L, 3L, 2L, 0L, 0L, 0L, 0L, 0L, 
0L, 3L, 1L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 2L, 3L), ceo = c(0L, 
0L, 0L, 1L, 5L, 0L, 0L, 2L, 0L, 4L, 9L, 0L, 0L, 0L, 0L, 6L, 1L, 
0L, 0L, 0L, 3L, 2L, 8L, 7L, 3L, 1L, 0L, 2L, 7L, 4L, 0L, 1L, 2L, 
0L, 1L, 0L, 1L, 3L, 0L, 0L)), class = c("tbl_df", "tbl", "data.frame" 
), row.names = c(NA, -40L), .Names = c("CAMPAMENTO", "CEO", "ceo" 
)) 

我可以計算列CEO和CEO的均值和標準差，例如：

mean(df$ceo, na.rm = T) 
[1] 1 

和SD，

sd(df$ceo, na.rm = T) 
[1] 3 

但當

df %>% 
    group_by(CAMPAMENTO) %>% 
    summarise(n = n(), 
      "CEO" = mean(CEO), "SD CEO" = sd(CEO), 
      "ceo" = mean(ceo), "SD ceo" = sd(ceo)) 

結果是

但沒有SD結果顯示。

我在做什麼錯了？

在此先感謝。

Answer 1

問題是summarise內的計算是連續完成的。例如sd(CEO)例如基於先前構建的新列mean(CEO)，因此NA或更精確的NaN，因爲sd(mean(d$CEO))是NA。

命名您的列修復此：

## Not working 
df %>% 
    group_by(CAMPAMENTO) %>% 
    summarise(n = n(), 
      "CEO" = mean(CEO), 
      "SD CEO" = sd(CEO), 
      "ceo_mean" = mean(ceo), 
      "SD ceo" = sd(ceo)) 

## Working 
df %>% 
    group_by(CAMPAMENTO) %>% 
    summarise(n = n(), 
      "Mean_CEO" = mean(CEO), 
      "SD CEO" = sd(CEO), 
      "Mean_ceo" = mean(ceo), 
      "SD ceo" = sd(ceo))