Конвертировать столбцы data.frame из факторов в символы

Чтобы заменить только факторы:

i <- sapply(bob, is.factor)
bob[i] <- lapply(bob[i], as.character)

В пакете dplyr в версии 0.5.0 появилась новая функция mutate_if:

library(dplyr)
bob %>% mutate_if(is.factor, as.character) -> bob

Пакет purrr из RStudio дает еще одну альтернативу:

library(purrr)
library(dplyr)
bob %>% map_if(is.factor, as.character) %>% as_data_frame -> bob

(имейте в виду свежий пакет)

Глобальная опция

stringsAsFactors:     Значение по умолчанию для аргументов data.frame и read.table.

может быть то, что вы хотите установить в FALSE в ваших загрузочных файлах (например, ~/.Rprofile). См. help(options).

Я знаю, что этот ответ немного запоздал, но если вы понимаете, как факторы хранятся, вы можете избежать использования прикладных функций для достижения этого. Это вовсе не означает, что применяемые решения не работают хорошо.

Факторы структурированы как числовые индексы, привязанные к списку "уровней". Это можно увидеть, если вы преобразуете коэффициент в числовой. Итак:

> fact <- as.factor(c("a","b","a","d")
> fact
[1] a b a d
Levels: a b d

> as.numeric(fact)
[1] 1 2 1 3

Цифры, возвращаемые в последней строке, соответствуют уровням фактора.

> levels(fact)
[1] "a" "b" "d"

Обратите внимание, что levels() возвращает массив символов. Вы можете использовать этот факт для легкого и компактного преобразования факторов в строки или числовые значения следующим образом:

> fact_character <- levels(fact)[as.numeric(fact)]
> fact_character
[1] "a" "b" "a" "d"

Это также работает для числовых значений, если вы завершаете свое выражение в as.numeric().

> num_fact <- factor(c(1,2,3,6,5,4))
> num_fact
[1] 1 2 3 6 5 4
Levels: 1 2 3 4 5 6
> num_num <- as.numeric(levels(num_fact)[as.numeric(num_fact)])
> num_num
[1] 1 2 3 6 5 4

Если вам нужен новый кадр данных bobc, где каждый вектор факторов в bobf преобразуется в вектор символов, попробуйте следующее:

bobc <- rapply(bobf, as.character, classes="factor", how="replace")

Если вы хотите его переконвертировать, вы можете создать логический вектор, столбцы которого являются факторами, и использовать его для выборочного применения коэффициента

f <- sapply(bobf, class) == "factor"
bobc[,f] <- lapply(bobc[,f], factor)

Я обычно делаю эту функцию отдельно от всех моих проектов. Быстро и легко.

unfactorize <- function(df){
  for(i in which(sapply(df, class) == "factor")) df[[i]] = as.character(df[[i]])
  return(df)
}

Другой способ - преобразовать его, применив

bob2 <- apply(bob,2,as.character)

И лучший (предыдущий - это "матрица" класса)

bob2 <- as.data.frame(as.matrix(bob),stringsAsFactors=F)

Или вы можете попробовать transform:

newbob <- transform(bob, phenotype = as.character(phenotype))

Просто убедитесь, что все факторы, которые вы хотели бы преобразовать в символ.

Или вы можете сделать что-то подобное и убить всех вредителей одним ударом:

newbob_char <- as.data.frame(lapply(bob[sapply(bob, is.factor)], as.character), stringsAsFactors = FALSE)
newbob_rest <- bob[!(sapply(bob, is.factor))]
newbob <- cbind(newbob_char, newbob_rest)

не хорошая идея перетащить данные в код, как это, я мог бы сделать часть sapply по отдельности (на самом деле это намного проще сделать так), но вы получаете точку... Я не проверял код, потому что меня нет дома, поэтому я надеюсь, что это сработает! =)

Этот подход, однако, имеет недостаток... вы должны впоследствии реорганизовать столбцы, а при transform вы можете делать все, что захотите, но по цене "пешеходного стиля-написания кода"...

Итак, там... =)

Обновление: Здесь пример того, что не работает. Я думал, что это будет, но я думаю, что параметр strAsAsFactors работает только на символьных строках - он оставляет только факторы.

Попробуйте следующее:

bob2 <- data.frame(bob, stringsAsFactors = FALSE)

Вообще говоря, всякий раз, когда у вас возникают проблемы с факторами, которые должны быть персонажами, установите параметр stringsAsFactors где-нибудь, чтобы помочь вам (включая глобальные настройки).

В начале вашего фрейма данных включите stringsAsFactors = FALSE, чтобы игнорировать все недоразумения.

Если вы используете пакет data.table для операций с data.frame, тогда проблемы нет.

library(data.table)
dt = data.table(col1 = c("a","b","c"), col2 = 1:3)
sapply(dt, class)
#       col1        col2 
#"character"   "integer" 

Если у вас уже есть столбцы факторов в вашем наборе данных, и вы хотите преобразовать их в символ, вы можете сделать следующее.

library(data.table)
dt = data.table(col1 = factor(c("a","b","c")), col2 = 1:3)
sapply(dt, class)
#     col1      col2 
# "factor" "integer" 
upd.cols = sapply(dt, is.factor)
dt[, names(dt)[upd.cols] := lapply(.SD, as.character), .SDcols = upd.cols]
sapply(dt, class)
#       col1        col2 
#"character"   "integer" 

Это работает для меня - я, наконец, понял один лайнер

df <- as.data.frame(lapply(df,function (y) if(class(y)=="factor" ) as.character(y) else y),stringsAsFactors=F)

Эта функция выполняет трюк

df <- stacomirtools::killfactor(df)