The data is as follows:
cat <- c(\'A\',\'A\',\'A\',\'B\',\'B\',\'A\',\'C\',\'B\') value <- c(1,1,1,2,2,1,3,2) df <- data.frame(cat,value)