R可视乎｜灯芯柱状图代码解读

简介

这篇推文代码来源于：TidyTuesday，主要想学习如何绘制灯芯柱状图（名字小编瞎取的），最终结果如下：

注释：与普通柱状图相比，灯芯柱状图不仅可以展示随时间变化的总体趋势（图中黑色柱子 “Rescues”），而且能够清晰展示灯芯内部数据（图中浅灰色柱子 “cats”）相对于总体的比例随时间的变化。

看到最终成品，读者是否可以根据自己所学知识，回答以下几个问题：

  1. 如何实现两个柱状图嵌套？

  2. 如何使得2020年份数据单独显示为粉色？

  3. 如何在柱状图上方添加文字，其中一些文字包括其他单词？

接下来，小编带你解读源代码，并回答以上问题。读者可以根据这些知识要点，灵活应用到其他图形中。

数据介绍

从文件 animal_rescues.txt 中读取数据，并对数据进行预处理，包括分类汇总和计数。

注意：由于时间和文章篇幅原因，数据处理部分不做过多介绍。读者可以根据格式，使用自己比较感兴趣的数据。

library(tidyverse)
library(ggtext)
library(ggrepel)
library(patchwork)
library(systemfonts)

# 数据读取+处理 ========
df_animals <- readr::read_csv('animal_rescues.txt')df_animals_agg <-df_animals %>% mutate(animal_group_aggregated = case_when(str_detect(animal_group_parent, "Domestic|Livestock|Farm|Horse|Cow|Sheep|Goat|Lamb|Bull") ~ "Other Domestic Animals",animal_group_parent %in% c("Cat", "cat") ~ "Cats",animal_group_parent %in% c("Bird", "Budgie") ~ "Birds",animal_group_parent == "Dog" ~ "Dogs",animal_group_parent == "Fox" ~ "Foxes",TRUE ~ "Other Wild Animals")) %>% count(cal_year, animal_group_aggregated) %>% group_by(animal_group_aggregated) %>% mutate(total = sum(n),current = n[which(cal_year == 2021)]) %>% ungroup() %>% mutate(animal_group_aggregated = fct_reorder(animal_group_aggregated, total),animal_group_aggregated = fct_relevel(animal_group_aggregated, "Other Domestic Animals", after = 0),animal_group_aggregated = fct_relevel(animal_group_aggregated, "Other Wild Animals", after = 0))df_animals_labs <-df_animals_agg %>% filter(cal_year == 2016) %>% group_by(animal_group_aggregated) %>% mutate(n = case_when(animal_group_aggregated == "Cats" ~ 320,animal_group_aggregated %in% c("Birds", "Dogs") ~ 135,TRUE ~ 55))df_animals_annotate <-df_animals_agg %>% mutate(label = "\n\n← Number of Rescues in 2021 so far.") %>% filter(cal_year == 2021 & animal_group_aggregated == "Cats")df_animals_sum <-df_animals_agg %>% filter(cal_year < 2021) %>% group_by(cal_year) %>% summarize(n = sum(n))

绘图主要使用 df_animals_sum，以下是该数据预览：

画图

绘图代码使用了 R 中的多个包（tidyverse, ggtext, ggrepel, patchwork, systemfonts）来创建一个特定风格的统计图表。以下是代码的主要步骤和功能：

设置主题和风格：

设置基础主题为 theme_minimal，指定了基本字体大小和字体家族。使用 theme_update 对不同图表元素进行自定义，包括文本样式、轴样式、网格线样式等。

# 主题设置 ====== 
theme_set(theme_minimal(base_size = 19))
# 自定义主题细节
theme_update(text = element_text(color = "grey12"),axis.title = element_blank(),axis.text.x = element_text(),axis.text.y = element_blank(),panel.grid.major.y = element_blank(),panel.grid.minor = element_blank(),plot.margin = margin(20, 5, 10, 10),plot.subtitle = element_textbox_simple(size = 14, lineheight = 1.6),plot.title.position = "plot",plot.caption = element_text( color = "#b40059", hjust = .5, size = 10, margin = margin(35, 0, 0, 0))
)

数据可视化

为了更好解读代码中的细节部分，小编将代码进行分解，一步步展示细节内容。完整绘图代码见文末，或者可以在我的 Github 中找到源代码和数据。

  1. 创建一个柱状图 (geom_col) 表示不同年份的动物救援数量。
  df_animals_sum %>% ggplot(aes(cal_year, n)) +geom_col(aes(fill = factor(cal_year)), width = .85)

  1. 再添加一个柱状图，指定 data 和 fill 参数，并通过修改 width 实现嵌套。这里数据进行过滤，选择 2021 年前数据，并且选择 animal_group_aggregated == "Cats"。另一个细节：alpha = cal_year == 2020 透明度根据是否 cal_year==2000 进行设置。 如果是则 fill = “white”。
geom_col(data = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021),aes(alpha = cal_year == 2020), # 这里有细节！fill = "white", width = .5 # 宽度和透明度设置)

