Subset Variablen im Datenrahmen basierend auf Spaltentyp

Question

Ich brauche Teilmenge Datenrahmen basierend auf Spaltentyp - zum Beispiel aus Datenrahmen mit 100 Spalten Ich muss nur die Spalte mit Typ factor oder integer halten. Ich habe eine kurze Funktion dafür geschrieben, aber gibt es eine einfachere Lösung oder eine eingebaute Funktion oder ein Paket auf CRAN?

Meine aktuelle Lösung Variablennamen mit angeforderten Typen zu bekommen:

varlist <- function(df=NULL, vartypes=NULL) { 
    type_function <- c("is.factor","is.integer","is.numeric","is.character","is.double","is.logical") 
    names(type_function) <- c("factor","integer","numeric","character","double","logical") 
    names(df)[as.logical(sapply(lapply(names(df), function(y) sapply(type_function[names(type_function) %in% vartypes], function(x) do.call(x,list(df[[y]])))),sum))] 
} 

Die Funktion varlist funktioniert wie folgt:

1. Für jeden gewünschten und für jede Spalte in Datenrahmen Call „ist. TYPE "Funktion
2. Summe Tests für jede Variable (Boolean wird automatisch in Integer umgewandelt)
3. Ergebnis auf logischen Vektor umwandeln
4. Teilmenge Namen in Datenrahmen

Und einige Daten, die es zu testen:

df <- read.table(file="http://archive.ics.uci.edu/ml/machine-learning-databases/statlog/german/german.data", sep=" ", header=FALSE, stringsAsFactors=TRUE) 
names(df) <- c('ca_status','duration','credit_history','purpose','credit_amount','savings', 'present_employment_since','installment_rate_income','status_sex','other_debtors','present_residence_since','property','age','other_installment','housing','existing_credits', 'job','liable_maintenance_people','telephone','foreign_worker','gb') 
df$gb <- ifelse(df$gb == 2, FALSE, TRUE) 
df$property <- as.character(df$property) 
varlist(df, c("integer","logical")) 

Ich frage, weil mein Code wirklich kryptisch und schwer zu verstehen (auch für mich sieht, und ich habe beendete die Funktion vor 10 Minuten).

Answer 1

subset_colclasses <- function(DF, colclasses="numeric") { 
    DF[,sapply(DF, function(vec, test) class(vec) %in% test, test=colclasses)] 
} 

str(subset_colclasses(df, c("factor", "integer"))) 

Answer 2

tun Sie einfach das folgende:

df[,sapply(df,is.factor) | sapply(df,is.integer)]