顺序排列的条形图

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

数据如下：

 

                                                                           

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

 

绘制图形如下：