Ниже приведен код, который перекодирует числовой коэффициент в символьный вектор с использованием функции revalue
из пакета plyr
:
library(plyr)
foo <- factor(c(1, 2, 1, 2))
foo
# [1] 1 2 1 2
# Levels: 1 2
bar <- c("Want Know", "Need Help")
names(bar) <- 1:2
res <- as.character(revalue(foo, replace = bar))
res
# [1] "Want Know" "Need Help" "Want Know" "Need Help"