Using the mpg dataset in the ggplot2 package. replicate the plot below using the foolowing settings.
library(RColorBrewer) ggplot(mpg, aes(manufacturer, fill = class)) + geom_bar(width = 0.5) + scale_fill_brewer(palette = "Spectral") + theme_minimal() + theme(axis.text.x = element_text(angle = 65, hjust=1)) + labs( title = "Barplot", subtitle = "Manufacturer across Vehicle Classes" )