堆叠图，颜色为什么如此分配？？

1. library(ggplot2)
   
2. library(plyr)
   
3. library(grid)
   
4. rm(list=ls())
   
5. ##################
   
6. #变量
   
7. 
   
8. raw_data <- t(matrix(c(
   
9.   31, 35,        86,        45,        106,        149,
   
10.   35, 33,        88,        42,        101,        144,
    
11.   28, 33,        78,        28,        107,        151,
    
12.   34, 32,        96,        39,        113,        170,
    
13.   31, 30,        70,        52,        100,        129,
    
14.   50, 37,        94,        28,        108,        163,
    
15.   36, 38,        82,        42,        109,        158,
    
16.   35, 29,        81,        38,        102,  146,
    
17.   35, 37,        86,        42,        105,        149
    
18. ),6,9))
    
19. 
    
20. type_name <- c('SO2','C0','N02','03_8h','PM10','PM2.5')
    
21. 
    
22. position <- c('奥体中心','草场门','迈皋桥','仙林大学城','浦口','瑞金路','山西路','玄武湖','中华门')
    
23. ################## IAQI排序
    
24. b=sort(colSums(raw_data),index.return=TRUE,decreasing = TRUE)$ix
    
25. my_color = c('orange','springgreen3','purple','blue','red','yellow')
    
26. 
    
27. j<-1:6
    
28. name_new <- type_name[b[j]]
    
29. 
    
30. raw_data_1 = raw_data
    
31. type_name1 = type_name
    
32. 
    
33. for (i in 1:6){
    
34.   raw_data_1[,i] = raw_data[,b[i]]
    
35.   type_name1[i]   = type_name[b[i]]
    
36. }
    
37. ###################
    
38. #变量合并
    
39. 
    
40. data_new <- rep(0,6*9)
    
41. type <- rep("",6*9)
    
42. pos <- rep("",6*9)
    
43. 
    
44. for(i in 1:9){
    
45.   for(j in 1:6){
    
46.     index <- (i-1)*6+j
    
47.     data_new[index] <- raw_data_1[i,j]
    
48.     type[index] <- type_name1[j]
    
49.     pos[index] <- position[i]
    
50.   }
    
51. }
    
52. 
    
53. data_all <-  data.frame(
    
54.   pos,
    
55.   type,
    
56.   data_new
    
57. )
    
58. 
    
59. 
    
60. ce<-ddply(data_all, "pos", transform, label_y = cumsum(data_new)-0.5*data_new)
    
61. 
    
62. gp <- ggplot(ce, aes(x=reorder(pos,data_new, sum), y = data_new, fill = type)) +
    
63.        geom_bar(stat = "identity",width=0.7) +
    
64.          scale_fill_manual(values = my_color,breaks=name_new,labels=name_new)+
    
65.           geom_text(aes(y = label_y, label = data_new), vjust = 0.4, colour = "Black")+
    
66.            guides(fill=guide_legend(reverse = TRUE))+
    
67.               xlab("国控点位置")+ylab("Accumulation  of  IAQI")+
    
68.               theme_bw()+
    
69.                theme(
    
70.                  plot.margin = unit(c(2,0.5,1,1),'lines'),
    
71.                  axis.title.x = element_text(colour = 'black',size=15,face = 'bold',vjust=-0.5),
    
72.                  axis.text.x = element_text(colour='black',size=10),
    
73.                  axis.title.y = element_text(colour = 'black',size=15,face = 'bold',vjust=1.5),
    
74.                  axis.text.y = element_text(colour='black',size=12)
    
75.                )
    
76. 
    
77. print(gp)

复制代码

代码和图如上所示，目前输出为我所求，但有一个疑问就是颜色的顺序为什么和我想的不太一样。我认为颜色应该是按照我的设定，一个一个去填充，如先是orange,接着是springgreen3,purple这样，为什么其中的顺序变混掉了，是哪里出了问题？虽然最终程序实现，但这个问题还是困扰着我，希望各路大神能帮我解答，谢谢啦

stack的顺序可以通过在ggplot函数里添加order这个参数来指定。例如你可以在fill=type后面加上order=desc(type)