Перетворити формат стовпців data.frame з символу в фактор

Я хотів би змінити формат (клас) деяких стовпців мого data.frame object ( mydf) з charactor на factor .

Я не хочу цього робити, коли читаю текстовий файл за read.table()функціями.

Будь-яка допомога буде вдячна.

Привіт, ласкаво просимо у світ Р.

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

Це також працює для символів, дат, цілих чисел та інших класів

Оскільки ви новачок у R, я б запропонував вам переглянути ці два веб-сайти:

Довідкові посібники: http://cran.r-project.org/manuals.html

R Довідкова картка: 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)

Пояснення. Усі фрейми даних - це списки, а результати [використовуваних з декількома значеннями аргументів також є списками, тому завдання циклічного перегляду списків є завданням lapply. Вищевказане призначення створить набір списків, які функція data.frame.[<-повинна успішно вставляти в рамку даних,df

Іншою стратегією було б перетворення лише тих стовпців, де кількість унікальних елементів менша за якийсь критерій, скажімо, менша, ніж журнал кількості рядків як приклад:

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

Ви можете використовувати dplyr::mutate_if()для перетворення всіх стовпців символів або dplyr::mutate_at()для вибору іменних стовпців символів у фактори:

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)

Якщо ви хочете змінити всі змінні символів у вашому data.frame на фактори після того, як ви вже завантажили свої дані, ви можете це зробити так, як у data.frame з назвою dat:

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

Це створює вектор, який визначає, які стовпці класу character, а потім застосовується as.factorдо цих стовпців.

Приклад даних:

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

Ще один короткий спосіб, який ви можете використовувати, - це труба ( %<>%) з пакету magrittr . Він перетворює мій стовпець стовпця символів у фактор.

library(magrittr)

mydf$mycolumn %<>% factor

Я роблю це з функцією. У цьому випадку я перетворять лише змінні символи у фактор:

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