R语言在ggplot2中创建双y轴图的函数

x6492ojm 于 2023-05-11 发布在其他

关注(0)|答案(3)|浏览(174)

我正在ggplot 2中测试一个函数来构建一个双y轴图。它的工作，但我不能得到一些元素从输入图形。我用两个 Dataframe Base1和Base2构建了这两个图（我在最后一部分添加了dput()版本）：

library(ggplot2)
library(scales)
library(gtable)
#Graph 1
g1<-ggplot(Base1, aes(x = Month, y = value, fill = variable)) +
  geom_bar(stat="identity",colour="black",size=1) +
  scale_y_continuous(labels = comma,breaks=pretty_breaks(n=7),
                     limits=c(0,max(Base1$value,na.rm=T))) +
  theme(axis.text.x=element_text(angle=90,colour="grey20",face="bold",size=12),
        axis.text.y=element_text(colour="grey20",face="bold",hjust=1,vjust=0.8,size=15),
        axis.title.x=element_text(colour="grey20",face="bold",size=16),
        axis.title.y=element_text(colour="grey20",face="bold",size=16)) +
  xlab('Month')+ylab('')+ ggtitle("My graph") +
  theme(plot.title = element_text(lineheight=3, face="bold", color="black",size=24)) +
  theme(legend.text=element_text(size=14),
        legend.title=element_text(size=14)) +
  scale_fill_manual(name = "variable", 
                    label = "Power", 
                    values = "#FF6C91")

第二个：

#Graph2
colors=c("red","darkgreen")
g2<-ggplot(Base2, aes(x=Month, y=value, color=variable))+ 
  geom_line(aes(group=variable),size=1.3) +
  geom_point(size=3.8, shape=21, fill="white") + 
  scale_color_manual(values=colors)+ ggtitle("My graph")

有了这两个图形，我使用了下一个函数two来创建一个双y轴图形：

double_axis_graph <- function(graf1,graf2){
  graf1 <- graf1
  
  graf2 <- graf2
  
  
  
  gtable1 <- ggplot_gtable(ggplot_build(graf1))
  
  gtable2 <- ggplot_gtable(ggplot_build(graf2))
  
  
  
  par <- c(subset(gtable1[['layout']], name=='panel', select=t:r))
  
  graf <- gtable_add_grob(gtable1, gtable2[['grobs']][[which(gtable2[['layout']][['name']]=='panel')]],
                          
                          par['t'],par['l'],par['b'],par['r'])
  
  
  
  ia <- which(gtable2[['layout']][['name']]=='axis-l')
  
  ga <- gtable2[['grobs']][[ia]]
  
  ax <- ga[['children']][[2]]
  
  ax[['widths']] <- rev(ax[['widths']])
  
  ax[['grobs']] <- rev(ax[['grobs']])
  
  ax[['grobs']][[1]][['x']] <- ax[['grobs']][[1]][['x']] - unit(1,'npc') + unit(0.15,'cm')
  
  graf <- gtable_add_cols(graf, gtable2[['widths']][gtable2[['layout']][ia, ][['l']]], length(graf[['widths']])-1)
  
  graf <- gtable_add_grob(graf, ax, par['t'], length(graf[['widths']])-1, par['b'])
  
  return(graf)
  
}

所以，当我用它来构建双轴图时，结果显示了双轴，但我不能从输入图形中获得作为完整图例的其他元素;此外，当我连接图形时，只显示其中一个，另一个丢失。我应用了下面的结果：

plot(double_axis_graph(g1,g2))

在本例中，条形图（g1）消失，我无法使用g2中的元素完成图例。双轴工作正常。在第二次测试中，我得到了这样的结果：

plot(double_axis_graph(g2,g1))

在本例中，我丢失了来自g2的系列，并且图例没有来自g1的元素。我想完成的功能，以显示图形和图例中的所有系列的图形中的元素。
数据：

Base1 <- data.frame(
  Month = c("m11", "m12", "m13", "m14", "m15", "m16"),
  variable = factor(rep("Power", 6L)),
  value = c(28101696.45, 28606983.44, 30304944, 32583849.36, 34791542.82, 40051050.24)
)

Base2 <- data.frame(
  Month = rep(c("m11", "m12", "m13", "m14", "m15", "m16"), 2),
  variable = factor(rep(c("Index1", "Index2"), each = 6L)),
  value = c(
    0.044370892419913, 0.0437161234641523, 0.0516857394621815, 0.0495793011485982,
    0.0506456741259283, 0.0314653057147897, 0.0299405579124744,
    0.0296145768664101, 0.0269727649059507, 0.0250663815369419,
    0.0233469715385275, 0.0201801611981898
  )
)

