可视化：环状条形图

前言

  条形图算是很常见的数据展示图形之一。今天我们就来说说条形图相关的事情——绘制环状条形图。顾名思义，环状条形图就是将正常排列的条形图绘制成圆形排列，改变一下可视化的呈现方式。

绘图

  废话不多说了，下面直接展示绘制过程，代码如下：

library(ggplot2)

# 准备数据
set.seed(21)
data <- data.frame(id=seq(1,60),
                   individual=paste( "Mister ", seq(1,60), sep=""),
                   value=sample( seq(10,100), 60, replace=T))

data$angle <- 90 - 360 * (data$id - 0.5) / nrow(data)

ggplot(data,aes(x=as.factor(id),y=value))+
       geom_bar(stat="identity",fill="skyblue")+
       geom_text(aes(x=id,y=value+10,label=individual,hjust=0),color="black",fontface="bold",alpha=0.7,size=2.5,angle=data$angle)+
       theme_minimal()+
       theme(axis.text=element_blank(),axis.title=element_blank(),panel.grid=element_blank())+
       coord_polar(start=0)+
       ylim(-60,120)

结果如下：

  可以看到环状条形图绘制起来还是挺简单的。整个绘图过程最需要注意的地方就是添加外围的标签，让添加的标签跟柱子保持在一条线上。这就要根据每一个柱子极化后的旋转角度来调整标签的旋转角度。默认情况下，标签文字都是水平放置，旋转时如果给定正数角度则从坐标0点逆时针旋转，负数则顺时针旋转。在极坐标系里面，极化后的柱子从坐标0点顺时针旋转排列。对于添加标签的细节，这里拿下图中的Mister1条目来说明一下，该条目的柱子在极坐标系的偏移角度为6(360/60)，而标签需要旋转的角度就是84(90-6)。

  大部分人应该会觉得上面第一张图左半边的标签都是底朝上，不符合我们的阅读习惯，看起来很别扭，那该如何调整呢？看下面的代码：

# 准备数据
set.seed(21)
data <- data.frame(id=seq(1,60),
                   individual=paste( "Mister ", seq(1,60), sep=""),
                   value=sample( seq(10,100), 60, replace=T))

angle <- 90 - 360 * (data$id - 0.5) / nrow(data)
data$hjust <- ifelse(angle < -90, 1, 0)
data$angle <- ifelse(angle < -90, angle+180, angle)

ggplot(data,aes(x=as.factor(id),y=value))+
       geom_bar(stat="identity",fill="skyblue")+
       geom_text(aes(x=id,y=value+10,label=individual,hjust=hjust),color="black",fontface="bold",alpha=0.7,size=2.5,angle=data$angle)+
       theme_minimal()+
       theme(axis.text=element_blank(),axis.title=element_blank(),panel.grid=element_blank())+
       coord_polar(start=0)+
       ylim(-60,120)

结果如下：

结束语

  今天说的比较基础的环状条形图，后面再介绍一下复杂一些的环状条形图，如绘制分组堆叠的环状条形图。哦了，今天到此结束~~~