You have factor, I assume, therefore:
fert <- factor(c(50,20,10,10,20,50))
levels(fert)
#[1] "10" "20" "50"
Factors are stored as sequential numbers with labels, for example:
as.numeric(fert)
So, since:
levels(fert)[c(3,2,1,1,2,3)]
#[1] "50" "20" "10" "10" "20" "50"
then
levels(fert)[fert]
#[1] "50" "20" "10" "10" "20" "50"
source
share