r - 如何动态创建具有整洁评估的列？

Question

我想使用特定模式创建变量。我需要将变量名称作为整洁的评估包含在 mutate 函数中。我在下面做了一个自定义示例:

  iris %>%
  rename(Sepal = Sepal.Width, Petal = Petal.Width) %>%
  mutate_at(c('Sepal', 'Petal'), list(test = ~ . / !!sym(paste0(., '.Length'))))

Answer 1

在新版本的dplyr中，我们可以使用across

library(dplyr)
library(stringr)
iris %>%
   rename(Sepal = Sepal.Width, Petal = Petal.Width) %>%
   mutate(across(c('Sepal', 'Petal'), ~ 
              ./get(str_c(cur_column(), '.Length')), .names = '{.col}_test'))

-输出

#    Sepal.Length Sepal Petal.Length Petal    Species Sepal_test Petal_test
#1            5.1   3.5          1.4   0.2     setosa  0.6862745 0.14285714
#2            4.9   3.0          1.4   0.2     setosa  0.6122449 0.14285714
#3            4.7   3.2          1.3   0.2     setosa  0.6808511 0.15384615
#4            4.6   3.1          1.5   0.2     setosa  0.6739130 0.13333333
#5            5.0   3.6          1.4   0.2     setosa  0.7200000 0.14285714
#6            5.4   3.9          1.7   0.4     setosa  0.7222222 0.23529412
#7            4.6   3.4          1.4   0.3     setosa  0.7391304 0.21428571
#8            5.0   3.4          1.5   0.2     setosa  0.6800000 0.13333333

# ...

---

我们不需要仅仅为了进行除法而重命名。也可以通过保留原来的列名来实现

iris %>%
  mutate(across(ends_with('Width'), ~
              ./get(str_replace(cur_column(), 'Width', 'Length')),
         .names = '{.col}_test'))

---

. 返回值而不是列名。因此，paste0(., '.Length') 将粘贴子字符串 .Length 以及相应的列值