r - dplyr 管道 : how to add a margin row calculating a total (like addmargins function - base)

Question

这个问题在这里已经有了答案:





Add margin row totals in dplyr chain

(8 个回答)


3年前关闭。




我的数据:

 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 的总数(总数 = 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