Legen Sie Operationen mit data.table

Question

Ich muss einige Set-Operationen mit nur data.table Bibliothek tun.

Ich möchte nicht Join/Merge, aber Operationen einstellen. Wir stimmen also nicht Spalte für Zeile überein, sondern fügen Zeilen aus verschiedenen data.tables hinzu.

Wir arbeiten an zwei Stichproben aus integrierten Datensätzen.

Alle problematischen Fragen sind unten:

#install.packages("nycflights13") 
library(nycflights13) 

#install.packages("sqldf") 
library(sqldf) 

#install.packages("data.table") 
library(data.table) 

dt_airports <- data.table(airports) 

Adt <- dt_airports[1:10] 
Bdt <- dt_airports[6:15] 

sqldf('SELECT * FROM A INTERSECT SELECT * FROM B') 
# can I do it better using data.table? 
rbindlist(list(Adt,Bdt))[duplicated(rbindlist(list(Adt,Bdt))),] 

sqldf('SELECT * FROM A EXCEPT SELECT * FROM B') 
# how to do it using data.table? 

sqldf('SELECT * FROM B EXCEPT SELECT * FROM A') 
# how to do it using data.table? 

Answer 1

Mit nur data.table:

sqldf('SELECT * FROM A INTERSECT SELECT * FROM B') 
# data.table 
rbindlist(list(Adt,Bdt))[duplicated(rbindlist(list(Adt,Bdt))),] 
# better in data.table 
setkeyv(Adt,colnames(Adt)[1:7]) 
Adt[Bdt, nomatch=0L] 

sqldf('SELECT * FROM A EXCEPT SELECT * FROM B') 
# data.table 
setkeyv(Adt,colnames(Adt)[1:7]) 
Adt[!Bdt] 

sqldf('SELECT * FROM B EXCEPT SELECT * FROM A') 
# data.table 
setkeyv(Bdt,colnames(Bdt)[1:7]) 
Bdt[!Adt]