Konwertuj format kolumny data.frame ze znaku na współczynnik

Chciałbym zmienić format (klasę) niektórych kolumn mojego obiektu data.frame ( mydf) ze znaku na czynnik .

Nie chcę tego robić, gdy czytam plik tekstowy według read.table()funkcji.

Każda pomoc będzie mile widziana.

Witam 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

Działa to również w przypadku znaków, dat, liczb całkowitych i innych klas

Ponieważ nie znasz języka R, sugeruję, abyś przyjrzał się tym dwóm stronom internetowym:

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

R Karta referencyjna: 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)

Wyjaśnienie. Wszystkie ramki danych są listami, a wyniki [użycia z argumentami o wielu wartościach są również listami, więc zadaniem list jest pętla lapply. Powyższe przypisanie utworzy zestaw list, które funkcja data.frame.[<-powinna z powodzeniem umieścić z powrotem w ramce danych,df

Inną strategią byłoby przekonwertowanie tylko tych kolumn, w których liczba unikalnych pozycji jest mniejsza niż pewne kryterium, powiedzmy, że jest mniejsza niż dziennik liczby wierszy na 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)

Możesz użyć dplyr::mutate_if()do konwersji wszystkich kolumn znaków lub dplyr::mutate_at()do wybrania nazwanych kolumn znaków na współczynniki:

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)

Jeśli chcesz zmienić wszystkie zmienne znakowe w data.frame na współczynniki po załadowaniu danych, możesz 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)

Spowoduje to utworzenie wektora określającego, które kolumny są klasowe character, a następnie zastosuje as.factordo tych kolumn.

Przykładowe dane:

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

Innym krótkim sposobem, którego możesz użyć, jest pipe ( %<>%) z pakietu magrittr . Konwertuje kolumnę znaku mycolumn na współczynnik.

library(magrittr)

mydf$mycolumn %<>% factor

Robiłem to z funkcją. W tym przypadku zmienię tylko zmienne znakowe na czynniki:

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