I have a data frame like this:df <- (category=c('a', 'b', 'c',