Легенда ggplot сверху, но ниже названия?

Есть ли способ заставить ggplot разместить легенду сверху, но ниже названия?

В качестве примера...

enter image description here

.. производится со следующим кодом:

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="") 

Любые предложения были бы весьма полезными?

Ответ 1

Изменить. Игнорировать это. Проблема уже не проблема. Но код был обновлен, чтобы он больше не выдавал ошибку.

В ожидании следующей версии вы можете настроить мелодию в ggplot2. Например:

ggplot(carrots, aes(y = Yield, x = Field, fill = Breed)) + 
  geom_bar(stat = "identity") + 
  theme(
     plot.margin = unit(c(2, 1, 1, 1), "cm"), 
     plot.title = element_text(size = 30, face = "bold", colour = "blue", vjust = 7), 
     legend.direction = "horizontal",
     legend.position = c(0.1, 1.05)) + 
   ggtitle("Title") +
  labs(fill = "")