Rstudioの別の点へのベクトルのK最近傍点を見つける

Question

私は（1,4,5,6,3,2,5,7,8,44,3 、7） と私はK = 2ポイントが6.4に最も近いことを見出したいと思う必要があります。6と7はそこに関数があります。そうでなければ、Rでそれを行う最良の方法は何ですか？

Answer 1

この関数を作るために、

fun1 <- function(vec, val, k){ 
      vec[order(abs(vec-val))][seq_len(k)] 
      } 

fun1(x, 6.4, 2) 
#[1] 6 7 
fun1(x, 6.4, 3) 
#[1] 6 7 7 
fun1(x, 5, 4) 
#[1] 5 5 4 6 

得るためにユニークな値は、次にunique追加、

fun1 <- function(vec, val, k){ 
      unique(vec[order(abs(vec-val))])[seq_len(k)] 
      } 
fun1(x, 6.4, 3) 
#[1] 6 7 5