[英]Adding group mean lines to geom_bar plot and including in legend
I want to be able to create a bar graph which shows also shows the mean value for bars in each group.我希望能够创建一个条形图,该图还显示了每个组中条形的平均值。 AND shows the mean bar in the legend.
AND 显示图例中的平均条。
I have been able to get this graph Bar chart with means using the code below, which is fine, but I would like to be able to see the mean lines in the legend.我已经能够使用下面的代码获得这个图形条形图,这很好,但我希望能够看到图例中的平均线。
##The data to be graphed is the proportion of persons receiving a treatment
## (num=numerator) in each population (denom=demoninator). The population is
##grouped by two age groups and (Age) and further divided by a categorical
##variable V1
###SET UP DATAFRAME###
require(ggplot2)
df <- data.frame(V1 = c(rep(c("S1","S2","S3","S4","S5"),2)),
Age= c(rep(70,5),rep(80,5)),
num=c(5280,6570,5307,4894,4119,3377,4244,2999,2971,2322),
denom=c(9984,12600,9425,8206,7227,7290,8808,6386,6206,5227))
df$prop<-df$num/df$denom*100
PopMean<-sum(df$num)/sum(df$denom)*100
df70<-df[df$Age==70,]
group70mean<-sum(df70$num)/sum(df70$denom)*100
df80<-df[df$Age==80,]
group80mean<-sum(df80$num)/sum(df80$denom)*100
df$PopMean<-c(rep(PopMean,10))
df$groupmeans<-c(rep(group70mean,5),rep(group80mean,5))
I want the plot to look like this, but want the lines in the legend too, to be labelled as 'mean of group' or similar.我希望情节看起来像这样,但也希望图例中的线条被标记为“组均值”或类似的。
#basic plot
P<-ggplot(df, aes(x=factor(Age), y=prop, fill=factor(V1))) +
geom_bar(position=position_dodge(), colour='black',stat="identity")
P
####add mean lines
P+geom_errorbar(aes(y=df$groupmeans, ymax=df$groupmeans,
ymin=df$groupmeans), col="red", lwd=2)
Adding show.legend=TRUE overlays the error bars onto the factor legend, rather than separately.添加 show.legend=TRUE 会将误差线叠加到因子图例上,而不是单独添加。 If there is a way of showing geom_errorbar separately in the legend this is probably the simplest solution.
如果有一种在图例中单独显示 geom_errorbar 的方法,这可能是最简单的解决方案。
I have also tried various things with geom_line The syntax below produces a line for the population mean value, but running from the centre of each point rather than covering the width of the bars This produces a line for the population mean and it does produce a legend but one showing a bar of colour rather than a line.我还用 geom_line 尝试了各种方法 下面的语法为总体平均值生成一条线,但从每个点的中心开始运行,而不是覆盖条的宽度 这为总体平均值生成一条线,它确实产生了一个图例但是一个显示一条颜色而不是一条线。
P+geom_line(aes(y=df$PopMean, group=df$PopMean, color=df$PopMean),lwd=1)
If i try to do lines for group means the lines are not visible (because they are only single points).如果我尝试为组做线条意味着线条不可见(因为它们只是单点)。
P+geom_line(aes(y=df$groupmeans, group=df$groupmeans, color=df$groupmeans))
I also tried to get round this with facet plot, although this requires me to pretend my categorical variable is numeric to get it to work.我也试图用刻面图来解决这个问题,尽管这需要我假装我的分类变量是数字来让它工作。
###set up new df
df2<-df
df2$V1<-c(rep(c(1,2,3,4,5),2))
P<-ggplot(df2, aes(x=factor(V1), y=prop, fill=factor(V1))) +
geom_bar(position=position_dodge(),
colour='black',stat="identity",width=1)
P+facet_grid(.~factor(df2$Age))
P+facet_grid(.~factor(df2$Age))+geom_line(aes(y=df$groupmeans,
group=df$groupmeans, color=df$groupmeans))
Facetplot面图
This allows me to show the mean lines, using geom_line, so a legend does appear (although it doesn't look right, showing a colour gradient rather than coloured lines!).这允许我使用 geom_line 显示平均线,因此确实会出现图例(尽管它看起来不正确,显示的是颜色渐变而不是彩色线!)。 However, the lines still do not go the full width of the bars.
但是,线条仍然没有走完条形的整个宽度。 Also my x-axis now needs relabelling to show S1, S2 etc rather than numeric 1,2,3
此外,我的 x 轴现在需要重新标记以显示 S1、S2 等而不是数字 1,2,3
To sum up - is there a way of showing error bar lines separately in the legend?总而言之 - 有没有办法在图例中单独显示误差线?
If not, then, if i use facetting, how do I correct the legend appearance and relabel axes with my categorical variables and is is possible to get the line to go the full width of the plot?如果没有,那么,如果我使用分面,我该如何更正图例外观并使用我的分类变量重新标记轴,并且是否可以使线达到图的整个宽度?
Or is there an alternate solution that I am missing!?或者是否有我缺少的替代解决方案!?
Thanks谢谢
To get the legend for the geom_error
you need to pass the colour
argument in the aes
.要获取
geom_error
的图例,您需要在aes
传递colour
参数。 As you want only one category (here red), I've create a dummy variable first由于您只需要一个类别(此处为红色),因此我首先创建了一个虚拟变量
df$mean <- "Mean"
ggplot(df, aes(x=factor(Age), y=prop, fill=factor(V1))) +
geom_bar(position=position_dodge(), colour='black',stat="identity") +
geom_errorbar(aes (ymax=groupmeans,
ymin=groupmeans, colour=mean), lwd=2) +
scale_colour_manual(name="",values = "#ff0000")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.