Làm thế nào để chia một số thập phân từ một chuỗi trong R

Question

Ví dụ:

c("2.11abc","15.1cde",".562342rfg") 

Làm thế nào để phân chia các số ra khỏi vector này? Các vector Tôi muốn có là

c(2.11, 15.1, 0.562342) 

tôi đã cố gắng

gsub("[^[:digit:]]", "", a) 

nhưng kết quả là

c(211, 151 ,562342) 

Tôi thực sự đánh giá cao sự giúp đỡ của bạn.

Answer 1

Bạn đang thiếu thời gian:

as.numeric(gsub("[^[:digit:].]", "", c("2.11abc","15.1cde",".562342rfg"))) 
# [1] 2.110000 15.100000 0.562342 

Answer 2

Nếu có các chuỗi rắc rối hơn, trong đó thời gian có thể xuất hiện bên ngoài của một phần số của chuỗi, bạn có thể muốn sử dụng một cái gì đó như thế này.

library(gsubfn) 

## A possibly more realistic character vector 
x <- c("2.11abc.def","a.b-15.1cde",".562342rfg", "abcdef") 

getNumberPart <- function(x) { 
    pat <- "(-?(\\d*\\.*\\d+|\\d+\\.))" 
    strapply(x, pattern=pat, FUN=as.numeric, simplify=TRUE, empty=NA) 
} 

getNumberPart(x) 
# [1] 2.110000 -15.100000 0.562342   NA 

Do lưu ý rằng nếu một chuỗi chứa nhiều hơn một số, strapply() sẽ trích xuất tất cả trong số họ, và sẽ trả lại kết quả tổng thể như một danh sách (chứ không phải là một vector đơn giản) với một yếu tố danh sách mỗi chuỗi đầu vào.

Answer 3

Vì lợi ích của sự đơn giản sử dụng, tôi sẽ đề nghị xem xét gói "qdapRegex", mà bạn có thể làm:

x <- c("2.11abc.def","a.b15.1cde","-.562342rfg", "abcdef") 

library(qdapRegex) 
rm_number(x, extract = TRUE) 
# [[1]] 
# [1] "2.11" 
# 
# [[2]] 
# [1] "15.1" 
# 
# [[3]] 
# [1] "-.562342" 
# 
# [[4]] 
# [1] NA 

Answer 4

Điều này sẽ giúp.

a <- c("2.11abc","15.1cde",".562342rfg") 
substr(a, 1, regexpr("[a-zA-Z]", a)-1)