require(ggplot2)
## Loading required package: ggplot2
b = ggplot(iris,aes(x=Species,y=Sepal.Width,fill = Species))+geom_boxplot()
b+theme(legend.position="top")+guides(fill = guide_legend(title = NULL))