在之前的文章中,分享了R语言柱状图的绘制模板:
堆叠图的绘制模板:
进一步,再来看一下百分比堆叠图的绘制方法。
先来看一下成品效果:
特别提示:本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以在公众号后台回复关键词【全家桶】查看加群方式。
1. 数据准备
此部分主要是读取原始数据,并进行绘图前的预处理。
# 加载库
library(readxl)
library(tidyr)
library(ggplot2)
修改工作路径
# setwd("D:/R")
# 读取数据
data <- read_excel("data_stack.xlsx", col_names = FALSE)
# 将数据转换为数据框格式
data <- as.data.frame(t(data))
# 定义x值
x <- 1:13
data$x <- x
# 定义数据标签
names(data) <- c("Sample1", "Sample2", "Sample3", "Sample4", "x")
# 将数据转换为长格式
data_long <- data %>%
pivot_longer(cols = -x, names_to = "series", values_to = "value")
2. 颜色定义
作图不配色就好比做菜不放盐,总让人感觉少些味道。
但颜色搭配比较考验个人审美,需要多加尝试。
这里直接使用TheBestColors配色工具中的SCI顶刊配色:
library(TheBestColors)
map <- Best100(46,4)
CC <- map[c(1:4)]
3.百分比堆叠图绘制
利用‘geom_bar’函数,绘制初始百分比堆叠图。
p <- ggplot(data_long, aes(x = x, y = value,fill=series)) +
geom_bar(stat = "identity",position="fill", color="black",linewidth=0.2,width = 0.7,alpha=1)+ # 百分比堆叠图
scale_fill_manual(values = CC) + #填充颜色
labs(x = 'Day', y = 'Weight change(%)') # 坐标轴标题
print(p)
4. 细节优化
为了插图的美观,对坐标轴细节等进行美化,并按期刊所需分辨率、格式输出图片。
# 细节调整
p + scale_x_continuous(breaks = seq(1, 13, 1), # x轴刻度线位置
expand = c(0,0), # x坐标轴与绘图区域边缘的扩展量
limits = c(0.2, 13.8) ) + # x轴显示范围
scale_y_continuous(breaks = seq(0, 1, 0.2), # y轴刻度线位置
expand = c(0,0), # y坐标轴与绘图区域边缘的扩展量
limits = c(0, 1)) + # y轴显示范围
theme_classic(base_size = 8) + # 设置基本字号为8pt
theme(
axis.ticks = element_line(size = 0.5), #设置刻度线粗细与颜色
axis.ticks.length = unit(1.5, "mm"), # 设置刻度线的长度
legend.title = element_blank(), # 设置图例标题为空
legend.position = 'top', # 设置图例位置
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)
以上。