一起使用 select 和 stringr

Question

我在努力

qual %>% select(reasons_code) %>% str_replace('\\+.*',replacement = '')

但我收到警告消息：In stri_replace_first_regex(string, pattern, fix_replacement(replacement), : argument is not an atomic vector; coercing.

但是，当我执行以下操作时，替换工作正常。

str_replace(qual$reasons_code,'\\+.*',replacement = '')

有人知道为什么会这样吗？

Answer 1

对于?str_replace，输入string是

string - 输入向量。可以是字符向量，也可以是可以强制转换为字符向量的东西。

而 select 的输出是 data.frame 并选择了单个列。它不会转换为vector。代替select，我们可以将pull 列为vector，它应该可以工作

library(dplyr)
qual %>%
      pull(reasons_code) %>%
      str_replace('\\+.*',replacement = '')

或者，如果我们更喜欢将 OP 的代码与 select 一起使用，有几种方法可以转换为 vector - unlist 就是其中之一

qual %>% 
    select(reasons_code) %>% 
    unlist %>%
    str_replace('\\+.*',replacement = '')