如何在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")

我没有深入研究这个问题，但是因为您使用了fill = cond在ggplot（）中，

 + labs(color='NEW LEGEND TITLE') 

可能没有用。但是你取代颜色的填充，它的作品！

+ labs(fill='NEW LEGEND TITLE') 

这在ggplot2_2.1.0中对我有用

由于您有两种浓度，因此我想您可能想使用来设置自己的颜色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)过创建直方图的功能，因此需要通过在标签部分（即）中使用“填充”来添加图例标题+labs(fill="Title name")。如果您使用的代码是ggplot（data，colour = cond）的另一种绘图类型，则可以使用+labs(colour= "Title Name")。总而言之，lab参数必须与aes参数匹配。

我曾经+ guides(fill=guide_legend("my awesome title"))更改过geom_bar图上的图例标题，但它似乎不适用于geom_point。

还有另一个非常简单的答案，可以用于一些简单的图形。

只需在图形中添加对guide_legend（）的调用即可。

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

如非常好的ggplot文档所示。

如果这不起作用，则可以通过调用guides来更精确地设置您的guide参数：

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：

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