Định hình lại dữ liệu có cấu trúc dài. Có thể vào cấu trúc rộng bằng chức năng data.table?

Question

> library(data.table) 
> A <- data.table(x = c(1,1,2,2), y = c(1,2,1,2), v = c(0.1,0.2,0.3,0.4)) 
> A 
    x y v 
1: 1 1 0.1 
2: 1 2 0.2 
3: 2 1 0.3 
4: 2 2 0.4 
> B <- dcast(A, x~y) 
Using v as value column: use value.var to override. 
> B 
    x 1 2 
1 1 0.1 0.2 
2 2 0.3 0.4 

Dường như tôi có thể định hình lại dữ liệu. Có thể từ dài đến rộng bằng cách sử dụng f.x. dcast của package reshape2. Nhưng data.table đi cùng với một toán tử khung quá tải cung cấp các tham số như 'by' và 'group', điều này khiến tôi tự hỏi liệu nó có thể đạt được nó bằng cách sử dụng hàm này (với chức năng cụ thể của data.table) không?

Chỉ cần một ngẫu nhiên ví dụ từ hướng dẫn:

DT[,lapply(.SD,sum),by=x] 

Điều đó có vẻ tuyệt vời - nhưng tôi không hoàn toàn hiểu được việc sử dụng được nêu ra.

Tôi không tìm thấy một cách hay ví dụ cho điều này vì vậy có lẽ nó chỉ là không thể có thể nó thậm chí không phải là - vì vậy, một "nhất định" không, là không thể vì ... " cũng là một câu trả lời hợp lệ.

Answer 1

tôi sẽ chọn một ví dụ với nhóm không đồng đều do đó nó dễ dàng hơn để minh họa cho trường hợp tổng quát:

A <- data.table(x=c(1,1,1,2,2), y=c(1,2,3,1,2), v=(1:5)/5) 
> A 
    x y v 
1: 1 1 0.2 
2: 1 2 0.4 
3: 1 3 0.6 
4: 2 1 0.8 
5: 2 2 1.0 

Bước đầu tiên là để lấy số lượng phần tử/mục nhập cho mỗi nhóm "x" giống nhau. Ở đây, với x = 1 có 3 giá trị y, nhưng chỉ có 2 cho x = 2. Vì vậy, chúng ta sẽ phải sửa đầu tiên với NA cho x = 2, y = 3.

setkey(A, x, y) 
A[CJ(unique(x), unique(y))] 

Bây giờ, để có được nó sang định dạng rộng, chúng ta nên nhóm bằng "x" và sử dụng as.list trên v như sau:

out <- A[CJ(unique(x), unique(y))][, as.list(v), by=x] 
    x V1 V2 V3 
1: 1 0.2 0.4 0.6 
2: 2 0.8 1.0 NA 

Bây giờ, bạn có thể đặt tên của các cột reshaped sử dụng tài liệu tham khảo với setnames như sau:

setnames(out, c("x", as.character(unique(A$y))) 

    x 1 2 3 
1: 1 0.2 0.4 0.6 
2: 2 0.8 1.0 NA 

Answer 2

(với các khoản tín dụng để Arun)

A[, setattr(as.list(v), 'names', y), by=x] 

Answer 3

Sử dụng dcast() (bây giờ là một phương pháp mặc định data.table, từ phiên bản 1.9 .5; phiên bản trước sử dụng dcast.data.table) như trong

> dcast(A,x~y) 
Using 'v' as value column. Use 'value.var' to override 
    x 1 2 3 
1: 1 0.2 0.4 0.6 
2: 2 0.8 1.0 NA 

này là nhanh chóng và obviates sự cần thiết để setnames().

Điều này cũng đặc biệt hữu ích khi y trong ví dụ trên là biến yếu tố với các mức ký tự - ví dụ: 'Thấp', 'Trung bình', 'Cao' - bởi vì CJ() không thể trả lại dữ liệu rộng với các biến theo thứ tự mà setnames() mong đợi và bạn có thể kết thúc với dữ liệu của bạn bị gắn nhãn sai.