连载「数据可视化」条/柱形图R代码+案例

本期推送的6篇文章全部是关于用R代码实现不同种类的柱状图，全部用ggplot2 包来实现。本文代码参考《R数据可视化手册》，文中使用的数据为本人的真实数据。

如果需要系统掌握ggplot2包的用法，请持续关注，我会陆续将ggplot2包的相关知识分享出来，你也可以购买《R数据可视化手册》自己研究。

介绍的6种柱形图分别是：

1. 简单柱形图

2. 数据透视图（将数据透视分析的结果绘制柱形图）

3. 频数柱形图（类似于简单柱形图）

4. 簇状柱形图（在一幅图中显示两个分类变量）

5. 堆积柱形图

6. 百分比堆积柱形图

   
   

为避免臃肿从而方便阅读，我将他们分成了6篇文章，这是第一部分。

重点难点！！！

在Excel中，我们能够非常容易的改变不同柱子的顺序，但是使用ggplot2绘图时，改变柱子的顺序比较困难。这是因为，我们用数据框保存的有关类别的变量是因子变量，因子变量中因子的顺序，必须通过将因子变量设定为有序因子变量并设定因子的顺序才能实现。所以如果想要获得自己想要的顺序，有两种办法：

1.将因子变量设定为有序因子变量同时指定顺序，本文演示的是这种方法；相关代码如下：

#改变因子的顺序，最终使得条形图按照顺序输出
data_01$大学类型<-factor(data_01$大学类型,
order =TRUE,
levels=c("三本院校","二本院校","普通一本","国家211","国家985"))

2.在绘图时，通过设定ggplot的绘图参数来实现，代码如下，这种实现方法，在后面的文章中有体现。

 scale_x_discrete(limits=c("三本院校","二本院校","普通一本","国家211","国家985"))

Part 1 简单条形图

原始数据的格式如下

## 大学类型 得分 ## 1 二本院校 61.3 ## 2 国家211 67.5 ## 3 国家985 80.5 ## 4 普通一本 69.0 ## 5 三本院校 55.8

下图是通过Excel绘制的简单条形图，现在使用R的ggplot2包来完成相同的任务。

setwd('d:/data_visual/data/3.1bar_chart')
library(ggplot2)

#载入数据
data_01<-read.csv(file = '01简单柱形图.csv',header = TRUE)

#因子水平为
levels(data_01$大学类型)

## [1] "二本院校" "国家211" "国家985" "普通一本" "三本院校"

#改变因子的顺序，最终使得条形图按照顺序输出
data_01$大学类型<-factor(data_01$大学类型,
order =TRUE,
levels=c("三本院校","二本院校","普通一本","国家211","国家985"))

#改变因子顺序后的因子水平为
levels(data_01$大学类型)

## [1] "三本院校" "二本院校" "普通一本" "国家211" "国家985"

#使用ggplot2来绘制图形,线进行数据的映射
p<-ggplot(data_01,aes(x=大学类型, y=得分))+ geom_bar(stat="identity",width=0.4,fill="lightblue",colour="black")+ geom_text(aes(label=得分),vjust=1.5,colour='black')

#添加标题并绘图
p+ggtitle("不同类型学校的学生对自己学校认同感\n(逆序)")

#将条形图按照学校等级顺序排列
p+ggtitle("不同类型学校的学生对自己学校认同感\n(顺序)")+ scale_x_discrete(limits=rev(levels(data_01$大学类型)))