Variablenwerte

Question

Ich habe Dataset folgenden auf vorhergehenden Wert basierend ändern:

df <- data.frame(subject = c(1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3), 
      time = c(1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,11), 
      performance = c(1,0,-1,-1,0,1,1,-1,0,0,0,1,1,1,-1,0,1,1,-1,0,0,1,-1,1,1,0,1,1,-1,0,-1,-1,0)) 

Was würde ich zu tun ist, wie einige der Einträge in der Leistungsvariable zu ändern. Genauer gesagt, wenn einem Eintrag "-1" eine "1" vorangestellt ist, möchte ich "-1" in "0" ändern.

Dies sollte jedoch nur innerhalb von Fächern erfolgen, nicht jedoch über Fächer hinweg (alle Fächer haben eine unterschiedliche Anzahl von Sitzungen).

Also, das ist, was ich möchte am Ende haben:

df2 =data.frame(subject = c(1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3), 
         time = c(1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,11), 
         performance = c(1,0,-1,-1,0,1,1,0,0,0,0,1,1,1,0,0,1,1,0,0,0,1,-1,1,1,0,1,1,-1,0,-1,-1,0)) 

Hat jemand eine Idee, wie dies zu tun?

Vielen Dank im Voraus! S.

Answer 1

Hier ist ein data.table Ansatz, wo ich eine flag Säule zuerst erstellen, die dann die Daten und aktualisiert die performance Spalte durch Referenz verwendet wird, der Teilmenge.

Ich entschied mich, es mit einer Zwischenflag-Spalte zu tun, weil ich erwarte, dass es sehr gut für große Datensätze funktioniert. Wenn Leistung nicht Ihr Interesse ist, könnten Sie natürlich ifelse oder replace stattdessen verwenden.

Answer 2

dplyr Verwendung,

df %>% 
    group_by(subject) %>% 
    mutate(performance = replace(performance, which(performance + lag(performance)==0 & performance == -1), 0)) 

Answer 3

Dies ist hässlich, aber funktionieren sollte:

dftest <- df 
for (i in 2:nrow(dftest)) { 
    if(
    dftest$performance[i] == -1 && dftest$performance[i - 1] == 1 
){ 
    if(
     dftest$subject[i] == dftest$subject[i - 1] 
    ) { 
     dftest$performance[i] <- 0 
    } 
} 
} 

all.equal(df2, dftest) # ONE ERROR 

Dieser Fehler in Zeile 29 gibt - können Sie überprüfen, ob Ihr Beispiel df2 hier richtig? Wenn ich die Frage richtig verstehe, sollte df2$performance[29]0 sein?

Answer 4

Eine Lösung Basis R mit by und sapply:

gr <- do.call(c, by(df, df$subject, function(x) { 
c(FALSE, unlist(sapply(1:length(x$performance), 
function(y) (x$performance[y] == -1) & (x$performance[y-1] == 1)))) 
})) 
df[gr, 3] <- 0 
cbind(df, df2)