ggplot2多图组合一例

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

最近无意中看到ggplot2包中自带的多图组合功能，练手了一张图，特此抛砖引玉，与大家分享讨论。
以下是利用R语言自带的mtcars数据，用二维散点图叠加各自维度的密度图：


代码如下:

1. library(tidyverse)
   
2. # 画出左上的密度分布图
   
3. g_top_left <- mtcars %>%
   
4.   ggplot(aes(x = mpg)) +
   
5.   geom_density(fill = "#177cb0") +
   
6.   theme_bw() +
   
7.   theme(panel.background = element_blank(),
   
8.         panel.border = element_blank(),
   
9.         axis.title = element_blank(),
   
10.         panel.grid.major = element_blank(),
    
11.         panel.grid.minor = element_blank(),
    
12.         axis.line.x = element_line(),
    
13.         axis.line.y = element_line()) +
    
14.   scale_x_continuous(expand = c(0.03, -0.4), limits = c(10, 35))
    
15. 
    
16. # 画出右下的密度分布图
    
17. g_bottom_right <- mtcars %>%
    
18.   ggplot(aes(x = wt)) +
    
19.   geom_density(fill = "#789262") +
    
20.   theme_bw() +
    
21.   theme(panel.background = element_blank(),
    
22.         panel.border = element_blank(),
    
23.         axis.title = element_blank(),
    
24.         panel.grid.major = element_blank(),
    
25.         panel.grid.minor = element_blank(),
    
26.         axis.line.x = element_line(),
    
27.         axis.line.y = element_line()) +
    
28.   coord_flip() +
    
29.   scale_x_continuous(expand = c(0, 0), limits = c(1.3, 5.8))
    
30. 
    
31. # 画出左下的散点图
    
32. g_bottom_left <- mtcars %>%
    
33.   ggplot(aes(x = mpg, y = wt)) +
    
34.   geom_point() +
    
35.   theme_bw()
    
36. 
    
37. # 画出整体“画布”
    
38. df <- data.frame(x = 1:10, y = 1:10)
    
39. base <- ggplot(df, aes(x, y)) +
    
40.   geom_blank() +
    
41.   theme_bw() +
    
42.   theme(panel.background = element_blank(),
    
43.         panel.border = element_blank(),
    
44.         axis.text = element_blank(),
    
45.         axis.title = element_blank(),
    
46.         axis.ticks = element_blank(),
    
47.         axis.line = element_blank(),
    
48.         panel.grid.major = element_blank(),
    
49.         panel.grid.minor = element_blank())
    
50. 
    
51. # 将小图在“画布”上组合
    
52. base +
    
53.   annotation_custom(grob = ggplotGrob(g_bottom_left), xmin = 1, xmax = 8, ymin = 1, ymax = 8) +
    
54.   annotation_custom(grob = ggplotGrob(g_bottom_right), xmin = 8, xmax = 10, ymin = 1.3, ymax = 8.2) +
    
55.   annotation_custom(grob = ggplotGrob(g_top_left), xmin = 1, xmax = 8, ymin = 8, ymax = 10)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：ggplot2 gplot plot GPL Continuous

不错，学习一下。

很好，学习学习！