欢迎关注R语言数据分析指南
❝本节来介绍如何使用「ggplot2」来绘制环状堆砌条形图，下面小编就通过一个案例来进行展示数据为随意构建无实际意义仅作图形展示用，希望各位观众老爷能够喜欢。 ❞
加载R包
代码语言：javascript复制library(tidyverse)
library(ggtext)
library(showtext)
添加字体
代码语言：javascript复制font_add_google("Karla")
f1="Karla"
导入数据
代码语言：javascript复制data <- read_tsv("data.xls")
数据清洗
代码语言：javascript复制df <- data %>%
select(-total) %>%
mutate(biodiesel= parse_number(biodiesel)) %>%
pivot_longer(2:7) %>%
mutate(year=parse_number(year))
lev <- df %>% group_by(name) %>% tally(value) %>% arrange(n) %>%
pull(name)
数据可视化
代码语言：javascript复制df %>%
mutate(name=factor(name, levels=rev(lev)),value=replace_na(value,0)) %>%
arrange(year,name) %>%
group_by(year) %>%
mutate(val = cumsum(value)) %>%
ungroup() %>%
ggplot()
annotate(geom="segment",x=rep(2005.5,7), xend=rep(2021,7),
y=seq(10000,70000,10000), yend=seq(10000,70000,10000), size=.3, color="grey80")
ggforce::geom_link(aes(x=year, xend=year, y=0, yend=val,
color=fct_rev(name)), size=2)
geom_text(data = df %>% filter(year %in% c(2007, 2013,2019), name=="other"),
aes(label=year, x=year, y=0), vjust=2, size=3, family=f1)
geom_text(data = df %>% filter(year %in% c(2007, 2013,2019), name=="other"),
aes(label="|", x=year, y=0), vjust=1.5, size=1, familiy=f1)
scale_color_manual(values=rev(c("#788FCE","#0073B2","#E6956F","#C5E8E3","#F2CC8F","#A88AD2")),
labels=c("Other","Gasoline","Biodiesel","Hybrid","Natural Gas","Diesel"))
coord_polar(theta = "y", clip="off", start = 4.71)
scale_x_continuous(expand = expansion(mult = c(1, -0.12)))
scale_y_continuous(expand = expansion(mult = c(0, .1)),
breaks=seq(10000,70000,10000), labels=scales::comma_format())
theme_void()
theme(text=element_text(family=f1),
axis.text.x=element_text(color="black", size=8),
legend.position=c(.5,.5),
legend.title=element_blank(),
legend.text = element_text(color="black"),
plot.margin=margin(.3,.3,.3,.3, unit="cm"))
guides(color=guide_legend(reverse=T))
