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}')