在同一个轴上添加两个y轴标题 [英] Adding two y-axis titles on the same axis
问题描述
我将使用来自前一个问题的数据集和图(
#通过关闭剪辑来注释外部绘图区域
pp = p + coord_cartesian(xlim = range(dat $ Year)+ c -0.4,0.4))+
注释(min(dat $ Year) - 0.9,y = c(-6000,10000),label = c(负收入,正收入),
geom =text,angle = 90,hjust = 0.5,size = 4,color = c(red,blue))+
labs(y =)
pp< - ggplot_gtable(ggplot_build(pp))
pp $ layout $ clip< - off
grid.draw(pp)
您也可以使用 cowplot
按照@Gregor的建议。我以前没有尝试过,所以也许有比我在下面做的更好的方法,但是看起来你必须使用视口坐标而不是数据坐标来放置注释。
#使用cowplot
库(cowplot)
ggdraw()+
draw_plot(p + labs( y =),0,0,1,1)+
draw_label(正收益,x = 0.01,y = 0.5,col =blue,size = 10,angle = 90)+
draw_label(负收入,x = 0.01,y = 0.15,col =red,size = 10,angle = 90)
我意识到问题中的数据只是为了说明,但对于这样的数据,一个线条图可能更容易理解:
library(dplyr)
ggplot(dat,aes(x = Year,y = OperatingIncome,color = Division))+
geom_hline(yintercep t = 0,lwd = 0.3,color =grey50)+
geom_line(position = position_dodge(0.2),alpha = 0.5)+
geom_text(aes(label = Division),position = position_dodge 0.2),show.legend = FALSE)+
scale_x_continuous(breaks = sort(unique(dat $ Year)))+
theme_bw()+
guides(color = FALSE)+
geom_line(data = dat%>%group_by(Year)%>%summarize(Net = sum(OperatingIncome),Division = NA),
aes(x = Year,y = Net) 0.4)+
geom_text(data = dat%>%group_by(Year)%>%汇总(Net = sum(OperatingIncome),Division = NA),
aes(x = Year,y = Net,label =Net),color =black)
或者,如果需要条形图,可能是这样的:
ggplot()+
geom_bar(data = dat%>%arrange(OperatingIncome)%>%
mutate(Division = factor(Division,levels = unique(Division))),
aes(x = Year,y = OperatingIncome,fill = Division),
stat =identity,position =dodge )+
geom_hline(yintercept = 0,lwd = 0.3,color =grey20)+
theme_bw()
I am going to use a dataset and plot that came from a previous problem (Here):
dat <- read.table(text = " Division Year OperatingIncome
1 A 2012 11460
2 B 2012 7431
3 C 2012 -8121
4 D 2012 15719
5 E 2012 364
6 A 2011 12211
7 B 2011 6290
8 C 2011 -2657
9 D 2011 14657
10 E 2011 1257
11 A 2010 12895
12 B 2010 5381
13 C 2010 -2408
14 D 2010 11849
15 E 2010 517",header = TRUE,sep = "",row.names = 1)
dat1 <- subset(dat,OperatingIncome >= 0)
dat2 <- subset(dat,OperatingIncome < 0)
ggplot() +
geom_bar(data = dat1, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
geom_bar(data = dat2, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
scale_fill_brewer(type = "seq", palette = 1)
It includes the following plot, which is where my question comes in:
My question: Is it possible for me to change the y-axis label to two different labels on the same side? One would say "Negative Income" and be on the bottom portion of the y-axis. The other would say "Positive Income" and be on the upper portion of the SAME y-axis.
I have seen this question asked in terms of dual y-axis for different scales (on opposite sides), but I specifically want this on the same y-axis. Appreciate any help - I also would prefer to use ggplot2 for this problem, if possible.
You can use annotate
to add labels for negative and positive income. To add text outside the plot panel, you'll need to turn off clipping. Below are examples of adding text both inside and outside the plot panel:
# Plot
p = ggplot() +
geom_bar(data = dat1, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
geom_bar(data = dat2, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
scale_fill_brewer(type = "seq", palette = 1) +
geom_hline(yintercept=0, lwd=0.3, colour="grey20") +
scale_x_continuous(breaks=sort(unique(dat$Year))) +
theme_bw()
# Annotate inside plot area
p + coord_cartesian(xlim=range(dat$Year) + c(-0.45,0.4)) +
annotate(min(dat$Year) - 0.53 , y=c(-5000,5000), label=c("Negative Income","Positive Income"),
geom="text", angle=90, hjust=0.5, size=3, colour=c("red","blue"))
# Annotate outside plot area by turning off clipping
pp = p + coord_cartesian(xlim=range(dat$Year) + c(-0.4,0.4)) +
annotate(min(dat$Year) - 0.9, y=c(-6000,10000), label=c("Negative Income","Positive Income"),
geom="text", angle=90, hjust=0.5, size=4, colour=c("red","blue")) +
labs(y="")
pp <- ggplot_gtable(ggplot_build(pp))
pp$layout$clip <- "off"
grid.draw(pp)
You can also use cowplot
as suggested by @Gregor. I haven't tried this before, so maybe there's a better approach than what I've done below, but it looks like you have to use viewport coordinates, rather than data coordinates, to place the annotations.
# Use cowplot
library(cowplot)
ggdraw() +
draw_plot(p + labs(y=""), 0,0,1,1) +
draw_label("Positive Income", x=0.01, y = 0.5, col="blue", size = 10, angle=90) +
draw_label("Negative Income", x=0.01, y = 0.15, col="red", size = 10, angle=90)
I realize the data in the question is just for illustration, but for data like this, a line plot might prove easier to understand:
library(dplyr)
ggplot(dat, aes(x=Year, y=OperatingIncome, color=Division)) +
geom_hline(yintercept=0, lwd=0.3, colour="grey50") +
geom_line(position=position_dodge(0.2), alpha=0.5) +
geom_text(aes(label=Division), position=position_dodge(0.2), show.legend=FALSE) +
scale_x_continuous(breaks=sort(unique(dat$Year))) +
theme_bw() +
guides(colour=FALSE) +
geom_line(data=dat %>% group_by(Year) %>% summarise(Net=sum(OperatingIncome), Division=NA),
aes(x=Year, y=Net), alpha=0.4) +
geom_text(data=dat %>% group_by(Year) %>% summarise(Net=sum(OperatingIncome), Division=NA),
aes(x=Year, y=Net, label="Net"), colour="black")
Or, if a bar plot is required, maybe something like this:
ggplot() +
geom_bar(data = dat %>% arrange(OperatingIncome) %>%
mutate(Division=factor(Division,levels=unique(Division))),
aes(x=Year, y=OperatingIncome, fill=Division),
stat="identity", position="dodge") +
geom_hline(yintercept=0, lwd=0.3, colour="grey20") +
theme_bw()
这篇关于在同一个轴上添加两个y轴标题的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!