如何改写向量化ifelse中字符转数值的代码片段？

需要将字符型数据按以下规则转换为数值型：

• 字符"1"→1、"2"→2……"10"→10
• 字符"10+"→11

最初使用for循环+if else实现，代码如下：

for (i in 1:length(a)){
     if(a[i] == "10+"){
        a[i] = 11} else
        {a[i] = as.numeric(stringr::str_extract(a[i],"\\d+"))
        }
}

尝试改用向量化ifelse语句时，原代码中as.numeric(stringr::str_extract(a[i],"\\d+"))的索引写法不适合向量化操作，以下是几种可行的改写方案：

示例数据集 #

预期结果 #

解决方案 #

方法1：向量化ifelse直接实现 #

利用ifelse的向量运算特性，直接对整个向量a操作，无需循环索引：

library(stringr)
a <- c("1", "2", "3", "5", "10", "10+", "10+")
a_num <- ifelse(a == "10+", 11, as.numeric(str_extract(a, "\\d+")))

逻辑：对向量中每个元素判断，若等于"10+"则赋值11，否则提取其中的数字部分转为数值。

方法2：使用dplyr::case_when（可读性更强） #

适合多条件场景，规则表达更直观：

library(dplyr)
library(stringr)
a_num <- case_when(
  a == "10+" ~ 11,
  TRUE ~ as.numeric(str_extract(a, "\\d+"))
)

方法3：替换特定字符后转数值（最简方案） #

直接将"10+"替换为"11"，再整体转为数值型，无需额外提取数字：

a_num <- as.numeric(gsub("10\\+", "11", a))

注意：正则中+是特殊字符，需用\\转义才能准确匹配"10+"。

内容的提问来源于stack exchange，提问作者doraemon