Конвертировать фактор в текст

[VistaSV30]

Добрый день!
У меня есть таблица с факторами. Факторы нужно конвертировать в текст

Код: Выделить всё

fn <- 1:5
fc <- as.factor(letters[1:5])
df <- data.frame(fn, fc)

df$fc <- toString(df$fc)

В результате получается в fc не отдельные буквы, а все уровни фактора в формате chr

Код: Выделить всё

  fn            fc
1  1 a, b, c, d, e
2  2 a, b, c, d, e
3  3 a, b, c, d, e
4  4 a, b, c, d, e
5  5 a, b, c, d, e

# А мне надо
  fn fc
1  1  "a"
2  2  "b"
3  3  "c"
4  4  "d"
5  5  "e"

Спасибо!

[VistaSV30]

Всё проблема решена!
Может быть кому пригодится:

Код: Выделить всё

fn <- 1:5
fc <- as.factor(letters[1:5])
fc1 <- as.factor(letters[1:5])

df <- data.frame(fn, fc, fc1)

df$fc <- levels(df$fc)[as.numeric(df$fc)]

[gamm]

Можно просто as.character(factor)

[VistaSV30]

Можно просто as.character(factor)

Да, действительно!
А я думал, что toString() и as.character() работают одинаково.
Спасибо!