0

我正在尝试使用该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 包于 2021-02-28 创建(v1.0.0)

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

为了说明我的障碍，我在胶水函数之外创建了一个字符对象，它等于我要使用的列。例如，我将 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 包于 2021-02-28 创建(v1.0.0)

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

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

4

1 回答 1

0

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

  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)
于 2021-03-01T02:19:46.067 回答