棒グラフのエラーバーが隠れないようにしたい。

Question

前提

ここに質問の内容を詳しく書いてください。

R studioにて棒グラフにエラーバーをつけて作図したいが、重なった部分のエラーバーが棒グラフに隠れて表示されない。

実現したいこと

棒グラフに隠れないようにエラーバーを作図したい。

発生している問題・エラーメッセージ

該当のソースコード

library(ggplot2)

data1 <- data.frame(Group = c("A", "B", "C"),
                        Value = c(4, 5, 3),
                        Error = c(1, 1, 1))


ggplot(data = data1, aes(x = Group, y = Value)) + 
  geom_errorbar(aes(ymin = Value -Error, ymax = Value + Error), width = .3) + 
  geom_bar(stat = "identity") 

【環境】
PC：MacBook Air ver.11.5.2(Big Sur)
R：R 4.1.1
Rstudio：2021.09.0 Build 351

Comments

[melian]

geom_errorbar(aes(ymin = Value -Error, ymax = Value + Error), width = .3)

の ymin は ymin = -Error ではないでしょうか。

[kurokaba]

説明不足で申し訳ありません。
やりたいこととしは、棒グラフのてっぺんの位置から上下にエラーバーをつけたいので、yminは ymin = Value -Errorであっています。

Answer 1

R では、ggplot2 パッケージの geom_errorbar() 関数を使用して、棒グラフにエラー バーを描画できます。エラー バーがバー チャートで隠れないようにするために、position 引数を使用してエラー バーの位置を調整できます。

以下は、ggplot2 を使用して R でエラーバー付きの棒グラフを作成する方法の例です。

library(ggplot2)

# Create some example data
data <- data.frame(x = c("A", "B", "C"), y = c(1, 2, 3), ymin = c(0.5, 1.5, 2.5), ymax = c(1.5, 2.5, 3.5))

# Create the bar graph
ggplot(data, aes(x, y, fill = x)) +
  geom_bar(stat = "identity") +
  geom_errorbar(aes(ymin = ymin, ymax = ymax), width = 0.2, position = position_dodge(0.9))

上記の例では、geom_errorbar() 関数の position 引数に position_dodge(0.9) が使用されています。これは、エラー バーの位置を調整して、バー チャートによって隠れないようにします。この値を調整して、エラー バーと棒グラフの重なりを制御できます。

もう 1 つのオプションは、geom_errorbar() の代わりに geom_linerange() を使用することです。これにより、エラー バーの ymin 値と ymax 値を指定できます。

ggplot(data, aes(x, y, ymin=ymin, ymax=ymax, group = x)) + 
    geom_col(aes(fill = x)) +
    geom_linerange(position = position_dodge(width=0.9))

geom_crossbar() を使用してエラー バーをより正確に制御することもできます。これにより、エラー バーの幅を調整できます。

ggplot(data, aes(x, y, ymin=ymin, ymax=ymax, group = x)) + 
    geom_col(aes(fill = x)) +
    geom_crossbar(width = 0.1, position = position_dodge(width = 0.9))

geom_errorbar()、geom_linerange()、および geom_crossbar() の width および position 引数を操作して、目的の出力を取得できることに注意することが重要です。

Comments

[kurokaba]

丁寧なご説明と、早急なご回答ありがとうございます。
解決いたしました。