C01_S07_Factors

Original ratings:

x <- c(3,2,2,3,1,2,3,2,1,2)
xf <- factor(x, labels=c("bad","okay","good")) 

x

 [1] 3 2 2 3 1 2 3 2 1 2

xf

 [1] good okay okay good bad  okay good okay bad  okay
Levels: bad okay good