[英]ggplot2 legend for plot combining geom_bar and geom_point
I am trying to make a plot to show the returns of various securities in a portfolio in a bar plot and then superimpose points over the bars indicating exposure to those securities. 我正在尝试绘制一个图,以条形图显示投资组合中各种证券的收益,然后在指示条上叠加指示这些证券敞口的点。 However, the legend I get completely ignores the points and only draws a legend for the bars. 但是,我得到的图例完全忽略了这些点,只绘制了条形图例。
out<-data.frame(security=c("A", "B", "C", "D", "A", "B", "C", "D"), avg_weight=c(0.1,0.2,0.3,0.4, 0.1, 0.2, 0.3, 0.4), return_type=c(rep("systematic",4), rep("idiosyncratic",4)), return=rnorm(8))
g <- ggplot(data=out, aes(x=factor(security, levels=out$security), y=return))
g <- g + geom_bar(stat="identity", position="dodge", aes(fill=return_type))
g <- g + geom_point(aes(x=factor(security, levels=out$security), y=avg_weight))
g <- g + ggtitle("Systematic and Idiosyncratic Returns")
g <- g + theme(axis.text.x=element_text(angle=70, hjust=1))
g + xlab("Security Description") + ylab("Return")
ggplot generates legends only when you create an aesthetic mapping inside aes
. ggplot仅当您在aes
内创建美学映射时才生成图例。 This is usually done by mapping a data column to an aesthetic, like fill
, shape
, or color
. 通常,这是通过将数据列映射到诸如fill
, shape
或color
类的美学元素来完成的。 Here we don't actually want to map avg_weight
to an aesthetic, so we'll use shape
as a "dummy" aesthetic, just to get the legend. 在这里,我们实际上并不想将avg_weight
映射到美学,因此我们将shape
用作“虚拟”美学,只是为了获得图例。
First, set a seed for data reproducibility: 首先,为数据可重复性设置种子:
# Set a seed for reproducibility
set.seed(4)
out<-data.frame(security=c("A", "B", "C", "D", "A", "B", "C", "D"),
avg_weight=c(0.1,0.2,0.3,0.4, 0.1, 0.2, 0.3, 0.4),
return_type=c(rep("systematic",4), rep("idiosyncratic",4)), return=cumsum(rnorm(8,0,0.1)))
In the code below, we add a "dummy" shape aesthetic to geom_point
so that a shape legend will be generated. 在下面的代码中,我们向geom_point
添加了“虚拟”形状美感,以便生成形状图例。 Then in labs
we set shape=NULL
so that the shape legend won't have a title. 然后在labs
我们将shape=NULL
设置shape=NULL
使形状图例没有标题。
ggplot(data=out, aes(x=security)) +
geom_bar(stat="identity", aes(y=return, fill=return_type, group=return_type), position="dodge") +
geom_point(aes(y=avg_weight, shape="Exposure")) +
ggtitle("Systematic and Idiosyncratic Returns") +
theme(axis.text.x=element_text(angle=70, hjust=1)) +
labs(x="Security Description", y="Return", shape=NULL) +
theme_classic()
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.