在堆叠条形图中构建分组条形图

Question

Treatment<- c(rep("Burkholderia", 2), rep("Cut", 2), rep("Male", 2,), rep("Split", 2),rep("Burkholderia", 2), rep("Cut", 2), rep("Male", 2),rep("Split",2))
Infection<- rep(c("Pos","Neg"), 8) 
Lifestage<- c(rep("Young",4), rep("Old", 4)) 
Value<- c(0,7,3,27,2,25,0,23,16,0,12,2,11,2,28,0)
groupbar<- data.frame(Treatment, Lifestage, Infection, Value)
head(Prop_at_lifestage)
ggplot(data = groupbar, aes(y = Value, x = Lifestage, fill = Infection)) +
  geom_bar(stat="identity",position='fill') +  theme_bw() + 
  facet_grid( ~ Treatment)

我输入了上面的代码，试图生成一个数字，显示每个生命阶段（年轻或年老）的每种感染状态（阳性或阴性）的比例，由治疗分隔。我似乎可以弄清楚为什么它只是按原样输出。