R: Erstellen von Dummy-Variablen für Werte einer Variablen abhängig, eine andere Variable

Question

ursprüngliche Frage

ich eine Reihe von Dummy-Variablen in einem Datenrahmen für jeden Wert von x in dem Datenrahmen hinzugefügt werden soll, aber enthaltend eine NA, wenn Eine andere Variable ist NA. Zum Beispiel nehme ich die folgenden Datenrahmen haben:

x <- seq(1:5) 
y <- c(NA, 1, NA, 0, NA) 
z <- data.frame(x, y) 

Suche zu produzieren:

• var1, so dass: z $ var1 == 1, wenn x == 1, sonst, wenn y = = NA, z $ var1 == NA, sonst z $ var1 == 0.
• var2 so dass: z $ var2 == 1 wenn x == 2, sonst wenn y == NA, z $ var2 == NA , sonst z $ var2 == 0.
• var3 usw.

Ich kann nicht herausfinden, wie man dies vektorisiert. Ich suche nach einer Lösung, die für eine große Anzahl von Werten von x verwendet werden kann.

UPDATE

Es gab einige Verwirrung, die ich durch jeden Index von x wiederholen wollte. Ich suche nicht danach, sondern nach einer Lösung, die für jeden eindeutigen Wert von x eine Variable erzeugt. Wenn Sie die folgenden Daten als Eingabe unter:

x <- c(1,1,2,3,9) 
y <- c(NA, 1, NA, 0, NA) 
z <- data.frame(x, y) 

ich suche z $ var1, z $ var2, z $ var3, z $ var9 wo z $ var1 < - c (1, 1, NA, 0 , NA) und z $ var2 < - c (NA, 0, 1, 0, NA). Die ursprüngliche Lösung erzeugt z $ var1 < - z $ var2 < - c (1,1, NA, 0, NA).

Answer 1

Sie können die ifelse verwenden, um die Variablen zu konstruieren vektorisiert wird:

cbind(z, setNames(data.frame(sapply(unique(x), function(i) ifelse(x == i, 1, ifelse(is.na(y), NA, 0)))), 
        paste("var", unique(x), sep = ""))) 

    x y var1 var2 var3 var9 
1 1 NA 1 NA NA NA 
2 1 1 1 0 0 0 
3 2 NA NA 1 NA NA 
4 3 0 0 0 1 0 
5 9 NA NA NA NA 1 

aktualisieren:

cbind(z, data.frame(sapply(unique(x), function(i) ifelse(x == i, 1, ifelse(is.na(y), NA, 0))))) 
    x y X1 X2 X3 X4 
1 1 NA 1 NA NA NA 
2 1 1 1 0 0 0 
3 2 NA NA 1 NA NA 
4 3 0 0 0 1 0 
5 9 NA NA NA NA 1