¿Hay alguna manera de hacer que ggplot coloque la leyenda en la parte superior pero debajo del título?

Como ejemplo...

..producido con el siguiente código:

<code>carrots<-list(Yield=c(345,226,74,559,288,194), 
              Field=c("A","B","C","D","E","F"), 
              Breed=rep(c("Long","Short"),each=3)) 
carrots<-data.frame(carrots) 

ggplot(carrots,aes(y=Yield,x=Field,fill=Breed)) + 
  geom_bar() + 
  opts(title="Title",
       legend.direction = "horizontal", 
       legend.position = "top") + 
         labs(fill="") 
</code>

¿Alguna sugerencia sería muy apreciada?