Chapter 6 Problem 6

library(ggplot2)
library(RColorBrewer)
ggplot(mpg,aes(manufacturer, fill=class))+
  geom_bar(width=0.5)+
  theme_minimal()+
  theme(axis.text.x = element_text(angle=65))+
  scale_fill_brewer(palette="Spectral")+
  labs(title="Barplot", subtitle = "Manufacturer across vehicle Classes", caption = "Source:mpg")