dplyr pipe: how to add a margin row calculating a total (like addmargins function - base) [duplicate]

Answer 1

You can do:

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