R: Erstellen Sie eine neue Spalte mit einer bestimmten nicht kontinuierlichen Bedingung in data.frame

Stellen Sie sich einen künstlichen Datenrahmen vor

IDtest<-c(1,1,1,1,1,1,2,2,2,3,3,3,3)
Class<-c(1,1,3,4,4,5,1,1,2,2,2,3,4)
Day<-c(0,47,76,100,150,173,0,47,76,0,47,76,100)
Area<-c(0.45,0.85,1.50,1.53,1.98,5.2,
         0.36,0.58,1.2,
         0.85,1.36,2.26,3.59)
df<-data.frame(cbind(IDtest, Class, Day, Area))
df

   IDtest Class Day Area
1       1     1   0 0.45
2       1     1  47 0.85
3       1     3  76 1.50
4       1     4 100 1.53
5       1     4 150 1.98
6       1     5 173 5.20
7       2     1   0 0.36
8       2     1  47 0.58
9       2     2  76 1.20
10      3     2   0 0.85
11      3     2  47 1.36
12      3     3  76 2.26
13      3     4 100 3.59

 I'll like to do:
 1) For IDtest 1 in Class 1: step1 = 47 - 0
 2) For IDtest 1 in Class 3: step1 = 76 - 47
 3) For IDtest 1 in Class 4: step1 = 150 - 76
 4) For IDtest 1 in Class 4: step1 = 173 - 150

up to IDtest 3.

Versuchen Sie dazu:

df$step1 <- NA 
for (i in 1:max(df$Class)){
  if(i == 1){
     df$step1[Class == i] <- max(df$Day[df$Class == i]) - 0 # quite silly
     }else{
     df$step1[Class == i] <- max(df$Day[df$Class == i]) - max(df$Day[df$Class == i - 1]) # "Last" as the "previous" Class, not inside the same Class
 }}

Wenn meine Klassenvariable fortlaufend OK ist, meine Klasse jedoch den Wert 1 für 3 ändert. In diesem Fall gibt mir mein Code -Inf-Werte, da die letzten Klassenwerte (1) und nicht 2 verwendet werden müssen, die nicht vorhanden sind .

Meine wünschenswerte Ausgabe ist:

new.df

   IDtest Class Day Area step1
1       1     1   0 0.45 47
2       1     1  47 0.85 47
3       1     3  76 1.50 29
4       1     4 100 1.53 74
5       1     4 150 1.98 74
6       1     5 173 5.20 23

Sehen Sie hier eine einfache Änderung?