加入该代码后，绘图结果为：

  1. 使用 geom_text 在图上添加文本标签。对数据进行处理，添加新列文本数据，实现添加其他文字。df_animals_sum %>% mutate(n_lab = if_else(cal_year %in% c(2009, 2020), paste0(n, "\nRescues"), as.character(n)))
  geom_text( #添加文本+加入rescuesdata = df_animals_sum %>% mutate(n_lab = if_else(cal_year %in% c(2009, 2020), paste0(n, "\nRescues"), as.character(n))),aes(label = n_lab), size = 4.3, lineheight = .8, nudge_y = 12, vjust = 0, color = "grey12", fontface = "bold") +geom_text( #添加文本+加入catsdata = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021) %>% mutate(n_lab = if_else(cal_year %in% c(2009, 2020), paste0(n, "\nCats"), as.character(n))), aes(label = n_lab), color = "white", lineheight = .8, size = 4.3, nudge_y = 12, vjust = 0, fontface = "bold") +geom_text( # 手动添加年份标签data = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021),aes(y = -15, label = cal_year, color = factor(cal_year)), size = 6, hjust = .5, vjust = 1)

  1. 调整图表样式：自定义图表的标题、副标题、图例等元素的样式。通过 scale_fill_manual(values = c(rep("grey30", 11), "#b40059"), guide = "none") 实现手动颜色填充，突出 2020 年数据。
  coord_cartesian(clip = "off") +scale_y_continuous(limits = c(-15, NA)) +scale_color_manual(values = c(rep("grey30", 11), "#b40059"), guide = "none") +scale_fill_manual(values = c(rep("grey30", 11), "#b40059"), guide = "none") +scale_alpha_manual(values = c(.25, .4), guide = "none") +theme(# plot.title = element_markdown(size = 28, margin = margin(5, 35, 25, 35), color = "black"),# plot.subtitle = element_textbox_simple(margin = margin(5, 35, 15, 35)),panel.grid.major = element_blank(),axis.text.x = element_blank())

最终结果如下：

绘图完整代码

   df_animals_sum %>% ggplot(aes(cal_year, n)) +geom_col(aes(fill = factor(cal_year)), width = .85) +geom_col(data = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021),aes(alpha = cal_year == 2020), # 这里有细节！fill = "white", width = .5 # 宽度和透明度设置) +geom_text( #这里的数据处理：添加文本+加入rescuesdata = df_animals_sum %>% mutate(n_lab = if_else(cal_year %in% c(2009, 2020), paste0(n, "\nRescues"), as.character(n))),aes(label = n_lab), size = 4.3, lineheight = .8, nudge_y = 12, vjust = 0, color = "grey12", fontface = "bold") +geom_text( #添加文本+加入catsdata = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021) %>% mutate(n_lab = if_else(cal_year %in% c(2009, 2020), paste0(n, "\nCats"), as.character(n))), aes(label = n_lab), color = "white", lineheight = .8, size = 4.3, nudge_y = 12, vjust = 0, fontface = "bold") +geom_text( # 手动添加年份标签data = df_animals_agg %>% filter(animal_group_aggregated == "Cats" & cal_year < 2021),aes(y = -15, label = cal_year, color = factor(cal_year)), size = 6, hjust = .5, vjust = 1) +coord_cartesian(clip = "off") +scale_y_continuous(limits = c(-15, NA)) +scale_color_manual(values = c(rep("grey30", 11), "#b40059"), guide = "none") +scale_fill_manual(values = c(rep("grey30", 11), "#b40059"), guide = "none") +scale_alpha_manual(values = c(.25, .4), guide = "none") +theme(# plot.title = element_markdown(size = 28, margin = margin(5, 35, 25, 35), color = "black"),# plot.subtitle = element_textbox_simple(margin = margin(5, 35, 15, 35)),panel.grid.major = element_blank(),axis.text.x = element_blank())

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.hqwc.cn/news/129576.html

如若内容造成侵权/违法违规/事实不符，请联系编程知识网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

git的基础操作

git的基础操作

https://blog.csdn.net/a18307096730/article/details/124586216?spm1001.2014.3001.5502 1&#xff1a;使用场景 SVN&#xff0c;如果服务器里面的东西坏掉了&#xff0c;那么就全线崩盘了。 1:基本配置 git config --global user.name “luka” (自己的名字就行) git co…
阅读更多...
基于共生生物优化的BP神经网络（分类应用） - 附代码

基于共生生物优化的BP神经网络（分类应用） - 附代码

基于共生生物优化的BP神经网络&#xff08;分类应用&#xff09; - 附代码 文章目录 基于共生生物优化的BP神经网络&#xff08;分类应用&#xff09; - 附代码1.鸢尾花iris数据介绍2.数据集整理3.共生生物优化BP神经网络3.1 BP神经网络参数设置3.2 共生生物算法应用 4.测试结果…
阅读更多...
爬虫：网站三次请求获取频道内容

爬虫：网站三次请求获取频道内容

一、抓包 url aHR0cDovL3d3dy55amZ3LmNuLw从下图中可以看出&#xff0c;打开网页请求了三次&#xff0c;前两次在response中并不返回网页内容。 二、代码模仿第一次请求返回 <html><head><meta http-equiv"Content-Type" content"text/html; …
阅读更多...
HTTP的基本格式

HTTP的基本格式

HTTP/HTTPS HTTPhttp的协议格式 HTTP 应用层,一方面是需要自定义协议,一方面也会用到一些现成的协议. HTTP协议,就是最常用到的应用层协议. 使用浏览器,打开网站,使用手机app,加载数据,这些过程大概率都是HTTP来支持的 HTTP是一个超文本传输协议, 文本>字符串 超文本>除…
阅读更多...
每日leetcode_2441

每日leetcode_2441

Leetcode每日一题_2441 记录自己的成长&#xff0c;加油。 题目 解题 class Solution {public int findMaxK(int[] nums) {int k -1;Set<Integer> set new HashSet<Integer>();for (int x : nums) {set.add(x);}for (int x : nums) {if (set.contains(-x)) {k …
阅读更多...
【JavaEE重点知识归纳】第7节：类和对象

【JavaEE重点知识归纳】第7节：类和对象

目录 一&#xff1a;了解面向对象 1.什么是面向对象 2.面向对象和面向过程区分 二&#xff1a;类定义和使用 1.什么是类 2.练习&#xff1a;定义一个学生类 三&#xff1a;类的实例化 1.什么是实例化 2.类和对象的说明 四&#xff1a;认识this 1.为什么要有this引用…
阅读更多...
unity脚本_Input鼠标键盘 c#

unity脚本_Input鼠标键盘 c#

获取鼠标坐标 检测鼠标输入 如果在运行游戏场景中点击一下鼠标左键 检测鼠标抬起 选中即可 检测键盘按下 当前屏幕分辨率 注意&#xff1a;获取的是显示器的分辨率 获取设备屏幕宽高 屏幕休眠模式 窗口/全屏模式 移动设备屏幕转向
阅读更多...
Tauri | 新版2.0路线图：更强大的插件以及支持 iOS、Android 应用构建

Tauri | 新版2.0路线图：更强大的插件以及支持 iOS、Android 应用构建

Tauri官方在9月7号发布了新版2.0的路线图&#xff0c;该版本主要是对移动端进行升级&#xff0c;主要特性如下&#xff1a; 强大的插件系统&#xff0c;官方把常用的功能进行了插件化&#xff08;见下图&#xff09;支持使用 Swift、Kotlin 编程语言开发插件&#xff0c;对 iO…
阅读更多...
软件设计开发笔记6：基于QT的Modbus RTU从站

软件设计开发笔记6：基于QT的Modbus RTU从站

Modbus是一种常见的工业系统通讯协议。在我们的设计开发工作中经常使用到它。作为一种主从协议&#xff0c;在上一篇我们实现了Mobus RTU主站工具&#xff0c;接下来这一篇中我们将简单实现一个基于QT的Mobus RTU从站工具。 1、概述 Modbus RTU从站应用很常见&#xff0c;有一…
阅读更多...
mysql 逻辑备份 bin-log日志恢复

mysql 逻辑备份 bin-log日志恢复

一、逻辑备份 逻辑备份&#xff1a;备份的是建表&#xff0c;建库&#xff0c;插入数据等操作所执行SQL语句&#xff0c;适用于中小型数据库&#xff0c;效率相对较低&#xff0c;提供三种级别的备份&#xff0c;表级&#xff0c;库级和全库级。 本质&#xff1a;导出的是SQL语…
阅读更多...
《视觉 SLAM 十四讲》第 7 讲 视觉里程计1 【如何根据图像 估计 相机运动】【特征点法】

《视觉 SLAM 十四讲》第 7 讲 视觉里程计1 【如何根据图像 估计 相机运动】【特征点法】

github源码链接V2 文章目录 第 7 讲 视觉里程计17.1 特征点法7.1.1 特征点7.1.2 ORB 特征FAST 关键点 ⟹ \Longrightarrow ⟹ Oriented FASTBRIEF 描述子 7.1.3 特征匹配 7.2 实践 【Code】本讲 CMakeLists.txt 7.2.1 使用 OpenCV 进行 ORB 的特征匹配 【Code】7.2.2 手写 O…
阅读更多...
CTF 全讲解：[SWPUCTF 2021 新生赛]Do_you_know_http

CTF 全讲解：[SWPUCTF 2021 新生赛]Do_you_know_http

文章目录 参考环境题目hello.php雾现User-Agent伪造 User-AgentHackBarHackBar 插件的获取修改请求头信息 雾散 a.php雾现本地回环地址与客户端 IP 相关的 HTTP 请求头X-Forwarded-For 雾散 参考 项目描述搜索引擎Bing、GoogleAI 大模型文心一言、通义千问、讯飞星火认知大模型…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023