sử dụng hiệu quả data.table R và độc đáo()

Question

Có một truy vấn hiệu quả hơn sau

DT[, list(length(unique(OrderNo))),customerID] 

để tinh chỉnh một bảng định dạng DÀI với id khách hàng, số thứ tự và chi tiết sản phẩm, có nghĩa là có sẽ là các hàng trùng lặp có cùng id thứ tự nếu khách hàng đã mua nhiều hơn 1 mặt hàng trong giao dịch đó.

Cố gắng tìm ra các giao dịch mua duy nhất. length() cung cấp số lượng ID của tất cả các ID đặt hàng theo ID khách hàng bao gồm các từ khóa trùng lặp, chỉ tìm kiếm số duy nhất.

Chỉnh sửa từ đây:

Dưới đây là một số mã giả. Lý tưởng nhất là những gì tôi đang tìm kiếm là đầu ra từ truy vấn đầu tiên sử dụng unique().

df <- data.frame(
      customerID=as.factor(c(rep("A",3),rep("B",4))), 
      product=as.factor(c(rep("widget",2),rep("otherstuff",5))), 
      orderID=as.factor(c("xyz","xyz","abd","qwe","rty","yui","poi")), 
      OrderDate=as.Date(c("2013-07-01","2013-07-01","2013-07-03","2013-06-01","2013-06-02","2013-06-03","2013-07-01")) 
      ) 

DT.eg <- as.data.table(df) 
#Gives unique order counts 
DT.eg[, list(orderlength = length(unique(orderID))),customerID] 
#Gives counts of all orders by customer 
DT.eg[,.SD, keyby=list(orderID, customerID)][, .N, by=customerID] 

     ^
     | 
    This should be .N, not .SD ~ R.S. 

Answer 1

nếu bạn đang cố gắng để đếm số lượng mua hàng duy nhất cho mỗi khách hàng, sử dụng

DT[, .N, keyby=list(customerId, OrderNo)][, .N, by=customerId] 

Answer 2

Tính đến phiên bản 1.9.6 (trên cran ngày 19 tháng 9 2015), data.table đã đạt được các chức năng helper uniqueN() tương đương với length(unique(x)) nhưng nhanh hơn nhiều (theo số data.table NEWS).

Với điều này,

DT.eg[, list(orderlength = length(unique(orderID))),customerID] 

và

DT.eg[,.N, keyby=list(orderID, customerID)][, .N, by=customerID] 

có thể được viết lại như

DT.eg[, .(orderlength = uniqueN(orderID)), customerID] 

customerID orderlength 
1:   A   2 
2:   B   4