rlang:在tidyr unite函数中引用var

时间:2018-05-16 22:02:01

标签: r tidyr tidyverse rlang

这是我的数据:

df <- tibble::tribble(
   ~A,  ~B, ~C,
  "a", "b", 2L,
  "a", "b", 4L,
  "c", "d", 3L,
  "c", "d", 5L
  )

var <- "AB"

我想得到这个输出:

df1 <- df %>% 
  unite("AB", c("A", "B")) %>% 
  group_by(AB) %>% 
  nest()

但是,我想引用var,也许使用rlang。我不想手动输入“AB”。我尝试了以下方法,但未获得所需的输出。请帮忙。

df1 <- df %>% 
  unite(var, c("A", "B")) %>% 
  group_by(!!var) %>% 
  nest()

1 个答案:

答案 0 :(得分:0)

这解决了这个问题:

df1 <- df %>% 
  unite(!!var, c("A", "B")) %>% 
  group_by(!!sym(var)) %>% 
  nest()