来源：https://stackoverflow.com/questions/25727596/function-to-build-double-y-axis-graph-in-ggplot2

3条答案

按热度按时间

rxztt3cl1#

解决问题的第一步：

g1.1 <- g1 + theme_bw() + theme(legend.position="top")
g2.1 <- g2 + theme_bw() + theme(panel.grid=element_blank()) +
    theme(panel.background = element_rect(fill = NA))
plot(double_axis_graph(g1.1,g2.1))

现在我们需要修复：

奇怪的灰色背景无处不在**-编辑：修复它！**
传说

并生存Hadley's wrath做什么是根本性的缺陷。

赞(0）回复(0）举报 2023-05-11

eqqqjvef2#

我使用了一些人的代码来构建我自己的here

grid.newpage()

# two plots
p1 <- ggplot(fuel, aes(x=date, y=mpg)) + geom_line() + 
  theme_bw() + xlab("Date") + ylab("MPG (Black)")
p2 <- ggplot(fuel, aes(x=date, y=avg.temp)) + 
  xlab("Date") + ylab("AVG Temp (Red)") +
  geom_line(colour="red") + theme_bw() + 
  theme(axis.title.y=element_text(angle = -90)) %+replace% 
  theme(panel.background = element_rect(fill = NA))

# extract gtable
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))

# overlap the panel of 2nd plot on that of 1st plot
pp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, 
                     g2$grobs[[which(g2$layout$name == "panel")]], 
                     pp$t, pp$l, pp$b, pp$l)

# axis tweaks
alab <- g2$grobs[[which(g2$layout$name=="ylab")]]
ia <- which(g2$layout$name == "axis-l")
ga <- g2$grobs[[ia]]
ax <- ga$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + 
  unit(0.15, "cm")
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], 
                     length(g$widths) - 1 )
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], 
                     length(g$widths) - 1 )
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 2, pp$b)
g <- gtable_add_grob(g, alab, pp$t, length(g$widths) - 1, pp$b)

grid.draw(g)

赞(0）回复(0）举报 2023-05-11

dohp0rv53#

另一种更聪明的方法是从here改编而来的sec_axis。
产品优势：
1.原生次轴，仅创建一个ggplot对象。
1.没有涉及显式调整轴对象的技巧。
缺点：两个轴的极限必须预先定义。
有关详细信息，请参阅sec_axisdocumentation和blog post（日语）。

# You must define limits first

AXIS1_MIN = 0
AXIS1_MAX = max(Base1$value)
AXIS2_MIN = min(Base2$value)
AXIS2_MAX = max(Base2$value)

scale_to_value1 <- function(values) rescale(values, to = c(AXIS1_MIN, AXIS1_MAX))
scale_to_value2 <- function(values) rescale(values, to = c(AXIS2_MIN, AXIS2_MAX))

ggplot() +
  geom_bar(aes(x = Month, y = value, fill = variable), data = Base1, stat="identity",colour="black",size=1) +
  geom_line(aes(x = Month, y = scale_to_value1(value),color = variable, group = variable), data = Base2, size=1.3) +
  scale_y_continuous(labels = comma,breaks=pretty_breaks(n=7),
                     limits=c(AXIS1_MIN, AXIS1_MAX),
                     sec.axis = sec_axis( ~ scale_to_value2(.), name = "value2")) +
  scale_color_manual(name = "variable", 
                    label = c("Index1", "Index2"), 
                    values = c("Index1" = "red", "Index2" = "green")) +
  scale_fill_manual(name = "variable", 
                    label = "Power",
                    values = "#FF6C91") +
  theme(axis.text.x=element_text(angle=90,colour="grey20",face="bold",size=12),
        axis.text.y=element_text(colour="grey20",face="bold",hjust=1,vjust=0.8,size=15),
        axis.title.x=element_text(colour="grey20",face="bold",size=16),
        axis.title.y=element_text(colour="grey20",face="bold",size=16)) +
  xlab('Month')+ylab('')+ ggtitle("My graph") +
  theme(plot.title = element_text(lineheight=3, face="bold", color="black",size=24)) +
  theme(legend.text=element_text(size=14),
        legend.title=element_text(size=14))

赞(0）回复(0）举报 2023-05-11

我来回答

R语言在ggplot2中创建双y轴图的函数

3条答案

相关问题

热门标签

最新问答

R语言 在ggplot2中创建双y轴图的函数

3条答案

相关问题

热门标签

最新问答

R语言在ggplot2中创建双y轴图的函数