Мои данные отображаются правильно, и я доволен тем, как они выглядят, за исключением того факта, что доверительные интервалы не отображаются вообще.Вот некоторый фиктивный код, который я придумал ради моего вопроса.
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')
, который дает следующее:
IЯ пробовал p1 + annotate('text', x = bloo, y = 1, label = 'test')
, но я даю текст для всех значений, даже тех, которые не принадлежат их соответствующей сетке.Как мне исправить это?Я пытаюсь отобразить доверительные интервалы в тексте для каждой отдельной метки.
Изображение того, что получается, когда я пытаюсь комментировать: