Konwertuj format kolumny danych.frame z postaci na czynnik

Question

Programuję w języku R. Chciałbym zmienić format (klasa) niektórych kolumn mojego obiektu data.frame (mydf) z charactor na czynnik. Nie chcę tego robić, gdy czytam plik tekstowy przez funkcję read.table(). Każda pomoc będzie doceniona.

Answer 1

Cześć witamy w świecie 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 

ta działa również w charakterze, dat, liczb i innych klas

Ponieważ jesteś nowy R Sugeruję masz spojrzeć na tych dwóch stronach internetowych:

R podręczniki: http://cran.r-project.org/manuals.html

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

Answer 2

# 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) 

Wyjaśnienie. Wszystkie ramki danych są listami, a wyniki [ używane z argumentami o wielu wartościach są również listami, więc zapętlenie list jest zadaniem lapply. Powyższe zadanie będzie utworzyć zestaw list, że funkcja data.frame.[<- powinny skutecznie przykleić z powrotem do dataframe, df

Inną strategią byłoby przekształcić tylko te kolumny, gdzie liczba unikalnych przedmiotów jest mniejsza od pewnego kryterium, powiedzmy, mniej niż logarytmu liczby wierszy jako przykład:

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

Answer 3

Jeśli chcesz zmienić wszystkie zmienne znak w data.frame czynników po już załadowane dane, można to zrobić w ten sposób do data.frame o nazwie dat:

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

To tworzy wektor określający, które kolumny są klasy character, a następnie stosuje as.factor do tych kolumn.

dane próbki:

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

Answer 4

Kolejny krótki sposób można użyć jest rura (%<>%) od magrittr opakowaniu. Konwertuje kolumnę znaków mycolumn na współczynnik.

library(magrittr) 

mydf$mycolumn %<>% factor 

Answer 5

Robię to z funkcją. W tym przypadku będę przekształcić tylko zmienne znakowe czynnik:

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