Vị trí trong vector dựa trên kết hợp xấp xỉ

Question

Tôi có sắp xếp vector

m<-c(1.1, 3.2, 3.6, 4, 4.6, 4.6, 5.6, 5.7, 6.2, 8.9) 

tôi muốn tìm vị trí của một giá trị dựa trên kết hợp tương đối. Nếu giá trị không tồn tại trong vector tôi muốn vị trí của các giá trị ngay lập tức trước

cho phù hợp chính xác tôi sẽ sử dụng

> match(4,m) 
[1] 4 

Nhưng nếu tôi làm

> match(6,m) 
[1] NA 

gì tôi sẽ như để có được trong ví dụ này là 8 (vị trí của giá trị trước đó không xác định của 6 là vị trí của 5.7 là)

Cảm ơn bạn trước

Answer 1

Sử dụng which.max kết hợp với Subsetting vector, một giải pháp của 17 ký tự:

which.max(m[m<=6]) # Edited to specify <= 
[1] 8 

Kể từ vector của bạn được sắp xếp, bạn có thể sử dụng thậm chí ngắn hơn:

sum(m<=6) # Edited to specify <= 
[1] 8 

tác phẩm này bởi vì giá trị TRUE được chuyển đổi hoàn toàn thành 1 trong số sum

Answer 2

Cái gì như:

> m<-c(1.1, 3.2, 3.6, 4, 4.6, 4.6, 5.6, 5.7, 6.2, 8.9) 

> (index = length(m[m<=4])) 
[1] 4 

> (m[index]) 
[1] 4 

> (index = length(m[m<=6])) 
[1] 8 

> (m[index]) 
[1] 5.7 

Answer 3

bạn có thể sử dụng chức năng which() để có được những chỉ số của nguyên tố này với độ lệch nhỏ nhất từ ​​giá trị tìm kiếm của bạn. Cũng làm việc với các vector không theo thứ tự.

x <- c(8,4,1,2,3,6,9) 
find <- 6 
pos <- which(abs(x-find) == min(abs(x-find))) 

Answer 4

Điều này sẽ làm điều đó cho bạn.

#v is a sorted vector and x is an item for which we want the exact or nearest lower match 
lowSideMatch <- function(x, v) max(which(v <= x)) 

lowSideMatch(6, m) 
[1] 8 

lowSideMatch(4, m) 
[1] 4 

Answer 5

Có chức năng tích hợp chính xác những gì bạn muốn: findInterval ... Nó cũng được vector hóa, vì vậy bạn có thể cung cấp cho nó nhiều giá trị để tìm trong một lần hiệu quả hơn nhiều.

m <- c(1.1, 3.2, 3.6, 4, 4.6, 4.6, 5.6, 5.7, 6.2, 8.9) 
# Find nearest (lower) index for both 4 and 6 
findInterval(c(4,6), m) 
# [1] 4 8