R - Verwenden der for-Schleife, um Werte in einem Datenrahmen bedingt zu ändern

Question

Alle Variablen sind im data.frame 1-5 auf derselben Skala.

Beispiel data.frame

rpi_invert 

A B C D 
5 2 4 1 
3 5 5 2 
1 1 3 4 

Für alle Werte, die 5 entsprechen würde ich es gerne 1 ändern.

für 4 zu 2 wechseln.

für 2 Wechsel zu 4.

für 1 zu 5 wechseln.

Beispiel für data.frame, nachdem Werte geändert wurden.

rpi_invert 

A B C D 
1 4 2 5 
3 1 1 4 
5 5 3 2 

Was ich müde habe.

for(b in colnames(rpi_invert)){ 
    rpi_invert[[b]][rpi_invert[[b]] == 5] <- 1 
    rpi_invert[[b]][rpi_invert[[b]] == 4] <- 2 
    rpi_invert[[b]][rpi_invert[[b]] == 2] <- 4 
    rpi_invert[[b]][rpi_invert[[b]] == 1] <- 5 
}  

Dadurch werden nur die Werte in der ersten Zeile und nicht in der zweiten Spalte geändert.

for(b in colnames(rpi_invert)){ 
rpi_invert <- ifelse(rpi_invert[[b]] == 5,1, 
        ifelse(rpi_invert[[b]] == 4,2, 
          ifelse(rpi_invert[[b]] == 2,4, 
            ifelse(rpi_invert[[b]] == 1,5,rpi_invert[[b]])))) 
} 

Aber das gibt mir den Fehler:

Error in rpi_invert[[b]] : subscript out of bounds 

Wenn ich für eine einzelne Spalte mit den gleichen Methoden versuchen, anstatt durch die data.frame von looping dann beide Methoden arbeiten, so bin ich nicht sicher, was ist das Problem.

Ich bin sicher, was ich versuche zu tun, kann effizienter ohne eine for loop wahrscheinlich mit einer Art von Anwendung Funktion gemacht werden, aber ich bin mir nicht sicher, wie.

Jede Hilfe wird geschätzt werden bitte lassen Sie mich wissen, wenn weitere Informationen benötigt werden.

Answer 1

Sie können versuchen (wenn Ihr data.frame ist df):

3-(df-3) 
# A B C D 
#1 1 4 2 5 
#2 3 1 1 4 
#3 5 5 3 2 

oder gleiche, aber ein bisschen anders geschrieben: 6-df