Gemeinsame Nutzung „für“ und „wenn“ Operatoren in R

Ich möchte alle nicht-Faktoren von einem Datenrahmen d3 und sie in der Tabelle mGemeinsame Nutzung „für“ und „wenn“ Operatoren in R

for (i in 1:12) { 
    m<-as.data.frame(matrix(100,nrow = nrow(d3),ncol = ncol(d3))) 
    if (!is.factor(d3[,i])){ 
    m[,i]<-d3[,i] 
    } 
    }

Für bestimmte Werte von setzen sammeln i (zB wenn ich = 2), bekomme ich was ich will. Aber Schleifen funktioniert nicht. Wo mache ich oben im Code einen Fehler?

Quelle

2017-01-15 Vaagn

Sie können mit der Funktion ** mutate_if ** aus dem ** dplyr ** -Paket experimentieren. Ähnliches sollte wie folgt funktionieren: m <- d3 %>% dplyr :: mutate_if (! Is.factor)%>% as.table() ** – Ferdi

Bitte, [editieren] Sie Ihre Frage und beschreiben Sie, was Sie mit "aber Schleifen" meinen nicht arbeiten". – Uwe

und die Bereitstellung der 'd3' Daten wäre eine große Hilfe. – SymbolixAU

Sie erstellen m jedes Mal durch die Schleife; es sollte draußen sein.

m <- as.data.frame(matrix(100, nrow = nrow(d3), ncol = ncol(d3))) 
for (i in 1:12) { 
    if (!is.factor(d3[, i])) { 
    m[, i] <- d3[, i] 
    } 
}

Aber Sie sollten wirklich nur vektorisiert Operationen verwendet werden, alles auf einmal zu tun.

nonf <- !sapply(d3, is.factor) 
m[, nonf] <- d3[, nonf]

Quelle

2017-01-15 15:47:27 Aaron

Gemeinsame Nutzung „für“ und „wenn“ Operatoren in R

Antwort

Verwandte Themen