在R中的突变函数中使用列表

Question

我正在尝试在mutate中使用列表，请参阅以下内容：

Grouping <- c('f_risk_code', 'f_risk_category')
Pasting <- c('f_risk_code, f_risk_category')

然后在这里使用：

Nested_Train %>%
mutate(Category = paste0(glue_col(Pasting), sep='_'))

但这并没有达到预期的效果——它只是返回f_risk_code'，'f_rist_category作为category，而不是实际的风险代码和风险类别字段。感谢您的帮助。

Answer 1

您可以使用do.call:

library(dplyr)
Nested_Train %>% mutate(Category = do.call(paste0, .[Pasting]))

Answer 2

使用tidyverse，我们可以使用invoke

library(dplyr)
library(purrr)
Nested_Train %>%
mutate(Category = invoke(paste0, .[Pasting]))

Answer 3

这是我的解决方案：试试类似的东西：

cols <- rlang::exprs(hp, cyl); mtcars %>% mutate(out=paste(!!!cols, sep="_"))