r - 如何从 R 中的字符向量中获取数字？

Question

我有一个字符向量，想从中获取整数和 float 。

    a <- c("Sam is 5 years old", "Ram is 3.7 years old" , "John is 17 years 2 months old")

输出应该是:

      [1]  5  3.7 17.2

Answer 1

我们可以使用readr中的parse_number

readr::parse_number(a)
#[1]  5.0  3.7 17.0

更新

基于OP的新例子

library(stringr)
sapply(str_extract_all(a, "[0-9]+\\s+(years|months)"), function(x) {
       x1 <- readr::parse_number(x)
       head(if(length(x1)==2)   x1 + round(x1[2]/12, 1) else x1, 1)})
#[1]  5.0  7.0 17.2

如果我们不需要为“月”除以 12，另一种选择是

as.numeric(sapply(regmatches(a, gregexpr('[0-9]+', a)), paste, collapse="."))
#[1]  5.0  3.7 17.2