R语言论文插图模板第10期—正负柱状图

在之前的文章中,分享了R语言各式柱状 的绘制模板:

进一步,再来分享一种特殊的柱状图:正负柱状

先来看一下成品效果:

特别提示 :本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以在同名公号阿昆的科研日常后台回复关键词【全家桶】查看加群方式


1. 数据准备

此部分主要是读取原始数据,并进行绘图前的预处理

复制代码
# 加载库library(readxl)library(tidyr)library(ggplot2)​# 修改工作路径# setwd("D:/R")​# 读取数据data <- read_excel("data_pnbar.xlsx")data$pos <- data$Anomaly10y >=0​# 将数据转换为数据框格式data <- as.data.frame(data)

2. 颜色定义

作图不配色就好比做菜不放盐,总让人感觉少些味道。

但颜色搭配比较考验个人审美,需要多加尝试。

这里直接使用TheBestColors配色工具中的SCI顶刊配色

复制代码
library(TheBestColors)map <- Best100(16)CC <- map[c(1,4)]

3.正负柱状图绘制

利用'geom_bar'函数,绘制初始正负柱状图

复制代码
p <- ggplot(data,aes(x=Year, y=Anomaly10y, fill=pos)) +  geom_bar(stat = "identity", width = 0.7, alpha = 1) +  scale_fill_manual(values = CC) +  geom_hline(yintercept=0,linewidth = 0.2)+  labs(x = 'Year', y = 'Anomaly10y')print(p)

4. 细节优化

为了插图的美观,对坐标轴细节等进行美化,并按期刊所需分辨率、格式输出图片。

复制代码
# 细节调整p+scale_x_continuous(breaks = seq(1900, 1990, 10))+ # y轴刻度线位置  theme_classic(base_size = 8) + # 设置基本字号为8pt  theme(    axis.line = element_blank(), # 删除原始轴线    panel.border = element_rect(size = 0.5,fill = 'transparent'), # 添加全框线    panel.grid.major = element_line(size = 0.2, linetype = 'solid', color = "gray"), # 开启y轴主网格线    axis.ticks = element_line(size = 0.5), #设置刻度线粗细    axis.ticks.length = unit(1.5, "mm"), # 设置刻度线的长度    legend.position = 'none',    axis.text = element_text(size = 10), # 设置坐标轴标签字号和颜色    axis.title = element_text(size = 10), # 设置坐标轴标题字号    legend.text = element_text(size = 10), # 设置图例文本字号  )​# 图片导出ggsave("正负柱状图.jpeg",  width = 12, height = 10, units = "cm", dpi = 600)

以上。

相关推荐
ajassi200012 小时前
开源 C# 快速开发(八)通讯--Tcp服务器端
开发语言·开源·c#
毕设源码-钟学长12 小时前
【开题答辩全过程】以 基于Java的戏曲网站设计与实现为例,包含答辩的问题和答案
java·开发语言
2501_9160074712 小时前
Java界面开发工具有哪些?常用Java GUI开发工具推荐、实战经验与对比分享
android·java·开发语言·ios·小程序·uni-app·iphone
_码力全开_12 小时前
Python从入门到实战 (14):工具落地:用 PyInstaller 打包 Python 脚本为可执行文件
开发语言·数据结构·python·个人开发
tpoog13 小时前
[C++项目框架库]redis的简单介绍和使用
开发语言·c++·redis
yi碗汤园13 小时前
【一文了解】C#的StringComparison枚举
开发语言·前端·c#
Larry_Yanan13 小时前
QML学习笔记(十九)QML的附加信号处理器
开发语言·笔记·qt·学习·ui
某不知名網友13 小时前
I/O 多路转接之 epoll:高并发服务器的性能利器
开发语言·php
郝学胜-神的一滴13 小时前
深入理解 C++ 中的 `std::bind`:功能、用法与实践
开发语言·c++·算法·软件工程
xhload3d14 小时前
智慧停车场合集 | 图扑数字孪生静态交通一网统管
物联网·3d·智慧城市·html5·webgl·数字孪生·可视化·工业互联网·三维建模·智慧停车·智慧交通·轻量化·电力能源·智慧停车场·智慧停车楼