R: Iterativ nicht NA-Werte für Spalten in einer Datentabelle extrahieren und in separate Spalten aufteilen, ohne Spaltennamen einzugeben

Question

Ich arbeite mit einem großen Dataset, das viele Variablen enthält. Daher möchte ich vermeiden, jederzeit Spaltennamen einzugeben. Ich möchte die Spalten in meinen Daten durchlaufen und die Wert enthaltenen Felder pro Spalte extrahieren. Mit anderen Worten, ich möchte getrennte Datentabellen für jede Spalte haben, von denen keine NA-Werte enthält.

Meine Vorgehensweise besteht darin, eine Schleife zu schreiben, die zuerst die NA-Werte pro Spalte eliminiert. Ich extrahierte die Spaltennamen in einer separaten Spaltenmatrix beim Lesen der .csv-Datei (mit fread). Das Problem ist, dass ich es nicht geschafft habe, die Spaltennamen oder die NA mit meinem Ansatz auszuschließen. Ich arbeitete ein kleines Beispiel, das Problem zu veranschaulichen:

# Example data 
dt = data.table(color=c("b","g","r","y",NA), 
       size=c("S", "XL", NA, NA, "M"), 
       number=(1:5)) 
columns = matrix(c("color", "size", "number"), nrow=3, ncol=1) 

Die Schleife unten arbeitet gezeigt, obwohl es nicht wirklich eine Schleife ist, weil es erfordert immer noch die Spaltennamen in der ersten Zeile eingefügt:

# Works (but requires typing in the column name) 
for(i in 1:1){ 
    var <- dt %>% group_by(color) %>% filter(!is.na(color)) 
    name <- paste("new", columns[i], sep=".") 
    assign(name, var[, columns[i], with=FALSE])} 

# Output: 
    color 
(chr) 
1  b 
2  g 
3  r 
4  y 

Meine Idee ist es, innerhalb der Schleife auf die nachfolgenden Spalten zu verweisen, indem Sie die extrahierten Spaltennamen verwenden. Das Problem hierbei ist, dass die NA-Werte nicht ausscheiden, dh die erste Zeile des Codes innerhalb der Schleife nicht funktioniert:

# Does not work 
for(i in 1:1){ 
    var <- dt %>% group_by(columns[i]) %>% filter(!is.na(columns[i])) 
    name <- paste("new", columns[i], sep=".") 
    assign(name, var[, columns[i], with=FALSE])} 

# Output: 
    color 
(chr) 
1  b 
2  g 
3  r 
4  y 
5 NA 

Kann mir jemand separaten Spalten, um am Ende mit (ungleicher Länge) helfen die keine NA-Werte enthalten, ohne die Spaltennamen einzugeben? (Eine andere Herangehensweise, als ich verwendet habe, ist sicherlich auch willkommen.) Danke im Voraus!

Answer 1

sapply(columns, function(x) c(na.omit(dt[[x]])), USE.NAMES = T) 
#$color 
#[1] "b" "g" "r" "y" 
# 
#$size 
#[1] "S" "XL" "M" 
# 
#$number 
#[1] 1 2 3 4 5 

Die c() ist nicht notwendig - Ich habe es nur na.omit Klasse Info abzustreifen die Ausgabe klarer zu machen.

Und nicht assign verwenden - speichern Sie die Elemente in einer Liste wie oben und arbeiten Sie damit.