R ggplot绘制双纵坐标轴

最新推荐文章于 2026-06-11 14:57:07 发布

原创最新推荐文章于 2026-06-11 14:57:07 发布 · 3k 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

R语言

当前文章被收录于：

R语言

37 篇文章 9 人学习

订阅专栏查看详情

ggplot2

当前文章被收录于：

ggplot2

3 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了如何利用R语言中的ggplot2包创建具有双纵坐标轴的图形，详细阐述了每个步骤，包括设置坐标轴比例、调整标签以及整合两个数据集的技巧。


p1 <- ggplot(data = DNA_result, mapping = aes( x= num, y = nd)) + 
  geom_point(colour = "red") + 
  xlab( "样本序号") + 
  ylab("浓度")+
  theme(plot.caption = element_text(hjust = 0))+ theme_bw()
p1

p2 <- ggplot(data = DNA_result, mapping = aes( x= num, y = A280)) + 
  geom_point(colour = "blue") + 
  xlab( "样本序号") + 
  ylab("A260/A280")+
  theme(plot.caption = element_text(hjust = 0))+ theme_bw() %+replace% 
  theme(panel.background = element_rect(fill = NA))
p2

double_y_axis <- function(p1, p2){
  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
  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_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)
  
  # draw it
  grid.draw(g)
  return(g)
}
double_y_axis(p1,p2)

ref1

ref2

ref3

标签

#ggplot2 #绘图 #坐标轴