r - ggplot2 を使用して棒グラフを描画する

Question

私はこのようなグラフを作りたいと思っています: ジャーナルからの画像

私のデータは次のようなものです：

temp<-data.frame(agecat=c("40-49","40-49","50-59","50-59","60+","60+"),
                  ANY=c("NO","YES","NO","YES","NO","YES"),
                  median=c(0.81,0.83,0.78,0.83,0.84,0.89),
                  up=c(1.2,1.25,1.25,1.31,1.44,1.34),
                  down=c(0.53,0.41,0.41,0.47,0.56,0.69))

(グラフの HIV は私の数字の ANY のようなものです)

以下のコードを試しましたが、うまくいきません。

ggplot(temp,aes(agecat,median,group=ANY,color=ANY,LABEL=round(median)))+geom_point()+facet_grid(~ANYPLAQ+agecat, scales="free", space="free")+geom_errorbar(aes(ymin=down,ymax=up),width=0.2)

私はこのような図しか得ることができませんでした: ここに画像の説明を入力してください

各列の間の幅が年齢グループ内と年齢グループ間で異なることを願っています。

誰かが私にいくつかの提案をしてくれませんか、ありがとう!!