Seite 1 von 1

Daten ersetzen - kurz und knapp

Verfasst: Fr Okt 16, 2020 2:48 pm
von Florianho
Ich möchte bestimmte Vermittlernummern (~300) ersetzen mit "VE_O_Z", wenn diese in dem Vector "Ausnahmen" gefunden werden.

Ich verwende immer diverse library, daher habe ich hier keines aufgeführt

Code: Alles auswählen

vermittlernummer <- c("000000", "000011", "000032", "000045")
ausnahmen <- c("000000","000045")

bisher

Code: Alles auswählen

vemittlernummer <- gsub("000000","VE_O_Z",vermittlernummer)
vemittlernummer <- gsub("000045","VE_O_Z",vermittlernummer)
.....

Zielbild

Code: Alles auswählen

Alt            Neu
000000     VE_O_Z
000011     000011
000032     000032
000045     VE_O_Z
Wie kann ich in einer Zeile die Vermittlernummer ändern, wenn diese im Vector "Ausnahmen" vorkommt? Aktuell haben ich über 300 Zeilen wo R jedes Mal die komplette Datenbank durch geht und entsprechend dauert.

Re: Daten ersetzen - kurz und knapp

Verfasst: Fr Okt 16, 2020 3:01 pm
von bigben
Florianho hat geschrieben: Fr Okt 16, 2020 2:48 pmIch verwende immer diverse library, daher habe ich hier keines aufgeführt
Was bedeutet das? Dass Du vielleicht Code postest, der bei uns nicht läuft und wir sollen dann selbst suchen, ob das mit irgendeinem Paket Sinn macht?
Wie kann ich in einer Zeile die Vermittlernummer ändern, wenn diese im Vector "Ausnahmen" vorkommt? Aktuell haben ich über 300 Zeilen wo R jedes Mal die komplette Datenbank durch geht und entsprechend dauert.

Code: Alles auswählen

vermittlernummer <- c("000000", "000011", "000032", "000045")
ausnahmen <- c("000000","000045")

ifelse(vermittlernummer %in% ausnahmen,  "Ersatz", vermittlernummer)
LG,
Bernhard

PS: Tipps zum Umcodieren: viewtopic.php?f=20&t=2162

Re: Daten ersetzen - kurz und knapp

Verfasst: Fr Okt 16, 2020 3:06 pm
von jogo
Die Variante von Bernhard hatte ich auch zuerst, aber vielleicht möchtest Du wirklich auf dem ursprünglichen Vekteor arbeiten. Dann geht auch:

Code: Alles auswählen

vermittlernummer <- c("000000", "000011", "000032", "000045")
ausnahmen <- c("000000","000045")

vermittlernummer[vermittlernummer %in% ausnahmen] <- "VE_O_Z"
Gruß, Jörg

Re: Daten ersetzen - kurz und knapp

Verfasst: Di Okt 20, 2020 2:35 pm
von Florianho
Lieber Bernhard und Jörg,

vielen Dank für das Feedback. Genau das habe ich gesucht und in der Tat möchte ich den ursprünglichen Vector gleich verändern ;) . Perfekt. :D