凡例の位置が下部などの場合、凡例のタイトルをラベルの上に配置するにはどうすればよいですか？

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以上の多くのバージョンである場合でも、まだ良好であることに気づきました。 これは、もはやライブラリ（スケール）の呼び出しが必要ではないことに気付きました。 ほしいと思っています。