fac1 <- factor(c("Tablet-Paper", "Computer.(Laptop)", "Computer.(Laptop)"),
levels = c("Tablet-Paper", "Computer.(Laptop)"))
table(fac1)
# Remove special characters
fac2 <- cleanifyString(fac1)
fac2
Run the code above in your browser using DataLab