R语言数据可视化绘制Circular bar plot实现环形柱状图

更新时间：2022年02月16日 14:21:47 作者：黄小仙

这篇文章主要为大家介绍了R语言绘制Circular bar plot实现环形柱状图的示例详解，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步

不知不觉，距离小仙上次发文已经过去五个多月了。R语言作图系列的更新频率跟理想中的一月一次差别有点忒大了，不得不让小仙陷入深深的反思，对于时间的规划也有了一些新的感悟。
不知道大家有没有跟我一样的感受啊，举些例子：
放学、下班或者放假之后先把学习任务扔在一边，心想着，我先玩会游戏，等会玩够了再做；
网上看到一篇干货满满的文章，先点收藏，心想着，等我有空的时候再仔细看看；
听说身边的朋友利用空余时间做了什么了不起的事情，心想着，等我有空了，我也可以试一试；
…
这样的例子数不胜数了，哈哈，小仙常想的就是，一个月有四个周末，这周末先休息，等下个周末再写文章…
就这样，周末要么觉得自己前一段太辛苦了要放松一下，要么在赶紧急的deadline，反倒是重要但是不那么紧急，也没有人给设立deadline的发文大事业被耽误了，哈哈。
现在小仙就觉得，等我有空了 = 没有空，很多时候，一些可做可不做的事情，等着等着就不做了。如果真的想做某件事情，要么立刻马上行动起来，要么就安排好具体的时间（某一天的几点到几点之间），并且把有可能发生冲突的事情也安排好。
可惜目前小仙也只是能意识到这个问题，还不能合理安排好自己的时间，现在还是在摸索阶段…

言归正传，这次给大家分享的图，是这个样子的，姑且称之为环形柱状图

Step1. 绘图数据的准备

首先还是要把你想要绘图的数据调整成R语言可以识别的格式excel中保存成csv格式。
数据的格式如下图：

作图数据

Step2. 绘图数据的读取

data <- read.csv(“your file path”, header = T)

Step3.绘图所需package的调用

library(ggplot2)

Step4.绘图

先画出普通的柱状图

p1 <- ggplot(data, aes(x = 书名,  y = 销量, fill = 书名)) + 
  geom_bar(stat = "identity", width = 0.5) +
  theme(axis.text.x = element_text(angle = 45, hjust = 0.8, vjust = 0.9)) +
  xlab("销量排行前十") + theme(legend.position = "none") +
  scale_y_continuous("销量", breaks = c(0, 200000, 400000, 600000),
                     labels = c("0", "200000", "400000", "600000"))
p1

环形柱状图

p2 <- ggplot (data, aes(x = 书名,y = 销量, fill = 书名)) + 
  geom_bar(stat = "identity", width = 0.5) +
  theme(axis.text.x = element_text(angle = 45, hjust = 0.8, vjust = 0.9)) +
  xlab("销量排行前十") + theme(legend.position = "none") +
  scale_y_continuous("销量", breaks = c(0, 200000, 400000, 600000),
                     labels = c("0", "200000", "400000", "600000")) +
  coord_polar(start = 7)
p2

排好序的环形柱状图

data$书名 <- factor(data$书名)
data$书名 <- reorder(data$书名, -data$销量)
p3 <- ggplot(data, aes(x = 书名,y = 销量, fill = 书名)) + 
  geom_bar(stat = "identity", width = 0.5) +
  theme(axis.text.x = element_text(angle = 45, hjust = 0.8, vjust = 0.9)) +
  xlab("销量排行前十") + theme(legend.position = "none")+
  scale_y_continuous("销量", breaks = c(0, 200000, 400000, 600000),
                     labels = c("0","200000","400000","600000")) +coord_polar(start = 7)
p3

在这里插入图片描述

调整颜色

p4 <- ggplot(data, aes(x =书名,y = 销量,fill = 分组)) + 
     geom_bar(stat = "identity", width = 0.5) +
     theme(axis.text.x = element_text(angle = 45, hjust = 0.8, vjust = 0.9))+
     xlab("销量排行前十") + theme(legend.position = "none")+
     scale_y_continuous("销量", breaks = c(0, 200000, 400000, 600000),
                     labels = c("0","200000","400000","600000")) +
     coord_polar(start = 7) +
     scale_fill_manual(values = c(第一梯队="#E41A1C",第二梯队="#377eb8",第三梯队="gray"))
p4

注意事项

在调整颜色的时候有个小插曲，一开始用的语句是

scale_fill_manual(values = c("#E41A1C", "#377eb8", "gray"))

但是得到的图是这样的

并不是"第一梯队"给到了红色
debug的时候发现，data$分组这一列的数据是这样的，怪不得给不到想要的颜色

把scale_fill_manual()的语句调整一下就可以啦

scale_fill_manual(values = c(第一梯队="#E41A1C",第二梯队="#377eb8",第三梯队="gray"))

以上就是R语言数据可视化绘制Circular bar plot实现环形柱状图的详细内容，更多关于R语言绘制Circular bar plot环形柱状图的资料请关注脚本之家其它相关文章！

您可能感兴趣的文章:

R语言学习ggplot2绘制统计图形包全面详解
这篇文章主要为大家详细介绍了R语言学习ggplot2绘制统计图形包的全面知识讲解，有需要的朋友可以借鉴参考下，希望能够有所帮助
2021-11-11
R语言实现支持向量机SVM应用案例
本文主要介绍了R语言实现支持向量机SVM应用案例，文中通过示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
2021-08-08
R语言差异检验:非参数检验操作
这篇文章主要介绍了R语言差异检验:非参数检验操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2021-04-04
R语言实现PCA主成分分析图的示例代码
主成分分析（Principal Component Analysis，PCA）是一种无监督的数据降维方法，通过主成分分析可以尽可能保留下具备区分性的低维数据特征。本文将用R语言实现PCA主成分分析图，需要的可以参考一下
2022-04-04
R语言字符串知识点总结及实例分析
在本篇文章里小编给各位分享的是一篇关于R语言字符串知识点总结及实例分析，有兴趣的朋友们可以学习下。
2021-03-03
R语言创建矩阵的实现方法
这篇文章主要介绍了R语言创建矩阵的实现方法，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
2021-03-03
R语言关于二项分布知识点总结
在本篇内容里小编给大家整理的是一篇关于R语言关于二项分布知识点总结内容，有兴趣的朋友们可以学习下。
2021-05-05
R语言用均值替换、回归插补及多重插补进行插补的操作
这篇文章主要介绍了R语言用均值替换、回归插补及多重插补进行插补的操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2021-03-03
R语言数据的输入和输出操作
这篇文章主要介绍了R语言数据的输入和输出操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2021-04-04
RStudio中如何更改R包安装位置浅析
R语言提供了丰富的功能和扩展包来支持各种任务,默认R语言会将安装的扩展包存储在特定的目录中,有时我们希望将这个默认存储路径更改为其他位置,以便更好地组织和管理我们的包,这篇文章主要给大家介绍了关于RStudio中如何更改R包安装位置的相关资料,需要的朋友可以参考下
2023-09-09