Question

我必须转换以下代码：

labels = 'x'
dataX <- data.frame(x = colors())
special <- sample(colors(),5)
dataX <- dataX %>% mutate("names2" := dplyr::case_when(UQ(sym(labels)) %in% special ~ UQ(sym(labels))))

进入一些没有:=的代码，因为这会在运行包检查时给出一个注释。

因此我尝试使用mutate_at，但不能将其与case_when结合使用：

dataX <- dataX %>% mutate_at(c("names3" = labels) , funs(dplyr::case_when(.) %in% special ~ .))

失败了：

Error in mutate_impl(.data, dots) : 
  Column `names3` is of unsupported type quoted call

因此，我的问题。

到目前为止，我提出的最好的是：

testx <- function(x, special){tmp <- x %in% special; x[!tmp] <- NA; as.character(x)}
dataX <- dataX %>% mutate_at(c("names4" = labels) , funs(testx(., special)))

Answer 1

这看起来像是一个语法错误。只需将括号放在正确的位置：

dataX %>%
  mutate_at(c("names3" = labels),
            funs(dplyr::case_when(. %in% special ~ .))) %>% 
  filter(!is.na(names3)) 
#>            x     names2     names3
#> 1     grey41     grey41     grey41
#> 2     grey72     grey72     grey72
#> 3     grey89     grey89     grey89
#> 4 mistyrose4 mistyrose4 mistyrose4
#> 5 steelblue2 steelblue2 steelblue2

将mutate_at与case_when结合起来

1 个答案: