是否可以使用字符串引用列名？

Question

我以前查过这个问题，但我找不到针对我的具体问题的解决方案。

本质上，通过编写类似这样的内容来转换数据集非常容易 -

data %>% transform(x1 = ifelse(x1 == 1, x1 + 50, x1))

但是当我尝试用字符串“x1”替换 x1 时遇到问题

data %>% transform("x1" = ifelse("x1" == 1, "x1" + 50, "x1"))

我尝试过使用“get”，例如 get(“x1”)，但会引发错误。

有没有办法做到这一点？

Answer 1

使用dplyr ，使用mutate

library(dplyr)
data %>% 
     mutate(x1 = ifelse(x1 == 1, x1 + 50, x1))

---

如果我们传递一个字符串，要么使用mutate_at

data %>%
   mutate_at(vars('x1'), ~ ifelse( . == 1, . + 50, .))

或转换为sym并评估 ( !! )

data %>%
    mutate(!! "x1" := ifelse(!! rlang::sym("x1") == 1, 
          !! rlang::sym("x1") + 50, !!rlang::sym("x1")))