在dplyr中替代Sapply
我想知道我们如何在 dplyr 中编写类似于 sapply 的内容。在这里我计算没有。不同的价值观。我有类似的多个 sapply 语句，所以我想mutate在 dplyr 中使用编写。
distinctValues <- sapply(iris, function(var) dplyr::n_distinct(var))
回答
更新：对于不同的名称，您可以使用 .names = "{.col}.new{.fn}"
iris %>%
summarize(across(everything(), n_distinct, .names = "{.col}.new{.fn}"))
我们可以使用summarize与across
library(dplyr)
iris %>%
summarize(across(everything(), n_distinct))
输出：
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 35 23 43 22 3