我有如下的情节如下。它是用下面的命令创建的:
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(data, fill= cond)来创建直方图，你需要添加图例标题，同时在标签部分使用“fill”，即+实验室(fill=“标题名称”)。如果您正在使用不同类型的绘图，其中代码是ggplot(data, color = cond)，那么您可以使用+实验室(color = "Title Name")。总之，lab参数必须与aes参数匹配。
我已经使用+ guides(fill=guide_legend("my awesome title"))来改变geom_bar图上的传说标题，但它似乎不适用于geom_point。
其他回答
许多人花费大量时间更改标签、图例标签、标题和轴的名称，因为他们不知道可以在R中加载包含空格“”的表。然而，你可以这样做来节省时间或减少代码的大小，通过指定分隔符当你加载一个表，例如用制表符(或任何其他分隔符，而不是默认或单个空格):
read.table(sep = '\t')
或者使用CSV格式的默认加载参数:
read.csv()
这意味着您可以直接在原始数据文件中保留“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使用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()的标题:
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中的示例进行修改。
上面的代码都不适合我。
这是我的发现，它起作用了。
实验室(颜色=“销售年份”)
你也可以在标题和显示之间加一个空格，在结尾加\n。
实验室(颜色= '销售年份\n ')
