データが正しくプロットされ、信頼区間がまったく表示されないという事実を除けば、どのように表示されるかに満足しています。これは、質問のために作成したダミーコードです。
library('ggplot2')
blee = rnorm(14)
blarg = rnorm(14)
bloo = (letters[1:14])
low = blee - 1.96 * blarg
up = blee + 1.96 * blarg
knobs = (rep(LETTERS[1:2],7))
df <- data.frame(blee, blarg, bloo, low, up, knobs)
p1 <- ggplot(data = df, aes(x = reorder(bloo, blee), y = blee, ymin = low, ymax = up))
geom_pointrange() +
geom_hline(yintercept = 0, lty = 2) +
coord_flip() +
xlab('label') +
ylab(NULL) +
theme_bw() +
scale_y_discrete(limits = c(-5, 5)) +
facet_grid(knobs ~ ., scales = 'free', space = 'free')
これにより、次の結果が得られます。
私は試しましp1 + annotate('text', x = bloo, y = 1, label = 'test')たが、それぞれのグリッドに属していないものも含め、すべての値のテキストを生成します。これを解決するにはどうすればよいですか？個々のラベルごとに信頼区間をテキストで表示しようとしています。
注釈を付けようとしたときに得られるもののイメージ:
