dplyr::recode 与 stringr::str_detect() 结合使用

Question

我正在尝试使用dplyr::recode() 和stringr::str_detect() 重新编码字符变量。我意识到这可以通过dplyr::case_when() 来完成，如此处所述：https://community.rstudio.com/t/recoding-using-str-detect/5141，但我相信必须有一种方法可以通过recode() 来实现。

考虑这种情况：

library(tidyverse)
rm(list = ls())

data <- tribble(
  ~id, ~time,
  #--|--|
  1, "a",
  2, "b",
  3, "x"
)

我想通过str_detect() 将数据框中的“x”替换为“c”，这是我的做法：

data %>% 
 mutate(time = recode(data$time, str_detect(data$time, "x") = "c"))

但这不起作用：

错误：意外的“=”在： “数据%>% 变异（时间=重新编码（数据$时间，str_detect（数据$时间，“x”）=“

显然 R 不知道如何处理最后一个 =，但我相信它必须用于 recode 功能，如下所示：

recode(data$time, "x" = "c")

这会正确执行，就像这样：

str_detect(data$time, "x")

但这不是：

recode(data$time, str_detect(data$time, "x") = "c")

有没有办法让这两个函数相互配合？

Answer 1

如果你想尽可能简单，我会使用gsub

library(dplyr)
data %>% 
  mutate(time = gsub("x", "c", time))

这消除了recode 和str_detect 的使用

如果你坚持使用stringr，那么你应该使用str_replace 而不是str_detect：

data %>% 
  mutate(time = str_replace(time, "x", "c"))

如果要替换包含“x”的整个值，则只需添加一些正则表达式：

data %>% 
  mutate(time = str_replace(time, ".*x.*", "c"))

正则表达式分解：.* 表示匹配至少 0 次的任何字符（\n 除外）。我们将.* 放在 x 的前面和后面，这样如果“x”中有任何前导或尾随字符，它们仍然会被捕获。