我有如下的情节如下。它是用下面的命令创建的:
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")
但这并不奏效。正确的做法是什么?
当前回答
为了添加到列表中(这里的其他选项对我不起作用)，你还可以为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")
其他回答
唯一对我有效的办法是: p + guides(fill=guide_legend("New title"))
因为你有两个密度，我想你可能想用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"))
我在ggplot中使用facet_wrap，除了ArnaudA的解决方案外，没有一个建议的解决方案适合我:
qplot(…) + guides(color=guide_legend(title="sale year"))
将此添加到混合，当你改变了颜色。这也适用于我的qplot与两个离散变量:
p+ scale_fill_manual(values = Main_parties_color, name = "Main Parties")
为了添加到列表中(这里的其他选项对我不起作用)，你还可以为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")
