R语言论文插图模板第11期—双向柱状图

文摘   科技   2024-10-10 10:55   美国  

在之前的文章中,分享过很多R语言柱状图的绘制模板:

本期再来分享一种特殊的柱状图:双向柱状图

先来看一下成品效果:

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


 

1. 数据准备

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

# 加载库library(readxl)library(tidyr)library(ggplot2)
# 修改工作路径# setwd("D:/R")
# 读取数据data <- read_excel("data_bdbar.xlsx")
# 将数据转换为数据框格式data <- as.data.frame(data)
# 将数据转换为长格式data_long <- data %>% pivot_longer(cols = -X, names_to = "series", values_to = "value")

 

2. 颜色定义

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

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

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

library(TheBestColors)map <- Best100(16)CC <- map[c(1,3)]

获取方式:公众号(阿昆的科研日常)后台回复100


3.双向柱状图绘制

利用‘geom_bar’函数,绘制初始双向柱状图

p <- ggplot(data_long, aes(x = X, y = value, fill = series)) +  geom_bar(stat = "identity", width = 0.8, colour = "black", size = 0.2, alpha = 1) +  scale_fill_manual(values = CC) +  geom_hline(yintercept=0,linewidth = 0.2)+  labs(x = 'Day', y = 'Payment')print(p)


4. 细节优化

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

# 细节调整p+scale_x_continuous(breaks = seq(1, 6, 1) ) + # x轴显示范围  theme_classic(base_size = 8) + # 设置基本字号为8pt  theme(    axis.line = element_blank(), # 删除原始轴线    panel.border = element_rect(size = 0.5,fill = 'transparent'), # 添加全框线    axis.ticks.length = unit(1.5, "mm"), # 设置刻度线的长度    legend.title = element_blank(), # 设置图例标题为空    legend.position = 'right', # 设置图例位置    axis.text = element_text(size = 10), # 设置坐标轴标签字号和颜色    legend.text = element_text(size = 10), # 设置图例文本字号    axis.title = element_text(size = 10), # 设置坐标轴标题字号  )
# 图片导出ggsave("双向柱状图.png", width = 12, height = 10, units = "cm", dpi = 600)

以上。


如果你觉得我的分享对你有帮助的话,欢迎大家在这里点赞、在看、分享。当然,也欢迎大家在这里打赏。互动越多,更新越快哦~

声明:本公众号的所有原创内容,在未经允许的情况下,不得用于任何商业用途,违者必究。

阿昆的科研日常
测绘科普,经验分享,科研日常,蜜汁脑洞
 最新文章