Fehler: unbenutzte Argumente in ifelse in R

Question

Ich habe versucht, eine Spalte im Dataframe df mit ifelse Anweisungen mit dem folgenden Code zu diskretisieren. Die Spalte aar enthält Dezimalwerte von 0 bis 12 und NAs. Ich überprüfe, ob der numerische Wert und ordnen Sie es den Kategorien wie folgt zu.

> df= df%>% mutate(arr2= ifelse(grepl("NA", aar)==T, "NA", 
> ifelse(as.numeric(aar)==0, "0-0.99", ifelse(as.numeric(aar))==1, 
> "1-1.99", ifelse(as.numeric(aar)==2, "2-2.99", 
> ifelse(as.numeric(aar)==3, "3-3.99", ifelse(as.numeric(aar)==4, 
> "4-4.99", ifelse(as.numeric(aar)==5, "5-5.99", 
> ifelse(as.numeric(aar)==6, "6-6.99", ifelse(as.numeric(aar)==7, 
> "7-7.99", ifelse(as.numeric(aar)==8, 
> "8-8.99",ifelse(as.numeric(aar)==9, "9-9.99", 
> ifelse(as.numeric(aar)==10, "10-10.99", ifelse(as.numeric(aar)==11, 
> "11-11.99", "12"))))))))))))) 

Aber ich folgende Fehlermeldung erhalten,

Error: unused arguments ("1-1.99", ifelse(as.numeric(c("0", "NA", "0",...... 

Was mache ich falsch? Kann mir bitte jemand helfen, das Problem zu beheben?

Answer 1

Sie schließen vorzeitig eine Klammer in Ihrem Sekunden Aufruf ifelse:

> ifelse(as.numeric(aar)==0, "0-0.99", ifelse(as.numeric(aar))==1, 

sollte sein:

> ifelse(as.numeric(aar)==0, "0-0.99", ifelse(as.numeric(aar)==1, 

Ich bin kein Guru R wie @akrun, aber es muss ein besserer Weg sein, um das zu erreichen, was Sie zu tun versuchen, anstatt 12 ifelse Aufrufe zu verschachteln. Ihr aktueller Ansatz macht den Code schwer lesbar und schwieriger zu debuggen (daher Ihre Frage).