使用字符对象在 R 的粘合函数中指示列名？

问题描述

我正在尝试使用 glue::glue 函数在我的数据集中创建一个“标签”列。我希望此标签列的每一行都包含一个用户选择 列的值。例如，使用 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 年 2 月 28 日创建}

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

为了说明我的障碍，我在粘合函数之外创建了一个字符对象，它等于我要使用的列。例如，我将 column_of_interest 定义为“mpg”。我想要的行为是让胶水认识到当我说 column_of_interest 时，它等于“mpg”，我的意思是查看 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 年 2 月 28 日创建}

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

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

解决方法

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

使用.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

使用get：

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

将 sym 与 !! 结合使用：

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