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))

我的问题:我怎样(简单地)继续我的管道添加一个包含column2总数的行(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