R построения подмножества на основе значения в предыдущей строке

Question

У меня есть проблема figuering это: предположить, что это, как мои данные выглядит следующим образом:

Num condition  y 
1 a 1 
2 a 2 
3 a 3 
4 b 4 
5 b 5 
6 b 6 
7 c 7 
8 c 8 
9 c 9 
10 b 10 
11 b 11 
12 b 12 

Теперь я хочу сделать расчет (например, среднее) на b, в зависимости от того, было ли значение в строке до b, в этом примере a или c? Спасибо за любую помощь !!! Angelika

Answer 1

Это то, что вы хотите?

# in order to separate between different runs of condition 'b', 
# get length and value of runs of equal values of 'condition' 
rl <- rle(x = df$condition) 
df$run <- rep(x = seq_len(length(rl$lengths)), times = rl$lengths) 

# calculate sum of y, on data grouped by condition and run, and where condition is 'b' 
aggregate(y ~ condition + run, data = df, subset = condition == "b", sum) 

Answer 2

Вы можете добавить "лагом" Состояние столбец в dataframe (предполагающей DF) с использованием

> DF <- within(DF, lag_cond <- c(NA, head(as.character(condition), -1))) 

Результат:

Num condition y lag_cond 
    1   a 1  <NA> 
    2   a 2  a 
    3   a 3  a 
    4   b 4  a 
    5   b 5  b 
    6   b 6  b 
    7   c 7  b 
    8   c 8  c 
    9   c 9  c 
    10   b 10  c 
    11   b 11  b 
    12   b 12  b 

Теперь вы можете определить строки, которые вы хотите, как это:

> DF[with(DF, condition=="b" & lag_cond %in% c("a","c")),] 
    Num condition y lag_cond 
    4   b 4  a 
    10   b 10  c