r-我们可以将tidyverse::tibble中的add_row与cross一起使用吗

Question

假设我需要在数据集的最后使用add_row，比如iris！

iris %>% add_row( Species = "Total", Sepal.Length = sum(.$Sepal.Length)) %>% tail(3)
Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
149          6.2         3.4          5.4         2.3 virginica
150          5.9         3.0          5.1         1.8 virginica
151        876.5          NA           NA          NA     Total

我的问题是，我们如何只使用这种方法(我知道其他方法，如bind_rows和summarise、janitor、pivottabler、kable等(来添加所有数字列，而不硬编码它们的名称。across之类的东西。这可能吗？

我正在寻找add_row()函数的未来可能用例，我现在还没有使用过，所以我对其他方法不感兴趣

更新我只是喜欢这个

iris %>% add_row(Species = "Total", iris[1:4] %>% summarise(across(everything(), ~sum(.))))
149          6.2         3.4          5.4         2.3  virginica
150          5.9         3.0          5.1         1.8  virginica
151        876.5       458.6        563.7       179.9      Total

有什么更好的建议吗？

Answer 1

我们可以使用adorn_totals

library(janitor)
library(dplyr)
iris %>% 
adorn_totals(col = 'Sepal.Length')

---

或多列

iris %>% 
select(Species, everything()) %>% 
adorn_totals() %>% 
select(names(iris))

---

或多列

iris %>% 
summarise(across(where(is.numeric), sum)) %>% 
add_row(iris, Species = 'Total', .)