rowwise() 与 dplyr 中的列名向量求和

Question

我再次对如何实现这一目标感到困惑:
鉴于此数据框:

df <- tibble(
  foo = c(1,0,1),
  bar = c(1,1,1),
  foobar = c(0,1,1)
)

这个向量:

to_sum <- c("foo", "bar")

我想获得列中值的行式总和 to_sum .
期望的输出:

# A tibble: 3 x 4
# Rowwise: 
    foo   bar foobar   sum
  <dbl> <dbl>  <dbl> <dbl>
1     1     1      0     2
2     0     1      1     1
3     1     1      1     2

输入它是有效的(显然)。

df %>% rowwise() %>% 
  mutate(
    sum = sum(foo, bar)
  )

这不会:

df %>% rowwise() %>% 
  mutate(
    sum = sum(to_sum)
  )

我理解，因为如果我要尝试:

df %>% rowwise() %>% 
  mutate(
    sum = sum("foo", "bar")
  )

如何从列名向量计算行式总和？

Answer 1

我认为您正在寻找 rlang::syms将字符串强制为 quosures:

library(dplyr)
library(rlang)
df %>% 
  rowwise() %>% 
  mutate(
    sum = sum(!!!syms(to_sum))
  )
#     foo   bar foobar   sum
#   <dbl> <dbl>  <dbl> <dbl>
# 1     1     1      0     2
# 2     0     1      1     1
# 3     1     1      1     2