欢迎关注R语言数据分析指南
❝本节来通过自定义函数来批量绘制气泡图，数据为通过GBD数据库自行整理，个人观点仅供参考。代码可参考文末介绍，有需要学习R语言绘图的朋友可关注文末介绍购买小编的R绘图文档。购买前请咨询，零基础不要买。
代码展示
library(tidyverse)
library(ggpubr)
library(patchwork)
library(ggprism)
library(ggpmisc)
Deaths <- read_tsv("Deaths.tsv") %>% dplyr::rename(size=Deaths)
Incident <- read_tsv("Incident.tsv") %>% dplyr::rename(size=Incident)
DALYs <- read_tsv("DALYs.tsv") %>% dplyr::rename(size=DALYs)
plot_config <- tibble::tibble(
data = list(
Deaths %>% filter(year == 1990),
Deaths %>% filter(year == 2019),
Incident %>% filter(year == 1990),
Incident %>% filter(year == 2019),
DALYs %>% filter(year == 1990),
DALYs %>% filter(year == 2019)),
xvar = c(
"ASDR", "SDI", # Deaths
"ASIR", "SDI", # Incident
"Age Standardized DALY Rate", "SDI"), # DALYs
yvar = rep("EAPC", 6),
sizevar = rep("size", 6),
label = rep(c("1990", "2019"),3))
source("draw_all_plots.R")
draw_all_plots(plot_config, ncol = 2)
关注下方公众号下回更新不迷路
购买介绍
❝本节介绍到此结束，有需要学习R数据可视化的朋友欢迎到淘宝店铺：R语言数据分析指南，购买小编的R语言可视化文档，2025年购买将获取2025年更新的绘图内容，同时将赠送2024年的绘图文档内容。
更新的绘图内容包含数据+代码+注释文档+文档清单，小编只分享案例文档，不额外回答问题，无答疑服务，更新截止2025年12月31日结束，后续不在进行任何更新，零基础基础一般不推荐买。
案例特点
❝所选案例图绝大部份属于个性化分析图表，数据案例多来自已经发表的高分论文，并会汇总整理分享一些论文中公开的分析代码。
2025年起提供更加专业的html文档，更加的直观易学。文档累计上千人次购买拥有良好的社群交流体验，R代码结构清晰易懂.
目录大纲展示
淘宝店铺
2025年更新案例图展示
)
2024年案例图展示
