1
假設我有數據幀如下之間的最小差,查找數據幀列和R中的矢量
a = c(10,20,30,40,50, 60, 70, 80 ,90, 100) %>% data.frame()
colnames(a) = c("column1")
和向量,
b = c(46, 90, 75, 15)
我想找到B的距離最近的元件一個。所需的輸出會是這樣,
a b
10 15
20 15
30 15
40 46
50 46
60 46
70 75
80 75
90 90
100 90
以下是我的努力,
我試圖rownames添加到A和B,努力創建完整加入,並找到對每個組合的差異,採取最小差異。但是加入rownames,只能使前四個元素全部加入,
a %>% add_rownames('rowname') %>% full_join(b %>% add_rownames(rowname), by = c("rowname" = "rowname"))
這是行不通的。任何人都可以幫助我解決這個問題嗎?
'一個$ B < - B [max.col(-abs(外(一個$列1,B,\' - \')))] ' – alistaire
或dplyr,因爲它被標記爲'a%>%rowwise()%>%mutate(b = b [which.min(abs(column1 - b))]])' – alistaire
@alistaire謝謝。你想發佈它作爲答案嗎? – Observer