如何使用 purrr 添加多列？ [复制]

Question

这个问题在这里已经有了答案：

变异 dataframe 中的多个列6 个答案

去年关闭。

我正在寻找一种整洁的方式来执行以下操作：

iris %>% mutate(
petal_width_pct = Petal.Width/Sepal.Width, 
petal_length_pct = Petal.Length/Sepal.Width,
sepal_length_pct = Sepal.Length/Sepal.Width,
sepal_width_pct = Sepal.Width/Sepal.Width)

我想以不需要列出每个变量的方式为每个数字列添加一个百分比列。 我想我需要某种类型的 purrr map，但我还没有弄清楚！

Answer 1

而不是map我认为你应该across ：

library(dplyr)
iris %>% mutate(across(where(is.numeric), ~./Sepal.Width, .names  ='{col}_pct'))

在dplyr版本 < 1.0.0 中，您可以使用具有相同效果的mutate_if 。

iris %>% mutate_if(is.numeric, list(pct = ~./Sepal.Width))