Czy istnieje sposób, aby ggplot umieścił legendę na górze, ale poniżej tytułu?

Jako przykład...

.. wyprodukowane z następującym kodem:

<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>

Wszelkie sugestie byłyby bardzo mile widziane?