❝本节来介绍一个ggplot2绘制山脊图的小栗子，在以往的细节上做了微调使得图形更加富有美感，感兴趣的朋友也可尝试进行更进一步的优化；希望对各位有帮助。「数据已经上传2023VIP群，加群的观众老爷请自行下载」
❞
❝❞
有需要学习数据可视化案例的朋友欢迎购买小编2023的VIP文档，「初始价格依然是99元」随着人数增多后期会调整价格；有需要的朋友欢迎到小编的淘宝店铺「R语言数据分析指南」下单。
付费后小编会邀请分享文档链接，小编每次更新后会同步内容。「期待大家都能真正掌握R语言数据分析及可视化的能力」
淘宝店铺个性化绘图服务
❝有需要找小编做个性化绘图的朋友欢关注「淘宝店铺(R语言数据分析指南)」 有需求者可咨询下单。
❞
加载R包
library(tidyverse)
library(ggsci)
library(ggridges)
library(ggtext)
library(ggh4x)
数据清洗
read_tsv("data.xls") %>%
filter(continent %in% c("Asia","Europe"))
绘制主图
p <- ggplot(aes(y = country, x = lifeExp, fill = continent))+
geom_density_ridges(size = .15, color = "white")+ # 绘制密度图
scale_x_continuous( # 转换x轴刻度
trans = "log10", expand = c(0, 0),
labels = scales::comma_format(suffix = "k", scale = 1e-4)) +
scale_y_discrete(expand =c(0,0)) +
scale_fill_futurama(alpha = .95) +
facet_wrap(vars(continent), scales = "free_y") + # 分面
coord_cartesian(clip = "off") +
theme_minimal()
调整主题
p + theme(legend.position = "bottom",
legend.justification="right",
axis.title.x = element_text(margin = margin(t = 10), color = "white"),
axis.title.y = element_blank(),
axis.text.x = element_text(size = 8, color = "white"),
axis.text.y = element_text(face = "bold", color = "white"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_line(linewidth = .3, linetype = "dashed", color = "grey75"),
panel.grid.major.y = element_blank(),
axis.ticks.x = element_line(linewidth = .3, color = "white"),
panel.spacing = unit(1,"lines"),
strip.text = element_text(face = "bold", margin = margin(b = 10), color = "white", size = 12),
plot.background = element_rect(fill = "#3F4041FF", color = NA),
plot.margin = margin(20, 20, 20, 20),
legend.title = element_blank())+
guides(fill = guide_legend(override.aes = list(color = NA),
label.theme = element_text(color = "white",size = 8)))
❝本节介绍到此介绍，非常简单的一个案例
❞喜欢的观众老爷欢迎分享转发，「当然更推荐大家加入我的VIP交流群」扫描下方二维码加小编微信「付费99元」后邀请进群，「一定让你感受到物超所值」，「添加小编微信请备注来意，以便高效处理」
小编微信
关注下方公众号下回更新不迷路
往期推荐