cumsum sử dụng ddply

Question

Tôi cần sử dụng nhóm theo cấp độ với ddply hoặc tổng hợp nếu điều đó dễ dàng hơn. Tôi không thực sự chắc chắn làm thế nào để làm điều này như tôi cần phải sử dụng cumsum như chức năng tổng hợp của tôi. Đây là những gì dữ liệu của tôi trông giống như:

level1  level2 hour  product 
A   tea  0   7 
A   tea  1   2 
A   tea  2   9 
A   coffee 17   7 
A   coffee 18   2 
A   coffee 20   4 
B   coffee 0   2 
B   coffee 1   3 
B   coffee 2   4 
B   tea  21   3 
B   tea  22   1 

đầu ra mong đợi:

A  tea  0 7 
A  tea  1 9 
A  tea  2 18 
A  coffee 17 7 
A  coffee 18 9 
A  coffee 20 13 
B  coffee 0 2 
B  coffee 1 5 
B  coffee 2 9 
B  tea  21 3 
B  tea  22 4 

Tôi đã cố gắng sử dụng

ddply(dd,c("level1","level2","hour"),summarise,cumsum(product)) 

nhưng điều đó không tổng hợp mà tôi nghĩ là do cột giờ đang được sử dụng cho nhóm và được phân chia bởi nó .. Tôi nghĩ .. Tôi không chắc tôi hoàn toàn hiểu cách thức tổng hợp hoạt động ở đây. Có cách nào tôi có thể nhận được sản lượng yêu cầu bằng cách sử dụng tổng hợp hoặc ddply?

Answer 1

Dưới đây là một giải pháp trong cơ sở R sử dụng ave và within:

within(mydf, { 
    cumsumProduct <- ave(product, level1, level2, FUN = cumsum) 
}) 
# level1 level2 hour product cumsumProduct 
# 1  A tea 0  7    7 
# 2  A tea 1  2    9 
# 3  A tea 2  9   18 
# 4  A coffee 17  7    7 
# 5  A coffee 18  2    9 
# 6  A coffee 20  4   13 
# 7  B coffee 0  2    2 
# 8  B coffee 1  3    5 
# 9  B coffee 2  4    9 
# 10  B tea 21  3    3 
# 11  B tea 22  1    4 

Tất nhiên, nếu bạn muốn thả các cột sản phẩm hiện có, bạn có thể thay đổi lệnh sau để ghi đè cột "sản phẩm" hiện tại:

within(mydf, { 
    product <- ave(product, level1, level2, FUN = cumsum) 
}) 

Cách tiếp cận hiện tại của bạn không hoạt động một phần vì bạn đã bao gồm "giờ" làm một trong các biến nhóm của bạn. Nói cách khác, nó được nhìn thấy sự kết hợp của "A + tea + 0" khác với "A + tea + 1", nhưng từ sản lượng mong muốn của bạn, bạn dường như chỉ muốn kết hợp "A + tea" là nhóm.

aggregate sẽ không hoạt động như bạn mong đợi, vì nó sẽ ngưng mọi thứ thành một số data.frame với cùng số hàng như số kết hợp duy nhất của "level1" và "level2", trong trường hợp này là 4 hàng. Cột tổng hợp sẽ là list. Các giá trị sẽ chính xác, nhưng nó sẽ ít hữu ích hơn.

Dưới đây là aggregate và sản lượng của nó:

> aggregate(product ~ level1 + level2, mydf, cumsum) 
    level1 level2 product 
1  A coffee 7, 9, 13 
2  B coffee 2, 5, 9 
3  A tea 7, 9, 18 
4  B tea  3, 4 

Answer 2

bạn nên sử dụng transform thay vì summarise:

# you should probably order your `level2` first 
dd$level2 <- factor(dd$level2, levels=c("tea", "coffee")) 
# and transform using level1 and level2 alone, not hour 
# if you use hour, the groups will be for each row 
ddply(dd, .(level1, level2), transform, product=cumsum(product)) 

# level1 level2 hour product 
# 1  A tea 0  7 
# 2  A tea 1  9 
# 3  A tea 2  18 
# 4  A coffee 17  7 
# 5  A coffee 18  9 
# 6  A coffee 20  13 
# 7  B tea 21  3 
# 8  B tea 22  4 
# 9  B coffee 0  2 
# 10  B coffee 1  5 
# 11  B coffee 2  9