Gözlemin R'de başka bir gözlemden saptığını gösteren bir sütun nasıl oluşturabilirim?

Question

Belirli bir olayın belirli bir tarihte gerçekleşip gerçekleşmediğini belirten bir Boolean değişken olayı olan veri çerçevem ​​var. En yakın olayın kaç kez gözlemlendiğini (gün) gösteren yeni bir değişken oluşturmak istiyorum.

d=structure(list(date = structure(c(-365, -364, -363, -362, -361, 
-360, -359, -358, -357, -356, -355, -354, -353, -352, -351, -350, 
-349, -348, -347, -346), class = "Date"), event = c(TRUE, 
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, 
FALSE)), .Names = c("date", "event"), row.names = c(NA, 20L 
), class = "data.frame") 

Bunu yapacak bir işlev var mı? 2'den fazla TRUE değerler için DWin cevabı @ genelleme olacaktır

apply(abs(sapply(which(d$event), "-", 1:nrow(d))),1,min) 

gibi

Answer 1

şey. Tekrarlanabilir bir veri seti eklemek için

Answer 2

> pmin(abs(sapply(which(d$event), "-", 1:nrow(d))[,1]) , 
     abs(sapply(which(d$event), "-", 1:nrow(d))[,2])) 
[1] 0 1 2 3 4 5 6 7 6 5 4 3 2 1 0 1 2 3 4 5