如何使用指定和提取X和Y中的非平衡連接X [Y，...]中的變量？

Question

這個問題給出瞭如何在by.x =和by.y =參數轉換的基礎Rmerge到data.table語法，連接鍵指定不同的名稱列的例子：

data.table merge by multiple columns

但是，我不能工作不知道如何爲非等效連接做同樣的事情，而且我對輸出非常困惑。

示例數據：

set.seed(0) 
tmp_dt1<- data.table(grp = c(1,2), time = runif(100)) 
tmp_dt2 <- data.table(grp = c(1,2), time = c(0.1, 0.5)) 
tmp_dt2 <- tmp_dt2[, time_to := time + 0.2] 
tmp_dt2 <- tmp_dt2[, time_from := time] # for clarity, rename time variable 

我想通過grp以相等聯接兩個表，然後由非球菌加盟，使我只保留time從tmp_dt1它屬於time_to和time_from之間。從我可以告訴tmp_dt1[tmp_dt2, , on = c("grp", "time>=time", "time<=time_to")]做什麼，我想：

> tmp_dt1[tmp_dt2, , on = c("grp", "time>=time", "time<=time_to")] 
    grp time time.1 time_from 
1: 1 0.1 0.3  0.1 
2: 1 0.1 0.3  0.1 
3: 1 0.1 0.3  0.1 
4: 1 0.1 0.3  0.1 
5: 1 0.1 0.3  0.1 
6: 1 0.1 0.3  0.1 
7: 1 0.1 0.3  0.1 
... 

什麼讓我困惑的是，x.time缺失，產生的列名都非常混亂。例如，爲什麼有一列叫做time.1？我想澄清的語法讓tmp_dt1[tmp_dt2, , on = c("grp", "time>=y.time", "time<=y.time_to")]生產：

grp y.time y.time_to time_from 
1: 1 0.1 0.3  0.1 
2: 1 0.1 0.3  0.1 
3: 1 0.1 0.3  0.1 
4: 1 0.1 0.3  0.1 
5: 1 0.1 0.3  0.1 
6: 1 0.1 0.3  0.1 
7: 1 0.1 0.3  0.1 
... 

有的怎麼也解列x.time，除了所有列在y。不幸的是這個失敗，出現錯誤：

> tmp_dt1[tmp_dt2, , on = c("grp", "time>=y.time", "time<=y.time_to")] 
Error in `[.data.table`(tmp_dt1, tmp_dt2, , on = c("grp", "time>=y.time", : 
    Column(s) [y.time,y.time_to] not found in i 

嘗試以下也不會產生我所期望的，而不是我得到：

> tmp_dt1[tmp_dt2, .(grp, time, time_from = i.time, time_to = i.time_to), on = c("grp", "time>=time", "time<=time_to")] 
    grp time time_from time_to 
1: 1 0.1  0.1  0.3 
2: 1 0.1  0.1  0.3 
3: 1 0.1  0.1  0.3 
4: 1 0.1  0.1  0.3 
5: 1 0.1  0.1  0.3 
6: 1 0.1  0.1  0.3 
7: 1 0.1  0.1  0.3 

其中time列不承擔任何相似之處tmp_dt1$time。

Answer 1

爲了避免混淆，我建議重命名兩個data.tables中具有相同名稱的列，並創建非等連接列的副本。

setnames(tmp_dt2, "time", "time_dt2") tmp_dt2[, c("time_from_join", "time_to_join"):=list(time_from, time_to)] tmp_dt1[ , time_join := time]

然後，我們可以加入，然後扔掉所有data.table混亂與非球菌加入臨時列。

tmp_dt1[tmp_dt2, on=.(grp==grp, time_join >= time_from_join, time_join <= time_to_join)][ , c("grp", "time", "time_from", "time_to", "time_dt2")]

grp time time_from time_to time_dt2 1: 1 0.1079436 0.1 0.3 0.1 2: 1 0.1216919 0.1 0.3 0.1 3: 1 0.1255551 0.1 0.3 0.1 4: 1 0.1433044 0.1 0.3 0.1 ...

Answer 2

我想你想是這樣的，使用dplyr：由grp1

library(dplyr) 
merged <- inner_join(tmp_dt1, tmp_dt2, by="grp") %>% 
      rowwise() %>% 
      filter(between(time.x, time_from, time_to)) %>% 
      ungroup() 

inner_join相等聯接。 rowwise()指定我希望以下語句按行發生。 filter()將按條件過濾行。條件使用between，詢問是time.x >= time_from和time.x <= time_to。最後，ungroup按行，萬一你想要正常data.frame。