Convert factor to numeric without losing information on the label
unfactor(f)
f
A numeric vector
unfactor(factor(c("1","3","3"),levels=c("1","3"))) # contrast this to: as.numeric(factor(c("1","3","3"),levels=c("1","3")))
Useful links