таблице?
mtcars %>%
group_by(mpg,gear) %>%
tally() %>%
pivot_wider(id_cols=mpg,names_from = gear,values_from = n)
mpg 3 5 4
1 10.4 2 NA NA
2 13.3 1 NA NA
3 14.3 1 NA NA
4 14.7 1 NA NA
5 15 NA 1 NA
Желаемый результат:
mpg 3 5 4 Total
1 10.4 2 NA NA 2
2 13.3 1 NA NA 1
3 14.3 1 NA NA 1
4 14.7 1 NA NA 1
5 15 NA 1 NA 1
Total: 5 2 NA 6
можно добавить ...%>% janitor::adorn_totals(where = c("row", "col"), na.rm = T)
получилось, спасибо!
Спасибо! Только что пригодилось. На "чистом" dplyr'е не осилил.
Обсуждают сегодня