r - 如何从混合字符串中提取数字

Question

我有一个字符串字符向量，可以是整数，也可以是“Pn[ab]？”形式。

> figc
 [1] "3"   "2"   "7"   "8"   "10"  "3"   "4"   "6"   "P3a" "P3b" "5"   "P9" 
[13] "1"   "13"  "15"  "18"  "21"  "22"  "5"   "6"   "9"   "1"   "13"  "14" 
[25] "15" 

我想将这些转换为数字，其中“P3a”的结果是 3，而“P9”的结果是 9。

我试过了：

fig <- ifelse(substr(figc, 1, 1)=="P",
              as.numeric(substr(figc, 2, 1)),
              as.numeric(figc))

给予：

> fig <- ifelse(substr(figc, 1, 1)=="P",
+               as.numeric(substr(figc, 2, 1)),
+               as.numeric(figc))
Warning message:
In ifelse(substr(figc, 1, 1) == "P", as.numeric(substr(figc, 2,  :
  NAs introduced by coercion
> 
> fig
 [1]  3  2  7  8 10  3  4  6 NA NA  5 NA  1 13 15 18 21 22  5  6  9  1 13 14 15

但我得到非数字的 NA。如何解决这个问题？我查看了stringr包装，但看不到任何有助于解决这个简单问题的东西

标签： rstringtype-conversion

Answer 1

我们可以用parse_number

library(readr)
parse_number(figc)
 [1]  3  2  7  8 10  3  4  6  3  3  5  9  1 13 15 18 21 22  5  6  9  1 13 14 15

数据

figc <- c("3", "2", "7", "8", "10", "3", "4", "6", "P3a", "P3b", "5", 
"P9", "1", "13", "15", "18", "21", "22", "5", "6", "9", "1", 
"13", "14", "15")