Trích xuất số từ vectơ của chuỗi

Tôi có chuỗi như thế này:

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

Tôi chỉ muốn ghi số lượng từ vectơ này. Đầu ra mong đợi là một vectơ:

c(20, 1)

Làm thế nào để tôi làm điều này?

Làm thế nào về

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

hoặc là

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

hoặc là

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

Tôi nghĩ rằng thay thế là một cách gián tiếp để đạt được giải pháp. Nếu bạn muốn truy xuất tất cả các số, tôi khuyên bạn nên gregexpr:

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

Nếu bạn có nhiều kết quả phù hợp trong một chuỗi, điều này sẽ nhận được tất cả chúng. Nếu bạn chỉ quan tâm đến trận đấu đầu tiên, hãy sử dụng regexprthay vì gregexprvà bạn có thể bỏ qua unlist.

Cập nhật Vì extract_numerickhông được dùng nữa, chúng tôi có thể sử dụng parse_numbertừ readrgói.

library(readr)
parse_number(years)

Đây là một tùy chọn khác với extract_numeric

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

Đây là một giải pháp thay thế cho giải pháp đầu tiên của Arun, với một biểu thức chính quy giống Perl đơn giản hơn:

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

Hoặc đơn giản:

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

Một stringrgiải pháp pipelined:

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

Bạn cũng có thể loại bỏ tất cả các chữ cái:

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

Tuy nhiên, có vẻ như điều này ít khái quát hơn.

Trích xuất số từ bất kỳ chuỗi nào ở vị trí đầu.

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

Trích xuất số từ bất kỳ chuỗi ĐỘC LẬP của vị trí.

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

Chúng tôi cũng có thể sử dụng str_extracttừstringr

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

Nếu có nhiều số trong chuỗi và chúng tôi muốn trích xuất tất cả chúng, chúng tôi có thể sử dụng str_extract_allmà không giống như str_extracttrả về tất cả macthes.

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"

Sau bài đăng từ Gabor Grothendieck đăng tại danh sách gửi thư trợ giúp r

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

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

Sử dụng gói unglue chúng ta có thể làm:

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

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

^{Được tạo vào ngày 11 tháng 11 năm 2019 bởi gói reprex (v0.3.0)}

Thông tin thêm: https://github.com/moodymudskipper/unglue/blob/master/README.md