さまざまな種のウイルスに対して陽性反応を示したサンプルの数を示す、次のような表があります。
Species Virus NoTested NoPositive Prevalence LowerCI UpperCI
1 1 100 46 0.46 0.4 0.5
2 1 80 23 0.29 0.2 0.3
3 1 96 3 0.03 0 0.1
1 2 133 45 0.34 0.2 0.5
2 2 23 10 0.43 0.3 0.5
3 2 75 16 0.21 0.1 0.3
1 3 88 24 0.27 0.2 0.3
2 3 94 12 0.13 0.1 0.2
3 3 65 34 0.52 0.4 0.6
グループ化された棒グラフを作成して、ウイルスに応じたセットで、種ごとの陽性サンプルの割合を示すことができるようにしたいと考えています。また、信頼区間を示すエラー バーも追加したいと考えています。
geom_bar() を使用して ggplot でこれを実行しようとしましたが、非常に見苦しい積み上げプロットが得られます。
bar1<-ggplot(sppPrev3, aes(種、有病率、色=ウイルス))