Tìm lần xuất hiện đầu tiên khác 0 trong khung dữ liệu

Question

Tôi có chuỗi thời gian bán hàng theo ID tài khoản. Để tính toán mức tăng trưởng trung bình, tôi cần trích xuất tháng đầu tiên với doanh số khác 0 cho mỗi ID. Vì tài khoản có thể đã được thiết lập vào các thời điểm khác nhau, tôi cần phải xác định động khi bán hàng> 0 lần đầu tiên trong tài khoản.

Chỉ mục cho hàng sẽ đủ để tôi chuyển đến một hàm tính toán tăng trưởng. Vì vậy, tôi mong đợi các kết quả sau đây bằng ID tài khoản:

54 - [1] 
87 - [4] 
95 - [2] 

I tried `apply(df$Sales,2,match,x>0)` but this doesn't work. 

Mọi con trỏ? Ngoài ra, có cách nào dễ dàng hơn để tính CAGR với tập dữ liệu này không?

Cảm ơn trước!

CalendarMonth ID Sales 
8/1/2008 54 6692.60274 
9/1/2008 54 6476.712329 
10/1/2008 54 6692.60274 
11/1/2008 54 6476.712329 
12/1/2008 54 11098.60822 
7/1/2008 87 0 
8/1/2008 87 0 
9/1/2008 87 0 
10/1/2008 87 18617.94155 
11/1/2008 87 18017.36279 
12/1/2008 87 18617.94155 
1/1/2009 87 18617.94155 
2/1/2009 87 16816.20527 
7/1/2008 95 0 
8/1/2008 95 8015.956284 
9/1/2008 95 0 
10/1/2008 95 8015.956284 
11/1/2008 95 6309.447514 
12/1/2008 95 6519.762431 
1/1/2009 95 6519.762431 

Answer 1

có giúp đỡ này:

tapply(df$Sales, df$ID, function(a)head(which(a>0),1)) 

nơi df là khung dữ liệu của bạn ở trên không?

Nếu bạn muốn toàn bộ hàng & không chỉ là chỉ số, điều này có thể giúp:

lapply(unique(df$ID),function(a) head(subset(df,ID==a & Sales>0),1)) 

Answer 2

Dưới đây là một giải pháp khả thi:

res1 <- tapply(df$Sales,INDEX=df$ID,FUN=function(x) which(x > 0)[1]) 

> res1 
54 87 95 
1 4 2 

đâu res là một vector số với:

> names(res) 
[1] "54" "87" "95" 

Nếu bạn muốn để có được các chỉ số của các dòng trong bản gốc data.frame và không trong các tập con, bạn có thể làm:

res2 <- tapply(1:nrow(df), 
       INDEX=df$ID,FUN=function(idxs) idxs[df[idxs,'Sales'] > 0][1]) 

> res2 
54 87 95 
1 9 15 

Sau đó, bạn chỉ có thể sử dụng các chỉ số trong res2, để tập hợp con các data.frame:

df2 <- df[res2,] 

> df2 
CalendarMonth ID  Sales 
    8/1/2008  54  6692.603 
10/1/2008  87 18617.942 
    8/1/2008  95  8015.956 

Answer 3

Xây dựng trên digEmAll câu trả lời, một giải pháp sử dụng functional lập trình (có thể là một chút bụi):

> res3 <- tapply(
    1:nrow(df) 
    , df$ID 
    , function(Idx) Idx[Position(function(x) df[x, "Sales"] > 0, Idx)] 
) 
> identical(res3, res2) 
[1] TRUE