我可以匹配 R 中 switch 语句中的正则表达式吗？

Question

我有一个字符串向量，其中要求人们猜测某人的年龄，这包括诸如“50-60”、“ca.50”或“>50”之类的陈述。我想使用正则表达式来匹配这些情况并获得真实的数值。 “50-60”应该产生 55（作为两个值的平均值），其他两个示例 50。

对于每个变体，我都希望在如下所示的开关中有一个案例，但它似乎不起作用。甚至可以在开关中使用正则表达式吗？

switch (string,
          str_detect(string, "[:digit:]+[:blank:]*(-|_)[:blank:]*[:digit:]+") = {
            first <- str_sub(string, 1, 2) %>% as.numeric()
            second <- str_sub(string, str_length(string)-1, str_length(string)) %>% as.numeric()
            value <- mean(c(first, second))
          },
          str_detect(string, "((ca)\.?)|>|~[:blank:]*[:digit:]+") = {
            value <- str_sub(string, str_length(string)-1, str_length(string)) %>% as.numeric()
          },
          str_detect(string, "[:digit:]+[:punct:]") = {
            value <- str_sub(string, 1, 2) %>% as.numeric()
          },
          print(string, " could not be matched")
  )

表达式本身按预期工作（据我测试），所以我想我不能像这样在开关中使用它们。但是我无法在任何地方找到解决方案。

编辑：添加了示例的预期输出

Answer 1

您可以使用嵌套的 if/else 方法 -

library(stringr)

string <- "50-60"

if(str_detect(string, "[:digit:]+[:blank:]*(-|_)[:blank:]*[:digit:]+")) {
          first <- str_sub(string, 1, 2) %>% as.numeric()
          second <- str_sub(string, str_length(string)-1, str_length(string)) %>% as.numeric()
          value <- mean(c(first, second))
          value
        } else if(str_detect(string, "((ca)\.?)|>|~[:blank:]*[:digit:]+")) {
          value <- str_sub(string, str_length(string)-1, str_length(string)) %>% as.numeric()
          value
        } else if(str_detect(string, "[:digit:]+[:punct:]")) {
          value <- str_sub(string, 1, 2) %>% as.numeric()
          value
        } else NA

#[1] 55

对于string <- "ca. 50"它returns50.

Answer 2

mystring <- c("50-60", "ca. 50", ">50")

library(stringr)
lapply(str_extract_all(mystring, "[0-9]+"), 
       function(x) if (length(x) == 1) as.numeric(x[1]) else mean(as.numeric(x)))
[[1]]
[1] 55

[[2]]
[1] 50

[[3]]
[1] 50

Answer 3

我们可以用 tidyverse 方法做到这一点

将字符串转换为 tibble/data.frame
删除str_remove_all
然后，通过指定sep

separate

获取rowMeans

library(dplyr)
library(tidyr)
library(stringr)
tibble(mystring) %>%
    mutate(mystring = str_remove_all(mystring, "[A-Za-z.><]+")) %>% 
    separate(mystring, into = c('col1', 'col2'), sep="[- ]+", 
         convert = TRUE) %>%
    transmute(out = rowMeans(., na.rm = TRUE))

-输出

# A tibble: 3 x 1
    out
  <dbl>
1    55
2    50
3    50

数据

mystring <- c("50-60", "ca. 50", ">50")

我可以匹配 R 中 switch 语句中的正则表达式吗？

Can I match regular expressions in switch statements in R?

regex

r

switch-statement

stringr

数据