本文介绍如何使用R语言绘制包含自定义颜色和顺序的条形图，并展示了通过修改类别标签来改善图表可读性的过程。
如下命令可画顺利排列的条形图，且自定义颜色
数据如下：
| 类别 |
| 时间 |
| 大类别 |
| 11晨会 |
| 106.50 |
| 会议 |
| 14周会 |
| 39.58 |
| 会议 |
| 19月会 |
| 7.00 |
| 会议 |
| 12专项会议 |
| 84.83 |
| 会议 |
| 13生产会议 |
| 61.58 |
| 会议 |
| 16良率会议 |
| 16.50 |
| 会议 |
| 15工作会议 |
| 37.83 |
| 会议 |
| 18异常处理会议 |
| 10.17 |
| 会议 |
| 21电话会议 |
| 1.50 |
| 会议 |
| 17工作汇报 |
| 13.67 |
| 会议 |
| 20厂商拜访 |
| 6.33 |
| 会议 |
| 22工作计划拟定 |
| 26.50 |
| 计划拟定 |
> thisd<-read.delim("thisdd.txt") #读取文件中的数据
> levels(thisd$类别)
[1] "11晨会" "12专项会议" "13生产会议" "14周会" "15工作会议" "16良率会议" "17工作汇报" "18异常处理会议"
[9] "19月会" "20厂商拜访" "21电话会议" "22工作计划拟定"
> levels(thisd$类别)<-c("晨会","专项会议","生产会议","周会","工作会议","良率会议","工作汇报","异常处理会议","月会",
+ "厂商拜访","电话会议","工作计划拟定") #修改x轴上的刻度名称
> p<-qplot(类别,时间, data=thisd, geom="bar", fill=大类别,main="会议与计划拟定")
> p+scale_fill_manual(values=c("lightblue","#5F96D9")) # 设置类别的颜色
绘制图形如下：
扫一扫
1439
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
