r - 使用 dplyr 一次生成多列

Question

我经常需要根据现有列中的值动态生成多个列。是否有一个 dplyr 等同于以下内容？:

cols <- c("x", "y")
foo <- c("a", "b")
df <- data.frame(a = 1, b = 2)
df[cols] <- df[foo] * 5

> df
  a b x  y
1 1 2 5 10

Answer 1

不是最优雅的:

library(tidyverse)
df %>% 
  mutate_at(vars(foo),function(x) x*5) %>% 
   set_names(.,nm=cols) %>% 
   cbind(df,.)
  a b x  y
1 1 2 5 10

这可以按照@akrun 的建议变得更优雅:

df %>%
 mutate_at(vars(foo), list(new = ~ . * 5)) %>% 
 rename_at(vars(matches('new')), ~ c('x', 'y'))