Форумы GIS-Lab.info

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

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

df$fc <- toString(df$fc)

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

  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"

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

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)]