Berechnung eines Mittel in einem Datenrahmen basierend auf Positionen von separaten Spalten

Question

ich einen Datenrahmen wie so eingerichtet haben:

N1 <- c(1,2,4,3,2,3,4,5,4,3,4,5,4,5,6,8,9) 
Start <- c("","Start","","","","","","","Start","","","","Start","","","","") 
Stop <- c("","","","","Stop","","","","","","Stop","","","","Stop","","") 

Mit N1 meine Daten von Interesse sind. Ich möchte den Mittelwert einer Reihe von Zahlen basierend auf den "Start" - und "Stop" -Positionen in den nächsten zwei Spalten berechnen.

Die Saiten, wie durch "Start" definiert und wie so aussehen "Stop" würde:

2,4,3,2 
4,3,4 
4,5,6 

So sollte mein Endergebnis 3 Mittel sein:

2.75,3.6,5 

Answer 1

Sie können versuchen:

mapply(function(start, stop){ 
      mean(N1[start:stop]) 
     }, 
     start=which(Start!=""), 
     stop=which(Stop!="")) 

#[1] 2.750000 3.666667 5.000000 

Answer 2

können Sie auch versuchen rollapply

library(zoo) 
x <- sort(c(which(Stop != ""), which(Start != ""))) # indices of Start and Stop 
rollapply(x, 2, FUN = function(y) mean(N1[y[1]:y[2]]), by=2) 
[1] 2.750000 3.666667 5.000000 

Answer 3

library(data.table) # need latest 1.9.5+ 

# set up data to have all 1's column for the period we're interested in and 0 otherwise 
d = data.table(N1, event = cumsum((Start != "") - c(0, head(Stop != "", -1)))) 

d[, mean(N1), by = .(event, rleid(event))][event == 1, V1] 
#[1] 2.750000 3.666667 5.000000 

# or equivalently 
d[, .(event[1], mean(N1)), by = rleid(event)][V1 == 1, V2]