r ggplot2堆叠的条形图未绘制所有层

ggplot2无法在堆积的条形图上绘制变量（水）时遇到问题。

数据如下：

data <- structure(list(PARK_NON = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c("apis", "indu", "miss", 
"non_apis", "non_indu", "non_miss", "non_piro", "non_sacn", "non_slbe", 
"piro", "sacn", "slbe"), class = "factor"), variable = structure(c(15L, 
9L, 3L, 10L, 12L, 7L, 6L, 11L, 8L, 2L, 5L, 1L, 14L, 4L, 13L, 
15L, 10L, 12L, 6L, 11L, 7L, 9L, 5L, 1L, 8L, 2L, 4L, 13L, 3L, 
14L), .Label = c("Agriculture", "Barren land", "Developed - High intensity", 
"Developed - Medium intensity", "Developed - Low intensity", 
"Developed - Open space", "Evergreen forest", "Deciduous forest", 
"Mixed forest", "Herbaceous", "Pasture", "Shrub", "Woody wetland", 
"Herbaceous wetland", "Water"), class = "factor"), perc_veg = c(26.0239390821837, 
0.0293350851750396, 6.90366110126389, 1.21719944965728, 1.57541802496374, 
0.394990724328702, 5.82528684342088, 4.05485247757519, 16.4441745065715, 
1.31842615202185, 9.09594225533093, 4.04411005201813, 4.73410430895216, 
7.12470716561102, 11.213852770926, 7.66680361881418, 2.1247481894809, 
1.30789300876845, 10.5308007720824, 12.723205663498, 0.713438751370985, 
0.0478161985127231, 16.4578439049856, 11.5045071302907, 13.2759304844946, 
0.0640865818499777, 10.2423233639193, 0.795200353968627, 5.43302045035016, 
7.11238152761342), in_out = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Inside", "Outside"
), class = "factor")), class = "data.frame", row.names = c(NA, 
-30L), .Names = c("PARK_NON", "variable", "perc_veg", "in_out"
))

我想data$variable按特定顺序堆叠，所以我定义了因子顺序...

data$variable <- factor(data$variable,
                          levels=c('Agriculture','Barren land','Developed - High intensity','Developed - Medium intensity','Developed - Low intensity',
                                   'Developed - Open space','Evergreen forest','Deciduous forest','Mixed forest','Herbaceous','Pasture','Shrub',
                                   'Woody wetland','Herbaceous wetland','Water'))

然后画...

library (ggplot2)
#colors to be used for NLCD classes
wa <- rgb(71/255,107/255,161/255,1)   #water
do <- rgb(222/255,202/255,202/255,1)  #developed-open
dl <- rgb(217/255,148/255,130/255,1)  #developed-low density
dm <- rgb(238/255,0/255,0/255,1)      #developed-medium density
dh <- rgb(171/255,0/255,0/255,1)      #developed-high density
bl <- rgb(179/255,174/255,163/255,1)  #barren land
df <- rgb(104/255,171/255,9/255,1)    #deciduous forest
ef <- rgb(28/255,99/255,48/255,1)     #evergreen forest
mf <- rgb(181/255,202/255,143/255,1)  #mixed forest
sh <- rgb(204/255,186/255,125/255,1)  #shrub/scrub
gr <- rgb(227/255,227/255,194/255,1)  #grassland/herbaceous
pa <- rgb(220/255,217/255,61/255,1)   #pasture/hay
ag <- rgb(171/255,112/255,40/255,1)   #cultivated crops
ww <- rgb(186/255,217/255,235/255,1)  #woody wetlands
hw <- rgb(112/255,163/255,186/255,1)  #emergent/herbaceous wetlands
#map colors defined above to particular factors (levels) w/in the data, then use this vector for the color fill
nlcd.colors <- c("Water"=wa,"Developed - Open space"=do,"Developed - Low intensity"=dl,"Developed - Medium intensity"=dm,"Developed - High intensity"=dh,
       "Barren land"=bl,"Deciduous forest"=df,"Evergreen forest"=ef,"Mixed forest"=mf,"Shrub"=sh,"Herbaceous"=gr,"Pasture"=pa,"Agriculture"=ag,
       "Woody wetland"=ww,"Herbaceous wetland"=hw)

p <- ggplot () + geom_bar(data=data,aes(x=in_out,y=perc_veg,fill=variable,order=variable,width=0.6),stat='identity')
p <- p + scale_fill_manual("Vegetation type",values=nlcd.colors,
                           labels=c('Agriculture','Barren land','Developed - High intensity','Developed - Medium intensity','Developed - Low intensity',
                                    'Developed - Open space','Evergreen forest','Deciduous forest','Mixed forest','Herbaceous','Pasture','Shrub',
                                    'Woody wetland','Herbaceous wetland','Water'))
p <- p + guides(fill=guide_legend(reverse=TRUE)) 
p <- p + ylab('Percent of location')
p <- p + theme(axis.text=element_text(color="black"), axis.ticks.x = element_blank(), axis.title.x = element_blank())
p <- p + scale_y_continuous(expand=c(0,0),limits=c(0,100)) #to remove buffer on either side of 0 and 100

产生此图...。

图例上带有“水”，但两个栏中没有。

有任何想法吗？

谢谢

-樱桃树