[英]ggplot2: merge legends for geom_line, geom_point, and geom_bar
在ggplot2
图中,我将geom_line
和geom_point
与geom_bar
结合geom_line
,并且在将图例合并到一个框中时遇到了问题。
基本情节的代码如下。 使用的数据进一步下降。
# Packages
library(ggplot2)
library(scales)
# Basic Plot
ggplot(data = df1, aes(x = Year, y = value, group = variable,
colour = variable, shape = variable)) +
geom_line() +
geom_point(size = 3) +
geom_bar(data = df2, aes(x = Year, y = value, fill = variable),
stat = "identity", alpha = 0.8) +
ylab("Current Account Transactions (Billion $)") +
xlab(NULL) +
theme_bw(14) +
scale_x_discrete(breaks = seq(1999, 2013, by = 2)) +
scale_y_continuous(labels = dollar, limits = c(-1, 4),
breaks = seq(-1, 4, by = .5)) +
geom_hline(yintercept = 0) +
theme(legend.key = element_blank(),
legend.background = element_rect(colour = 'black', fill = 'white'),
legend.position = "top", legend.title = element_blank()) +
guides(col = guide_legend(ncol = 1), fill = NULL, colour = NULL)
我的目标是将传说合并在一起。 出于某种原因,“当前账户余额”出现在顶部图例中(我不明白为什么),而“出口”和“进口”图例则混淆了黑色背景和缺少形状。
如果我在aes
之外fill
,我可以获得“Imports”和“Exports”的图例以显示正确的形状和颜色而没有黑色背景,但是我失去了“当前账户余额”的fill
图例。 “
我之前使用过的一些技巧,即使用scale_colour_manual
, scale_shape_manual
和scale_fill_manual
(可能还有scale_alpha
)似乎在这里不起作用。 让它工作会很好。 但请注意,有了这个技巧,据我所知,人们必须手动指定颜色,形状和填充,我真的不想这样做,因为我对默认颜色/形状/填充非常满意。
我通常会这样做,但它不起作用:
library(RColorBrewer)
cols <- colorRampPalette(brewer.pal(9, "Set1"))(3)
last_plot() + scale_colour_manual(name = "legend", values = cols) +
scale_shape_manual(name = "legend", values = c(0,2,1)) +
scale_fill_manual(name = "legend", values = "darkred")
在上面我没有指定标签,因为在我的问题中,我将处理大量数据,手动指定标签是不切实际的。 我希望ggplot2使用默认标签。 出于同样的原因,我想使用默认的颜色/形状/填充。
其他地方已经报道过类似的困难,例如这里为复杂的情节构建一个手动图例 ,但我还没有设法解决我的问题。
有任何想法吗?
# Data
df1 <- structure(list(Year = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L,
7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L), .Label = c("1999",
"2000", "2001", "2002", "2003", "2004", "2005", "2006", "2007",
"2008", "2009", "2010", "2011", "2012", "2013"), class = "factor"),
variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Exports of goods and services",
"Imports of goods and services"), class = "factor"), value = c(1.304557,
1.471532, 1.345165, 1.31879, 1.409053, 1.642291, 1.895983,
2.222124, 2.569492, 2.751949, 2.285922, 2.630799, 2.987571,
3.08526, 3.178744, 1.600087, 1.882288, 1.740493, 1.776877,
1.930395, 2.276059, 2.641418, 3.028851, 3.288135, 3.43859,
2.666714, 3.074729, 3.446914, 3.546009, 3.578998)), .Names = c("Year",
"variable", "value"), row.names = c(NA, -30L), class = "data.frame")
df2 <- structure(list(Year = structure(1:15, .Label = c("1999", "2000 ",
"2001", "2002 ", "2003", "2004 ", "2005", "2006 ", "2007", "2008 ",
"2009", "2010 ", "2011", "2012 ", "2013"), class = "factor"),
variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L), .Label = "Balance on current account", class = "factor"),
value = c(-0.29553, -0.410756, -0.395328, -0.458087, -0.521342,
-0.633768, -0.745434, -0.806726, -0.718643, -0.686641, -0.380792,
-0.44393, -0.459344, -0.460749, -0.400254)), .Names = c("Year",
"variable", "value"), row.names = c(NA, -15L), class = "data.frame")
编辑
在发表我的问题并阅读斯科特的答案之后,我尝试了另一种方法。 它在某些方面更接近期望的结果,但在其他方面更进一步。 我们的想法是将数据帧合并到一个数据帧中,并将颜色/形状/填充传递给第一个ggplot
调用中的aes
。 这个问题是我在传说中得到了一个不受欢迎的“斜线”。 在没有删除所有颜色的情况下,我无法删除斜杠。 我提到的这种方法的另一个问题是我需要手动指定一堆东西,而我希望尽可能保留默认值。
df <- rbind(df1, df2)
ggplot(data = df, aes(x = Year, y = value, group = variable, colour = variable,
shape = variable, fill = variable)) +
geom_line(data = subset(df, variable %in% c("Exports of goods and services", "Imports of goods and services"))) +
geom_point(data = subset(df, variable %in% c("Exports of goods and services", "Imports of goods and services")), size = 3) +
geom_bar(data = subset(df, variable %in% c("Balance on current account")), aes(x = Year, y = value, fill = variable),
stat = "identity", alpha = 0.8)
cols <- c(NA, "darkgreen", "darkblue")
last_plot() + scale_colour_manual(name = "legend", values = cols) +
scale_shape_manual(name = "legend", values = c(32, 15, 17)) +
scale_fill_manual(name = "legend", values = c("orange", NA, NA)) +
ylab("Current Account Transactions (Billion $)") +
xlab(NULL) +
theme_bw(14) + scale_x_discrete(breaks = seq(1999, 2013, by = 2)) +
scale_y_continuous(labels = dollar, limits = c(-1, 4), breaks = seq(-1, 4, by = .5)) +
geom_hline(yintercept = 0) +
theme(legend.key = element_blank(), legend.background = element_rect(colour = 'black', fill = 'white'), legend.position = "top", legend.title = element_blank()) +
guides(col = guide_legend(ncol = 1))
添加+ guides(fill = guide_legend(override.aes = list(colour = NULL)))
除去斜线但暗绿/暗蓝颜色(它确实保持橙色填充)。
要消除“在当前帐户上的余额”显示在顶部图例中,您可以将group
, colour
和shape
美学从父ggplot()
调用中geom_line()
并适当地移动到geom_line()
和geom_point()
。 这样可以特定地控制哪些美学适用于两个共享变量名称的数据集。
ggplot(data = df1, aes(x = Year, y = value)) +
geom_line(aes(group = variable, colour = variable)) +
geom_point(aes(shape = variable, colour = variable), size = 3) +
geom_bar(data = df2, aes(x = Year, y = value, fill = variable),
stat = "identity", position = 'identity', alpha = 0.8, guide = 'none') +
ylab("Current Account Transactions (Billion $)") +
xlab(NULL) +
theme_bw(14) +
scale_x_discrete(breaks = seq(1999, 2013, by = 2)) +
scale_y_continuous(labels = dollar, limits = c(-1, 4),
breaks = seq(-1, 4, by = .5)) +
geom_hline(yintercept = 0) +
guides(col = guide_legend(ncol = 1)) +
theme(legend.key = element_blank(),
legend.background = element_rect(colour = 'black', fill = 'white'),
legend.position = "top", legend.title = element_blank(),
legend.box.just = "left")
这个答案有一些缺点。 命名一对:1)剩下两个单独的图例,如果您决定不对它们进行legend.background
,可以伪装(例如,不要像你一样设置legend.background
)。 2)从顶部图例中删除df2变量意味着它不消耗第一个默认颜色(如前所述,仅仅是巧合),所以现在“Balance ...”和“Exports ...”都显示为粉红色,因为fill legend回收默认色标。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.