You have to remove position="fill"
from the geom_bar()
If you use position="fill"
then bars shows relative proportions and bars are the same height (1). You already have data that sums to 100.
+ geom_bar(stat="identity")
If you want to use position="fill"
and get 100% on the axis then you can use label=percent
(you will need library scales for that) inside the scale_y_continuous()
.
library(scales)
ggplot(dat,aes(AAA,value,fill=as.factor(DDD))) +
geom_bar(position="fill", stat="identity") +
scale_y_continuous(label=percent)