欢迎关注R语言数据分析指南
❝本节来介绍如何使用在基础哑铃图上添加折线图增加数据展示，整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到会员交流群」，购买过小编VIP的朋友可在所加的会员群内获取下载，有需要的朋友可关注文末介绍加入VIP交流群。
❞
关于永久群内容的说明
❝给予长期支持我们的忠实读者们一个特别待遇：凡是购买过小编2022年或2023年VIP会员文档的朋友们，「将自动获得2024年及以后更新的绘图文档代码，无需额外付费。」目前这两年的会员文档已累记卖出1500+，质量方面各位无需担忧。简要概括就是只要购买任意1年的会员内容，2024及后期公众号所更新的绘图文档均会在已经加入的会员群内分享。
❞
加载R包
library(tidyverse)
导入数据
df <- read_tsv("data.xls")
定义因子
df$month_label <- factor(df$month_label,levels = df$month_label)
数据可视化
merged |>
ggplot() +
aes(x = month_label) +
geom_line(aes(y = p_expected, group = 1),
linetype = "dashed") +
geom_linerange(aes(ymin = p_births, ymax = p_nhl)) +
geom_point(aes(y = p_births, color = "Canadian Population"), size = 3) +
geom_point(aes(y = p_nhl, color = "Canadian NHL Players"), size = 3) +
geom_text(aes(label = scales::percent(p_births, accuracy = 0.01),
y = if_else(p_births > p_nhl, p_births + .007,
p_births - .007)), size = 3) +
geom_text(aes(label = scales::percent(p_nhl, accuracy = 0.007),
y = if_else(p_nhl > p_births, p_nhl + .01,
p_nhl - .007)), size = 3) +
coord_flip() +
scale_x_discrete(limits = rev(levels(merged$month_label))) +
labs(x = "Birth Month",y = "Percent")+
scale_color_manual(values = my_pal) +
theme_bw() +
theme(legend.position = "bottom",
legend.title = element_blank(),
axis.text.y=element_text(color="black",size=10,face="bold"),
axis.text.x=element_text(color="black",size=10,face="bold"),
axis.title.x = element_text(margin = margin(t = 0.5,unit="cm"),
color="black",face="bold"),
axis.title.y = element_text(margin = margin(r = 0.5,unit="cm"),
color="black",face="bold"),
plot.margin = margin(0.5,1,0.5,0.5,unit="cm"))
❝本节介绍到此结束，有需要学习数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码。
❞
购买后微信发小编订单号即邀请进新的会员交流群，无论购买那一年的会员文档都将获取「2024年及以后更新的绘图文档」，早买早享受，需要了解更多信息的朋友欢迎淘宝店铺交流咨询。
淘宝扫一扫
淘宝店铺(有需要欢迎关注)
