Warum habe ich verschiedene Antworten, wenn ich versuche, den Code mit ifelse anstelle von if zu ändern ... sonst ... in R

Question

Ich versuche, einige Spalten in data.frame von Integer zu numerisch zu konvertieren. Und dieses Stück Code funktioniert gut.

Aber wenn ich ifelse anstelle von wenn ... sonst .... Das Ergebnis ist Unsinn.

test.data[] <- lapply(test.data, function(x) ifelse(is.integer(x), as.numeric(x), x)) 

Warum und was ist der genaue Unterschied zwischen if ... else und ifelse hier? Danke vielmals.

Answer 1

ifelse gibt ein Ergebnis zurück, das in allen Fällen die gleiche Länge wie das erste Argument hat. Daher wird in Ihrem Beispiel das erste Element x zurückgegeben. if-else gibt einen von zwei Werten basierend auf dem einzelnen logischen Wert zurück (entweder ein Vektor der Länge eins oder das erste Element eines längeren Vektors mit einer Warnung).

> x <- c(1L, 2L, 3L) 
> ifelse(is.integer(x), as.numeric(x), x) 
[1] 1 
> y <- c(1,2,3) 
> ifelse(is.integer(y), as.numeric(y), y) 
[1] 1 

> if (TRUE) {1:10} else {11:20} 
[1] 1 2 3 4 5 6 7 8 9 10 
> if (FALSE) {1:10} else {11:20} 
[1] 11 12 13 14 15 16 17 18 19 20 

In Ihrem Fall, wenn-sonst ist die korrekte Bedienung, wie is.integer Arbeiten auf einem Vektor und gibt eine logische Länge 1.