Kết hợp dữ liệu với data.table trong R
Scott Ritchie
Postdoctoral Researcher in Systems Genomics
Các biểu thức data.table có thể được xâu chuỗi tuần tự:
demographics[...][...]
Dạng chung khi xâu chuỗi một join:
DT1[DT2, on][i, j, by]
| | | | |
| | | | --> nhóm theo gì?
| | | -----> làm gì?
| | --------> trên những hàng nào?
| ------------> cột khóa để join
-----------------> join với data.table nào?
customers <- data.table(name = c("Mark", "Matt", "Angela", "Michelle"),
gender = c("M", "M", "F", "F"),
age = c(54, 43, 39, 63))
customers
name gender age
1: Mark M 54
2: Matt M 43
3: Angela F 39
4: Michelle F 63
purchases <- data.table(name = c("Mark", "Matt", "Angela", "Michelle"),
sales = c(1, 5, 4, 3),
spent = c(41.70, 41.78, 50.77, 60.01))
purchases
name sales spent
1: Mark 1 41.70
2: Matt 5 41.78
3: Angela 4 50.77
4: Michelle 3 60.01
customers[purchases,
on = .(name)][sales > 1,
j = .(avg_spent = sum(spent) / sum(sales)),
by = .(gender)]
gender avg_spent
1: M 13.91333
2: F 20.00333
Tính toán cùng với join:
DT1[DT2, on, j]
| | |
| | ----> làm gì trên kết quả join?
| --------> dùng cột nào làm khóa?
-------------> join với data.table nào?
Hiệu quả cho data.table lớn!
Tạo cột diễn ra trong data.table chính:
customers[purchases, on = .(name), return_customer := sales > 1]
customers
name gender age return_customer
1: Mark M 54 FALSE
2: Matt M 43 TRUE
3: Angela F 39 TRUE
4: Michelle F 63 TRUE
by = .EACHI nhóm j theo từng hàng từ DT2
DT1[DT2, on, j, by = .EACHI]
| | | |
| | | --> nhóm theo từng khớp trong DT1.
| | -----> làm gì trên kết quả join?
| ---------> dùng cột nào làm khóa?
--------------> join với data.table nào?
shipping[customers, on = .(name),
j = .("# of shipping addresses" = .N),
by = .EACHI]

Nhóm theo các cột trong by sẽ giới hạn tính toán vào data.table chính:
DT1[DT2, on, j, by]
| | | |
| | | --> nhóm theo các cột nào trong DT1?
| | -----> làm gì trên các cột trong DT1?
| ---------> dùng cột nào làm khóa?
--------------> join với data.table nào?
Join và tính theo nhóm trong customers:
customers[shipping, on = .(name),
.(avg_age = mean(age)), by = .(gender)]
gender avg_age
1: M 46.66667
2: F 39.00000
Kết hợp dữ liệu với data.table trong R