将summarise_at与平均值一起使用，并将结果 R 相乘

Question

我需要通过计算平均值来总结一些列，并将结果乘以 100。

这有效：

test <- tibble(a = c(0.1, 0.3, 0.5),
b = c(0.33, 0.44, 0.42))
test %>% summarise(ma = mean(a, na.rm = TRUE) * 100,
mb = mean(b, na.rm = TRUE) *100)

ma    mb
<dbl> <dbl>
1    30  39.7

这也适用于：

test_2 <- test %>% summarise_all(list(mean), na.rm = TRUE)
test_2 * 100
a        b
1 30 39.66667

但是由于我有很多专栏，所以我不喜欢第一个。我也想在一个更大的管道中完成这一切(所以我不喜欢选项 2(，所以我希望这样的事情会起作用：

test %>% summarise_all(list(mean * 100), na.rm = TRUE)

但它没有：

Error in mean * 100 : non-numeric argument to binary operator

我做错了什么？

Answer 1

例如

test %>% summarise_all(list(function(x) 100*mean(x, na.rm=TRUE)))

另请注意，summarise_all已被dplyrv1.0.0 中的across功能所取代。