使用字符对象通过 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”。我想要的行为是胶水识别当我说 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-02-28 创建

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

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

Answer 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

与 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)

使用字符对象通过 R 胶水函数指示列名？

Using character object to indicate column name within R's glue function?

r

tidyeval

r-glue