如果图例位置是底部，我怎样才能将图例标题放在标签的顶部？

Question

例子：

xy <- data.frame(x=1:10, y=10:1, type = rep(LETTERS[1:2], each=5)) 

plot <- ggplot(data = xy)+ 
    geom_point(aes(x = x, y = y, color=type)) + 
    theme(legend.position = 'bottom') 

plot 

我们怎样才能获得标题“类型” A和B的顶部，而不是给他们留下？

感谢

Answer 1

你可以摆脱使用指南（）你的问题，并指定标题的位置。

library(ggplot2) 
xy <- data.frame(x=1:10, y=10:1, type = rep(LETTERS[1:2], each=5)) 

plot <- ggplot(data = xy)+ geom_point(aes(x = x, y = y, color=type)) + 
     theme(legend.position = 'bottom') + 
     guides(colour = guide_legend(title.position = "top")) 

plot 

虽然这是旧的，我注意到，这个答案 Legend title position in ggplot2是好的呢，即使是GGPLOT2现在很多版本在0.9以上。 我注意到不再需要调用库（尺度）。 希望这会有所帮助