特定字符的组合匹配和替换

Question

我试过替换与特定字符匹配或后跟“BT”的字符，但我的代码失败了。 这是我的代码：

df <- data.frame(
  exposure = c("123BT", "113BB", "116BB", "117BT")
)

df %>%
  mutate(
    exposure2 = case_when(exposure == regmatches("d+\\BT") ~ paste0("-", exposure),
                     TRUE ~ exposure)
  )

错误是：

Error: Problem with `mutate()` column `exposure2`.
i `exposure2 = case_when(...)`.
x argument "m" is missing, with no default
Run `rlang::last_error()` to see where the error occurred.

而我的目标是：

df <- data.frame(
  exposure = c("123BT", "113BB", "116BB", "117BT"),
exposure2 = c(-123, 113, 116, -117)
)

Answer 1

我建议您使用库stringr ，您可以使用正则表达式(\\d)+提取您的数字：

library(stringr)
library(dplyr)

df %>%
  mutate(
    exposure2 = case_when(str_detect(exposure,"BT") ~ paste0("-", str_extract(exposure, "(\\d)+")),
                          TRUE ~ str_extract(exposure, "(\\d)+"))
  )

Output：

  exposure exposure2
1    123BT      -123
2    113BB       113
3    116BB       116
4    117BT      -117

如果您仍然喜欢使用regmatches ，您可以获得相同的结果：

df %>%
  mutate(
    exposure2 = case_when(exposure %in% regmatches(exposure, regexpr("\\d+BT", exposure)) ~ paste0("-", regmatches(exposure, regexpr("\\d+", exposure))),
                          TRUE ~ regmatches(exposure, regexpr("\\d+", exposure)))
  )

Answer 2

首先，您可以在dplyr::mutate中轻松实现一个简洁的解决方案。 使用gsub我们删除字符并将结果强制为as.integer 。 结果，我们根据字符串是否包含"BT"乘以1或-1 ； 为此，我们使用grepl （给出布尔值）并添加1L （强制转换为整数）以获得索引1或2 。

c(1, -1)[grepl('BT', df$exposure) + 1L]*as.integer(gsub('\\D', '', df$exposure))
# [1] -123  113  116 -117

以上是推荐的解决方案。 您设想的解决方案要复杂得多，因为它处理信息的效率不是很高。 我在一个小f ¹中实现逻辑来演示。

f <- \(x) {
  rm <- regmatches(x, regexpr("\\d+BT", x))
  o <- gsub('\\D', '', x)
  o <- ifelse(x %in% rm, paste0('-', o), o)
  as.integer(o)
}

f(df$exposure)
# [1] -123  113  116 -117

_{¹注意：对于正regexpr regmatches信息。 正则表达式实际上应该看起来像"\\d+BT" 。}

---

数据：

df <- structure(list(exposure = c("123BT", "113BB", "116BB", "117BT"
)), class = "data.frame", row.names = c(NA, -4L))

Answer 3

library(readr) 
(-1)^grepl('BT', df$exposure)  * parse_number(df$exposure)
[1] -123  113  116 -117