Existe uma maneira de fazer ggplot colocar a legenda no topo, mas abaixo do título?

Como um exemplo...

..produzido com o seguinte 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>

Alguma sugestão seria muito apreciada?