其他
跟着 CNS 学绘图-带阴影背景条形图
1引言
之前绘制过带连线的条形图:
见:
可以看到是以线条连接的,今天尝试一下使用填充颜色块来绘制下面这种类型:
2两组
# 加载R包
library(ggplot2)
library(tidyverse)
library(ggsci)
library(reshape2)
# 设置工作路径
setwd('C:/Users/admin/Desktop')
# 读取数据
bar0 <- read.table('bar.txt',header = T)
# 查看内容
bar0
sample C B A D
1 s1 10 30 55 28
2 s2 34 57 45 17
普通条形图:
# 宽数据转为长数据
da <- melt(bar0)
# 默认绘图
p <- ggplot(data = da) +
# 添加柱子
geom_col(aes(fill = variable,x = sample,y = value),
position = position_fill(),
# position = position_stack(),
# 柱子边框颜色、粗细
color = NA,
# 柱子宽度
width = 0.5) +
scale_fill_npg() +
# 主题细节调整
theme_bw(base_size = 14,
base_line_size = 1,
base_rect_size = 2) +
theme(legend.position = 'top',
aspect.ratio = 0.8) +
xlab('') + ylab('')
p
计算每个分类的累计高度:
微信扫一扫付费阅读本文
可试读22%
微信扫一扫付费阅读本文