r - Rで指定されたエラーバー値で積み上げ棒グラフを作成する

Question

計算するのではなく、事前に定義したい値のエラーバーを使用して、R で積み上げ棒グラフを作成しようとしていますが、各バーの値は異なります。

たとえば、データ フレームが次の場合:

x<-data.frame(
  Period = c("B1","D1a"),
  Sample = c("Glucose","Glucose"),
  Mi = c(2,3),
  M0 = c(4,6)
)

このコードで必要なバー プロットを作成できます。

mx <- melt(x,  id.vars=1:2)
ggplot(mx, aes(x=Period, y=value, fill=variable), xLabels=NA) +
  geom_bar(stat="identity") +
  facet_grid(~Sample) +
  scale_fill_manual(values = c("grey69","black")) +
  theme_bw() +
  xlab("") + 
  ylab ("")

では、それぞれの信頼区間が B1、Mi = 0.5、B1、M0 = 0.2、D1a、Mi = 0.1、D1a、M0 = 0.2 の場合、それぞれにエラー バーを追加するにはどうすればよいですか。

棒グラフの各セクションにエラー バーを作成するにはどうすればよいですか?

ありがとう