0

我的数据绘制正确，并且对它的外观感到满意，除了置信区间根本没有显示。这是我为了我的问题而编造的一些虚拟代码。

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')，但我为所有值生成文本，即使是那些不属于各自网格的值。我该如何补救？我正在尝试在每个标签的文本中显示置信区间。

当我尝试注释时产生的图像：

当我尝试注释时产生的图像。

4

0 回答 0