Recode the levels
with a list.
table1$Size.fac <- factor(table1$Size)
levels(table1$Size.fac) <- list("small" = 1:10,
"medium" = 11:49,
"large" = 50:200)
table1
# Size Size.fac
# 1 156 large
# 2 17 medium
# 3 128 large
# 4 7 small
# 5 77 large
# 6 112 large
Data:
table1 <- structure(list(Size = c(156L, 17L, 128L, 7L, 77L, 112L)), row.names = c(NA,
6L), class = "data.frame")