chickwts %>% ggplot(aes(x=feed,y=weight,fill=feed))+geom_boxplot() + labs(title='Chicken Weights by Feed Type',x='Feed Type',y='Bodyweight',caption='chickwts {datasets}')