Preview:
data$Category <- factor(data$Category, levels = c("Category 3", "Category 1", "Category 2"))
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter