編集：データは次のとおりです。
date<-c("20130107", "20130109", "20130111", "20130111", "20130113", "20130114", "20130114", "20130122", "20130125", "20130125", "20130128")
ID<-c("Blue","Red","Red","Red","Red","Red","White","Green","Black","Purple","Purple")
date_ID<-c("20130107 Blue", "20130109 Red", "20130111 Red", "20130111 Red", "20130113 Red", "20130114 Red", "20130114 White", "20130122 Green", "20130125 Black", "20130125 Purple", "20130128 Purple")
perc_yes<-c(-0.10394265, -1.00000000, -1.00000000, -1.00000000, -1.00000000, -1.00000000, -0.40425532, -0.09297913, -1.00000000, -0.17864924, -0.12353401)
perc_no<-c(0.8960573, 0.0000000, 0.0000000, 0.0000000, 0.0000000, 0.0000000, 0.5957447, 0.9070209, 0.0000000, 0.8213508, 0.8764660)
data<-data.frame(date,ID,date_ID,perc_yes,perc_no)
次のようなデータフレームがあります。
date ID date_ID perc_yes perc_no
1 20130107 Blue 20130107 Blue -0.10394265 0.8960573
2 20130109 Red 20130109 Red -1.00000000 0.0000000
3 20130111 Red 20130111 Red -1.00000000 0.0000000
4 20130111 Red 20130111 Red -1.00000000 0.0000000
5 20130113 Red 20130113 Red -1.00000000 0.0000000
6 20130114 Red 20130114 Red -1.00000000 0.0000000
7 20130114 White 20130114 White -0.40425532 0.5957447
8 20130122 Green 20130122 Green -0.09297913 0.9070209
9 20130125 Black 20130125 Black -1.00000000 0.0000000
10 20130125 Purple 20130125 Purple -0.17864924 0.8213508
11 20130128 Purple 20130128 Purple -0.12353401 0.8764660
日付、ID、およびグループ化された日付と ID、はいの割合、いいえの割合が一覧表示されます。日付と ID で時系列の棒グラフを作成したいのですが、日付が同じで ID が異なる場合、バーはグループ化されます。はいのパーセンテージはマイナスです。なぜなら、ノーのパーセンテージの真下で負のy方向に落ちるようにしたいからです。
複数のデータポイントと積み重ねがあるため、バープロットを試してみましたが成功しませんでした。プロット関数で lines() のように複数の barplot ポイントを追加する方法はありますか? データをプロットするにはどうすればよいですか? ggplot を使用する方が良いでしょうか (私は少し慣れていません)?