ggplot(mtcars) + geom_bar(aes(am))
ggplot(mtcars) + geom_bar(aes(factor(am), fill=factor(am)))
ggplot(mtcars) + geom_bar(aes(x="", fill=factor(am))) + coord_polar(theta="y")
fills <- scales::pal_hue()(2) ggplot(mtcars) + geom_bar(aes(factor(am), fill=factor(am)))
fills <- scales::pal_hue()(2) ggplot(mtcars) + geom_bar(aes(factor(am), fill=factor(am))) + scale_fill_manual(values=colorspace::deutan(fills))