使用字符对象来指示 R 的胶水函数中的列名？

Question

我正在尝试使用glue::glue 函数在我的数据集中创建一个“标签”列。我希望此标签列的每一行都包含 user-selected 列的值。例如，使用mtcars 数据集，我想创建一个标签列，将车辆名称和我选择的另一列的值粘合起来。对单个显式定义的列这样做很好；我只是将列名直接放在胶水函数中（见我下面的mpg示例）。

library(glue)
library(tidyverse)

data <- mtcars %>% as_tibble(rownames = "Vehicle")

#This is easy to do if I know in advance I want to use mpg. I just put it in the glue function directly
data %>% 
  mutate(Label=glue("{Vehicle}: {value}",
                    value=mpg)) %>% 
  select(Label)
#> # A tibble: 32 x 1
#>    Label                  
#>    <glue>                 
#>  1 Mazda RX4: 21          
#>  2 Mazda RX4 Wag: 21      
#>  3 Datsun 710: 22.8       
#>  4 Hornet 4 Drive: 21.4   
#>  5 Hornet Sportabout: 18.7
#>  6 Valiant: 18.1          
#>  7 Duster 360: 14.3       
#>  8 Merc 240D: 24.4        
#>  9 Merc 230: 22.8         
#> 10 Merc 280: 19.2         
#> # ... with 22 more rows

^{由reprex package (v1.0.0) 于 2021-02-28 创建}

问题是我想概括一下。我想定义将哪一列粘合在粘合函数本身的之外。最终，我想将此感兴趣的列设置为函数中的参数。

为了说明我的障碍，我在胶水函数之外创建了一个字符对象，该对象等于我要使用的列。例如，我将 column_of_interest 定义为“mpg”。我想要的行为是让胶水认识到，当我说等于“mpg”的 column_of_interest 时，我的意思是查看 mpg 列，而不是粘贴“mpg”这个词本身。也许不出所料，胶水是后者：

library(glue)
library(tidyverse)
data <- mtcars %>% as_tibble(rownames = "Vehicle")

#I would like to set the column to glue here
column_of_interest <- "mpg"
#And then use the column_of_interest object here
data %>% 
  mutate(Label=glue("{Vehicle}: {value}",
                    value=column_of_interest)) %>% 
  select(Label)
#> # A tibble: 32 x 1
#>    Label                 
#>    <glue>                
#>  1 Mazda RX4: mpg        
#>  2 Mazda RX4 Wag: mpg    
#>  3 Datsun 710: mpg       
#>  4 Hornet 4 Drive: mpg   
#>  5 Hornet Sportabout: mpg
#>  6 Valiant: mpg          
#>  7 Duster 360: mpg       
#>  8 Merc 240D: mpg        
#>  9 Merc 230: mpg         
#> 10 Merc 280: mpg         
#> # ... with 22 more rows

^{由reprex package (v1.0.0) 于 2021-02-28 创建}

我想知道是否可以做前者？是否有可能通过 column_of_interest="mpg" 我的意思是我想要 mpg 列的值，而不是字面意思“mpg”？

我对 tidy 评估有点熟悉（非常模糊），并在那里尝试了一些技巧（主要是将!! 放在 column_of_interest 前面）。没有一个是成功的。任何帮助将不胜感激，如果有帮助，我们很乐意提供更多信息。

Answer 1

有多种方法可以做到这一点：

1. .data：

library(dplyr)
library(glue)
data <- mtcars %>% as_tibble(rownames = "Vehicle")

data %>% 
  mutate(Label=glue("{Vehicle}: {value}",value=.data[[column_of_interest]])) %>% 
  select(Label)

#   Label                  
#   <glue>                 
# 1 Mazda RX4: 21          
# 2 Mazda RX4 Wag: 21      
# 3 Datsun 710: 22.8       
# 4 Hornet 4 Drive: 21.4   
# 5 Hornet Sportabout: 18.7
# 6 Valiant: 18.1          
# 7 Duster 360: 14.3       
# 8 Merc 240D: 24.4        
# 9 Merc 230: 22.8         
#10 Merc 280: 19.2         
# … with 22 more rows

1. get：

data %>% 
  mutate(Label=glue("{Vehicle}: {value}",value= get(column_of_interest))) %>% 
  select(Label)

1. 将sym 与!! 一起使用：

data %>% 
  mutate(Label=glue("{Vehicle}: {value}",value= !!sym(column_of_interest))) %>% 
  select(Label)