如何解决使用字符对象在 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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。