library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
q=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}')