Konvertieren Sie das Spaltenformat data.frame vom Zeichen in den Faktor

Ich möchte das Format (die Klasse) einiger Spalten meines data.frame-Objekts ( mydf) von Zeichen zu Faktor ändern .

Ich möchte dies nicht tun, wenn ich die Textdatei nach read.table()Funktion lese .

Jede Hilfe wäre dankbar.

Hallo, willkommen in der Welt von R.

mtcars  #look at this built in data set
str(mtcars) #allows you to see the classes of the variables (all numeric)

#one approach it to index with the $ sign and the as.factor function
mtcars$am <- as.factor(mtcars$am)
#another approach
mtcars[, 'cyl'] <- as.factor(mtcars[, 'cyl'])
str(mtcars)  # now look at the classes

Dies funktioniert auch für Zeichen, Datumsangaben, Ganzzahlen und andere Klassen

Da Sie neu bei R sind, würde ich vorschlagen, dass Sie sich diese beiden Websites ansehen:

R Referenzhandbücher: http://cran.r-project.org/manuals.html

R Referenzkarte: http://cran.r-project.org/doc/contrib/Short-refcard.pdf

# To do it for all names
df[] <- lapply( df, factor) # the "[]" keeps the dataframe structure
 col_names <- names(df)
# do do it for some names in a vector named 'col_names'
df[col_names] <- lapply(df[col_names] , factor)

Erläuterung. Alle Datenrahmen sind Listen, und die Ergebnisse von [Argumenten mit mehreren Werten sind ebenfalls Listen. Daher ist das Durchlaufen von Listen die Aufgabe von lapply. Die obige Zuweisung erstellt eine Reihe von Listen, in die die Funktion data.frame.[<-erfolgreich wieder in den Datenrahmen eingefügt werden soll.df

Eine andere Strategie wäre, nur die Spalten zu konvertieren, in denen die Anzahl der eindeutigen Elemente unter einem bestimmten Kriterium liegt, beispielsweise weniger als das Protokoll der Anzahl der Zeilen als Beispiel:

cols.to.factor <- sapply( df, function(col) length(unique(col)) < log10(length(col)) )
df[ cols.to.factor] <- lapply(df[ cols.to.factor] , factor)

Sie können dplyr::mutate_if()alle Zeichenspalten konvertieren oder dplyr::mutate_at()benannte Zeichenspalten in Faktoren auswählen:

library(dplyr)

# all character columns to factor:
df <- mutate_if(df, is.character, as.factor)

# select character columns 'char1', 'char2', etc. to factor:
df <- mutate_at(df, vars(char1, char2), as.factor)

Wenn Sie alle Zeichenvariablen in Ihrem data.frame in Faktoren ändern möchten, nachdem Sie Ihre Daten bereits geladen haben, können Sie dies folgendermaßen in einen data.frame mit dem Namen dat:

character_vars <- lapply(dat, class) == "character"
dat[, character_vars] <- lapply(dat[, character_vars], as.factor)

Dadurch wird ein Vektor erstellt, der angibt, welche Spalten zur Klasse gehören character, und dann as.factorauf diese Spalten angewendet.

Beispieldaten:

dat <- data.frame(var1 = c("a", "b"),
                  var2 = c("hi", "low"),
                  var3 = c(0, 0.1),
                  stringsAsFactors = FALSE
                  )

Eine andere kurze Möglichkeit, die Sie verwenden können, ist eine Pipe ( %<>%) aus dem magrittr- Paket. Es konvertiert die Zeichenspalte mycolumn in einen Faktor.

library(magrittr)

mydf$mycolumn %<>% factor

Ich mache es mit einer Funktion. In diesem Fall werde ich nur Zeichenvariablen in Faktoren umwandeln:

for (i in 1:ncol(data)){
    if(is.character(data[,i])){
        data[,i]=factor(data[,i])
    }
}