open_in_new
content_copy
data$Category <- factor(data$Category, levels = c("Category 3", "Category 1", "Category 2"))