ggplot2多图组合一例
发布：cheetahfly | 分类：考研
关于本站
人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!
经管之家新媒体交易平台
提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易，真正实现买卖双方的共赢。【请点击这里访问】
期刊
- 期刊库 | 马上cssci就要更新 ...
- 期刊库 | 【独家发布】《财 ...
- 期刊库 | 【独家发布】“我 ...
- 期刊库 | 【独家发布】“我 ...
- 期刊库 | 【独家发布】国家 ...
- 期刊库 | 请问Management S ...
- 期刊库 | 英文期刊库
- 核心期刊 | 歧路彷徨：核心期 ...
TOP热门关键词
最近无意中看到ggplot2包中自带的多图组合功能，练手了一张图，特此抛砖引玉，与大家分享讨论。以下是利用R语言自带的mtcars数据，用二维散点图叠加各自维度的密度图：代码如下:library(tidyverse)#画出左上的密度分 ...
坛友互助群 |
扫码加入各岗位、行业、专业交流群 |
以下是利用R语言自带的mtcars数据，用二维散点图叠加各自维度的密度图：
代码如下:
- library(tidyverse)
- # 画出左上的密度分布图
- g_top_left <- mtcars %>%
- ggplot(aes(x = mpg)) +
- geom_density(fill = "#177cb0") +
- theme_bw() +
- theme(panel.background = element_blank(),
- panel.border = element_blank(),
- axis.title = element_blank(),
- panel.grid.major = element_blank(),
- panel.grid.minor = element_blank(),
- axis.line.x = element_line(),
- axis.line.y = element_line()) +
- scale_x_continuous(expand = c(0.03, -0.4), limits = c(10, 35))
- # 画出右下的密度分布图
- g_bottom_right <- mtcars %>%
- ggplot(aes(x = wt)) +
- geom_density(fill = "#789262") +
- theme_bw() +
- theme(panel.background = element_blank(),
- panel.border = element_blank(),
- axis.title = element_blank(),
- panel.grid.major = element_blank(),
- panel.grid.minor = element_blank(),
- axis.line.x = element_line(),
- axis.line.y = element_line()) +
- coord_flip() +
- scale_x_continuous(expand = c(0, 0), limits = c(1.3, 5.8))
- # 画出左下的散点图
- g_bottom_left <- mtcars %>%
- ggplot(aes(x = mpg, y = wt)) +
- geom_point() +
- theme_bw()
- # 画出整体“画布”
- df <- data.frame(x = 1:10, y = 1:10)
- base <- ggplot(df, aes(x, y)) +
- geom_blank() +
- theme_bw() +
- theme(panel.background = element_blank(),
- panel.border = element_blank(),
- axis.text = element_blank(),
- axis.title = element_blank(),
- axis.ticks = element_blank(),
- axis.line = element_blank(),
- panel.grid.major = element_blank(),
- panel.grid.minor = element_blank())
- # 将小图在“画布”上组合
- base +
- annotation_custom(grob = ggplotGrob(g_bottom_left), xmin = 1, xmax = 8, ymin = 1, ymax = 8) +
- annotation_custom(grob = ggplotGrob(g_bottom_right), xmin = 8, xmax = 10, ymin = 1.3, ymax = 8.2) +
- annotation_custom(grob = ggplotGrob(g_top_left), xmin = 1, xmax = 8, ymin = 8, ymax = 10)
扫码或添加微信号：坛友素质互助
「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
您可能感兴趣的文章
本站推荐的文章
人气文章
1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
