顺序排列的条形图

如下命令可画顺利排列的条形图，且自定义颜色

数据如下：

 

类别

 

时间

 

大类别

 

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"))     # 设置类别的颜色

 

绘制图形如下：