dplyr管：如何添加裕一行共（如addmargins功能 - 基地）計算

Question

我的數據：

data <- data.frame(column1 = c("A","B","C","D"), column2 = c(4, NA, NA, 1)) 

我管：

library (dplyr) 
data2 <- data %>% 
      filter (grepl("A|B|D", column1)) 

我的問題： 我如何（簡單地說）繼續我的管道添加一行包含第2列（total = 5）的總數？

Answer 1

你可以這樣做：

data2 <- data %>% 
    filter (grepl("A|B|D", column1)) %>% 
    rbind(., data.frame(column1="Total", column2=sum(.$column2, na.rm=T))) 

    column1 column2 
1  A  4 
2  B  NA 
3  D  1 
4 Total  5