regex - 文字列のベクトルから数値を抽出する

Question

私はこのような文字列を持っています：

years<-c("20 years old", "1 years old")

このベクトルからの数値のみをgrepしたいと思います。期待される出力はベクトルです。

c(20, 1)

どうすればこれを行うことができますか？

Answer 1

どうですか

# pattern is by finding a set of numbers in the start and capturing them
as.numeric(gsub("([0-9]+).*$", "\\1", years))

また

# pattern is to just remove _years_old
as.numeric(gsub(" years old", "", years))

また

# split by space, get the element in first index
as.numeric(sapply(strsplit(years, " "), "[[", 1))

Answer 2

更新は廃止された ため、パッケージからextract_numeric使用できます。parse_numberreadr

library(readr)
parse_number(years)

これが別のオプションですextract_numeric

library(tidyr)
extract_numeric(years)
#[1] 20  1

Answer 3

代用は解決策にたどり着くための間接的な方法だと思います。すべての番号を取得したい場合は、次のことをお勧めしgregexprます。

matches <- regmatches(years, gregexpr("[[:digit:]]+", years))
as.numeric(unlist(matches))

文字列に複数の一致がある場合、これによりすべてが取得されます。最初の一致のみに関心がある場合は、regexpr代わりにを使用するとgregexpr、をスキップできますunlist。

Answer 4

これは、より単純なPerlのような正規表現を使用した、Arunの最初のソリューションの代替手段です。

as.numeric(gsub("[^\\d]+", "", years, perl=TRUE))

Answer 5

または単に：

as.numeric(gsub("\\D", "", years))
# [1] 20  1

Answer 6

stringrパイプラインソリューション：

library(stringr)
years %>% str_match_all("[0-9]+") %>% unlist %>% as.numeric

Answer 7

あなたもすべての文字を取り除くことができます：

as.numeric(gsub("[[:alpha:]]", "", years))

ただし、これはあまり一般化できない可能性があります。

Answer 8

str_extractからも使用できますstringr

years<-c("20 years old", "1 years old")
as.integer(stringr::str_extract(years, "\\d+"))
#[1] 20  1

文字列に複数の数値があり、それらすべてを抽出したい場合は、すべてのマッセを返すのstr_extract_allとは異なり、これ を使用できます。str_extract

years<-c("20 years old and 21", "1 years old")
stringr::str_extract(years, "\\d+")
#[1] "20"  "1"

stringr::str_extract_all(years, "\\d+")

#[[1]]
#[1] "20" "21"

#[[2]]
#[1] "1"

Answer 9

開始位置の任意の文字列から数値を抽出します。

x <- gregexpr("^[0-9]+", years)  # Numbers with any number of digits
x2 <- as.numeric(unlist(regmatches(years, x)))

位置に依存しない任意の文字列から数値を抽出します。

x <- gregexpr("[0-9]+", years)  # Numbers with any number of digits
x2 <- as.numeric(unlist(regmatches(years, x)))

Answer 10

パッケージunglueを使用して、次のことができます。

# install.packages("unglue")
library(unglue)

years<-c("20 years old", "1 years old")
unglue_vec(years, "{x} years old", convert = TRUE)
#> [1] 20  1

^{reprexパッケージ（v0.3.0）によって2019-11-06に作成されました}

詳細：https ：//github.com/moodymudskipper/unglue/blob/master/README.md

Answer 11

Gabor Grothendieck からの投稿の後、r-helpメーリングリストに投稿

years<-c("20 years old", "1 years old")

library(gsubfn)
pat <- "[-+.e0-9]*\\d"
sapply(years, function(x) strapply(x, pat, as.numeric)[[1]])