graph test

library("tidyverse")
data("gss_cat")
a <- gss_cat %>%
count(race, rincome)

ggplot(a, aes(race, n)) + geom_col(aes(fill=rincome), position = "dodge", color = "black", alpha = .6)  + theme(legend.position = "bottom")