ggplotで凡例のタイトルを変更する方法

以下のようなプロットがあります。次のコマンドで作成されました：

library(ggplot2)

df <- data.frame(cond = factor(rep(c("A", "B"), each = 200)), 
                 rating = c(rnorm(200), rnorm(200, mean=.8)))

ggplot(df, aes(x=rating, fill=cond)) + 
geom_density(alpha = .3) +
xlab("NEW RATING TITLE") +
ylab("NEW DENSITY TITLE")

次に、凡例のタイトルをcondからNEW LEGEND TITLEに変更します。

だから私がやったことは、次の行を追加して上記のコードの最後を追加することです：

+labs(colour="NEW LEGEND TITLE")

しかし、それは機能しません。それを行う正しい方法は何ですか？

これはうまくいくはずです：

p <- ggplot(df, aes(x=rating, fill=cond)) + 
           geom_density(alpha=.3) + 
           xlab("NEW RATING TITLE") + 
           ylab("NEW DENSITY TITLE")
p <- p + guides(fill=guide_legend(title="New Legend Title"))

（または代わりに）

p + scale_fill_discrete(name = "New Legend Title")

私はこれについて詳しくは説明しませんでしたが、ggplot（）でfill = condを使用したため、

 + labs(color='NEW LEGEND TITLE') 

うまくいかなかったかもしれません。ただし、塗りつぶしで色を置き換えても機能します。

+ labs(fill='NEW LEGEND TITLE') 

これはggplot2_2.1.0で私のために働きました

濃度が2つあるので、で独自の色を設定したいと思うかもしれませんscale_fill_manual。

もしそうなら：

df <- data.frame(x=1:10,group=c(rep("a",5),rep("b",5)))

legend_title <- "OMG My Title"

ggplot(df, aes(x=x, fill=group)) + geom_density(alpha=.3) +   
    scale_fill_manual(legend_title,values=c("orange","red"))

上記のコードはどれもうまくいきませんでした。

これが私が見つけたもので、うまくいきました。

labs(color = "sale year")

\n最後にを追加して、タイトルとディスプレイの間にスペースを空けることもできます。

labs(color = 'sale year\n")

コードでggplot(data, fill= cond)はヒストグラムを作成するために使用したので、ラベルセクションで "fill"を使用して凡例のタイトルを追加する必要があります+labs(fill="Title name")。コードがggplot（data、colour = cond）である別のタイプのプロットを使用して+labs(colour= "Title Name")いる場合は、を使用できます。要約すると、ラボの引数はaesの引数と一致する必要があります。

+ guides(fill=guide_legend("my awesome title"))geom_barプロットで凡例のタイトルを変更するのに使用しましたが、geom_pointでは機能しないようです。

いくつかの単純なグラフで機能する別の非常に単純な答えがあります。

グラフにguide_legend（）の呼び出しを追加するだけです。

ggplot(...) + ... + guide_legend(title="my awesome title")

非常に素晴らしいggplotドキュメントに示されているように。

それでもうまくいかない場合は、guidesを呼び出して、より正確にガイドパラメータを設定できます。

ggplot(...) + ... + guides(fill=guide_legend("my awesome title"))

これらのパラメータを指定して、形状、色、サイズを変えることもできますguides。

リストに追加するだけで（ここでは他のオプションは機能しませんでした）、ggplotに関数update_labelsを使用することもできます。

p <- ggplot(df, aes(x=rating, fill=cond)) + 
           geom_density(alpha=.3) + 
           xlab("NEW RATING TITLE") + 
           ylab("NEW DENSITY TITLE")

update_labels(p, list(colour="MY NEW LEGEND TITLE")

これにより、x軸とy軸のラベルを別々の行で変更することもできます。

update_labels(p, list(x="NEW X LABEL",y="NEW Y LABEL")

ggboxplot（）のlegend.titleを変更/指定するには2つの方法があることに気づきました：

library(ggpubr)

bxp.defaultLegend <- ggboxplot(ToothGrowth, x = "dose", y = "len",
                               color = "dose", palette = "jco")

# Solution 1, setup legend.title directly in ggboxplot()
bxp.legend <- ggboxplot(ToothGrowth, x = "dose", y = "len",
                 color = "dose", palette = "jco", legend.title="Dose (mg)")

# Solution 2: Change legend title and appearnace in ggboxplot() using labs() and theme() option:
plot1 <-  bxp.defaultLegend + labs(color = "Dose (mg)") +
  theme(legend.title = element_text(color = "blue", size = 10), legend.text = element_text(color = "red"))

ggarrange(list(bxp.legend, bxp.defaultLegend, plot1), nrow = 1, ncol = 3,  common.legend = TRUE)

コードはGitHubの例に基づいて変更されています。

私のggplotでfacet_wrapを使用していますが、ArnaudAの解決策を除いて、提案された解決策はどれもうまくいきませんでした。

qplot(…) + guides(color=guide_legend(title="sale year")) 

多くの人は、ラベル、凡例ラベル、タイトル、軸の名前の変更に多くの時間を費やしています" "。なぜなら、スペースを含むRにテーブルをロードすることが可能であることを知らないからです。ただし、これを行うと、たとえばタブで区切られたテーブル（またはデフォルト以外のセパレータまたは単一のスペース）をロードするときにセパレータを指定することで、時間を節約したり、コードのサイズを小さくしたりできます。

read.table(sep = '\t')

または、csv形式のデフォルトの読み込みパラメータを使用する：

read.csv()

つまり、名前"NEW LEGEND TITLE"を元のデータファイルの列名（ヘッダー）として直接保持できるため、すべてのプロットで新しい凡例のタイトルを指定する必要がありません。

ggplot(df) + labs(legend = '<legend_title>')