【R语言可视化】-- 环形柱状图

前言

上一节师兄给大家介绍了在R语言中，常用的柱状图绘图技巧！如柱状图分组、调色、堆积柱状图、柱状图加误差棒等等！这一小节师兄准备带大家玩点有意思的！把柱状图画成环状的！别看成了饼图哦！它们还是柱状图哦！

本期代码+示例数据+效果图+课程笔记，均可在公众号可视化艺术后台回复20220228获得！

本期效果展示

制作不易，欢迎点赞+在看！您的支持是师兄持续更新的动力！

绘图代码

图1

# 载入R包：
library(ggplot2)

################################
# plot1：把y轴方向扭曲了，柱子都变成了弯的：加上颜色分组：
ggplot(mpg, aes(class))+
  geom_bar(aes(fill=drv))+
  coord_polar(theta = "y")

ggsave("plot1.pdf", height = 6, width = 6)

# plot1.1：修饰
ggplot(mpg, aes(class))+
  geom_bar(aes(fill=drv))+
  coord_polar(theta = "y")+
  theme_bw()+
  # 调整标签字体和位置：
  geom_text(hjust = 1, size = 3,
            aes(x = class, y = 0, label = class, fontface="italic")) +
  # 设置主题：
  theme_minimal() +
  # 去掉x轴和y轴标题：
  xlab("") + 
  ylab("") +
  # 调整主题：
  theme(legend.position = "none",  # 去掉图例
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.text.y = element_blank(),
        axis.text.x = element_text(color="black", face="italic"))+
  # 设置y轴范围：
  ylim(c(0,80))+
  # 设置填充颜色：
  scale_fill_manual(values = c("#1093e1","#fb901e","#fee000"))

ggsave("plot1.1.pdf", height = 6, width = 6)