笛卡爾滾動與data.table連接

Question

我不確定如何描述這個，但我很樂意編輯標題和/或帖子以反映評論和答案。

問題

我有兩個data.frames ，我想與左連接，外連接和滾動連接的組合合並。

• 其中一個關鍵列（ year ）是滾動連接。
• 另一個關鍵列（ cat ）對於兩個data.frames都是data.frames 。 在下面的示例中，我僅提供了完整數據的示例性子集，其中包含數千個cat值。
• 第一個data.frame ， X ，有一個額外的鍵列cnty （county），第二個data.frame ， Y ，有一個額外的鍵列pol （污染物）。
• 對於由cat和year定義的每個組，我希望最終結果包含cnty和pol的笛卡爾積，其值為emfac （來自X ）和tput （來自Y ）。 目標是能夠計算emfac * tput 。

這是X的示例性子集：

  cat year cnty  tput
1  29 2011  ALA 67852
2  29 2011   CC 33893
3  29 2011  MRN 11319

......這里是Y的示例性子集：

  cat year pol emfac
1  29 1975 TOG   2.4
2  29 1975  PM   5.3

到目前為止最近的嘗試

我幾乎可以，但不完全，得到我想要的輸出：

X <- structure(list(
       cat = c(29L, 29L, 29L), 
       year = c(2011L, 2011L, 2011L), 
       cnty = c("ALA", "CC", "MRN"), 
       tput = c(67852, 33893, 11319)), 
       .Names = c("cat", "year", "cnty", "tput"), 
       class = c("data.frame"), row.names = c(NA, -3L))

Y <- structure(list(
       cat = c(29L, 29L), 
       year = c(1975, 1975), 
       pol = c("PM", "TOG"), 
       emfac = c(2.4, 5.3)),
       .Names = c("cat", "year", "pol", "emfac"), 
       class = c("data.frame"), row.names = c(NA, -2L))

library(data.table)
X <- data.table(X, key = c("cat", "cnty", "year"))
Y <- data.table(Y, key = c("cat", "pol", "year"))
Y[X, roll = TRUE]

   cat year pol emfac cnty  tput
1:  29 2011  PM   5.3  ALA 67852
2:  29 2011  PM   5.3   CC 33893
3:  29 2011  PM   5.3  MRN 11319

這是我“最近的錯過”。 我的大多數其他嘗試都錯了。

預期結果

   cat year pol emfac cnty  tput
1:  29 2011  PM   5.3  ALA 67852
2:  29 2011  PM   5.3   CC 33893
3:  29 2011  PM   5.3  MRN 11319
4:  29 2011 TOG   2.4  ALA 67852
5:  29 2011 TOG   2.4   CC 33893
6:  29 2011 TOG   2.4  MRN 11319

我究竟做錯了什么？