ggplot2, dplyr, tidyr, factors