Или вы можете попробовать 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)
Это not хорошая идея перекодировать данные в код, как это, я мог бы сделать часть sapply
отдельно ( на самом деле, это гораздо проще сделать так), но вы понимаете ... Я не проверял код, потому что меня нет дома, поэтому я надеюсь, что это сработает! =)
Этот подход, однако, имеет недостаток ... вы должны реорганизовать столбцы впоследствии, а с помощью transform
вы можете делать все, что захотите, но по цене «пешеходный стиль - кодовое " ...
Итак, там ... =)