2

バー内の各セクションではなく、個々のバーの上に単一のエラーバーを持つ積み上げ棒グラフを描画しようとしましたが、成功しませんでした。各セクションのすべてのエラー バーを描画することはできますが、単一のエラー バーを描画する解決策が見つかりませんでした。

ここにデータフレームdfがあります

    Sp  Type    Or        Rate        se

1  H   Dis     Bottom    14.5454545  8.0403025
2  H   Dis     Top       2.7272727   1.9403407
3  H   Dis     WP        0.9090909   0.9090909
4  H   He      Bottom    5.4545455   1.4845392
5  H   He      Top       15.4545455  5.0797135
6  H   He      WP        0.0000000   0.0000000
7  H   HeDis   Bottom    9.0909091   3.8330638
8  H   HeDis   Top       8.1818182   4.1659779
9  H   HeDis   WP        3.6363636   2.0100756
10 N   Dis     Bottom    19.0909091  8.9329715
11 N   Dis     Top       0.0000000   0.0000000
12 N   Dis     WP        0.0000000   0.0000000
13 N   He      Bottom    22.7272727  7.0743137
14 N   He      Top       0.0000000   0.0000000
15 N   He      WP        3.6363636   2.7773186
16 N   HeDis   Bottom    14.5454545  5.2835139
17 N   HeDis   Top       10.0000000  4.3808583
18 N   HeDis   WP        0.0000000   0.0000000

これは、バー内の各セクションのエラー バーを含む積み上げバー プロットを描画するスクリプトです (各エラー バーの位置は正しくありませんが、これは私が望むものではないため、これは問題ではありません)。

dodge<- position_dodge(width = 0.65)
cols <- c(Top="darkgrey",Bottom="lightgrey", Well_plate="white") 
Stacked_plot_bis<-ggplot(df,
aes(x=factor(Type),y=Rate,fill=factor(Or))) +
geom_bar(aes(width=.65), stat="identity",colour="black")+
geom_errorbar(aes(ymin=Rate-se,ymax=Rate+se), position="dodge",colour="black",
width=.65)+
scale_fill_manual(values = cols)+
facet_grid(. ~ Sp)

これは、各バー内のすべてのセクションのエラー バーを描画します。セクションを考慮せず、各タイプの全体的な値のみを考慮して、個々のバーの上に 1 つの全体的なエラー バーを描画するにはどうすればよいですか?

どんな助けでも大歓迎です！

4

1 に答える 1

3

を計算するダミーデータセット（data.tableパッケージで作成しました）を作成しmean(se)（ベストプラクティスではないと思いますが）、次のようにプロットできます（エラーバーの色を変更して確認できるようにしましたそれらの方が良い）

dodge<- position_dodge(width = 0.65)
cols <- c(Top="darkgrey",Bottom="lightgrey", Well_plate="white") 
library(data.table)
Dummy <- data.table(df)[, list(Rate = sum(Rate), se = mean(se), Or = "WP"), by = c("Sp", "Type")] 
ggplot(df,aes(x=factor(Type),y=Rate,fill=factor(Or))) +
  geom_bar(aes(width=.65), stat="identity",colour="black")+
  geom_errorbar(data = Dummy, aes(ymax = Rate +se, ymin=  Rate -se), position="dodge", colour="red", width=.65)+
  scale_fill_manual(values = cols)+
  facet_grid(. ~ Sp)

ここに画像の説明を入力

于 2014-04-23T09:44:33.873 に答える