ggplot2 绘制双坐标图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. library(ggplot2)
   
2. library(gtable)
   
3. library(grid)
   
4. 
   
5. grid.newpage()
   
6. 
   
7. # two plots
   
8. p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_line(colour = "blue") + theme_bw()
   
9. p2 <- ggplot(mtcars, aes(mpg, drat)) + geom_line(colour = "red") + theme_bw() %+replace%
   
10.     theme(panel.background = element_rect(fill = NA))
    
11. 
    
12. # extract gtable
    
13. g1 <- ggplot_gtable(ggplot_build(p1))
    
14. g2 <- ggplot_gtable(ggplot_build(p2))
    
15. 
    
16. # overlap the panel of 2nd plot on that of 1st plot
    
17. pp <- c(subset(g1$layout, name == "panel", se = t:r))
    
18. g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], pp$t,
    
19.     pp$l, pp$b, pp$l)
    
20. 
    
21. # axis tweaks
    
22. ia <- which(g2$layout$name == "axis-l")
    
23. ga <- g2$grobs[[ia]]
    
24. ax <- ga$children[[2]]
    
25. ax$widths <- rev(ax$widths)
    
26. ax$grobs <- rev(ax$grobs)
    
27. ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
    
28. g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
    
29. g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)
    
30. 
    
31. # draw it
    
32. grid.draw(g)

复制代码

1. x <- seq(1992, 2002, by = 2)
   
2. 
   
3. d1 <- data.frame(x = x, y = rnorm(length(x)))
   
4. xy <- expand.grid(x = x, y = x)
   
5. d2 <- data.frame(x = xy$x, y = xy$y, z = jitter(xy$x + xy$y))
   
6. 
   
7. d1$panel <- "a"
   
8. d2$panel <- "b"
   
9. d1$z <- d1$x
   
10. 
    
11. d <- rbind(d1, d2)
    
12. 
    
13. p <- ggplot(data = d, mapping = aes(x = x, y = y))
    
14. p <- p + facet_grid(panel ~ ., scale = "free")
    
15. p <- p + layer(data = d1,  geom = c( "line"), stat = "identity")
    
16. p <- p + layer(data = d2, mapping = aes(colour = z, fill = z),
    
17.     geom = "tile", stat = "identity")
    
18. p

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏6 回帖

关键词：ggplot2 gplot plot GPL 双坐标 library

很不错 很强大！谢谢楼主共享！

很不错 很强大！谢谢楼主共享！

请问，如将副坐标轴的标题也加进去？谢谢！

xlyshuai 发表于 2015-4-8 11:16
请问，如将副坐标轴的标题也加进去？谢谢！

同问。求问已经解决这个问题了吗？

收藏了，谢谢分享

famousid 发表于 2013-4-25 23:27

好的好的好的好的

thanks for sharing