Set custom legend shape manually

Question

Here is a boxplot.

ggplot(iris,aes(x=Species,y=Petal.Width,col=Species))+
  geom_boxplot()

I would like to change the default shape i