Question

我有以下df数据，并画出一个点距图。现在，我需要在图中添加标签以显示每个错误栏的计数。

  group   OR  LCI  UCI count
1     A 1.00 0.00 0.00  2107
2     B 1.00 0.85 1.18   955
3     C 1.11 0.87 1.41   215
4     D 1.65 0.98 2.80    23

数据的第一行是参考组OR = 1。

  ggplot(data=df, aes(x = group, y = OR, ymin = LCI, ymax = UCI)) + 
  geom_pointrange() +
  coord_cartesian(ylim=c(0.45, 2.5)) +                                           
  scale_y_continuous (breaks=c(0.5, 1.0, 1.5, 2.0, 2.5)) + 
  geom_text(aes(label=count, y = LCI - 0.05), position = "identity")

但是这个职位不是我想要的，而且第一个数字丢失了。我希望计数数字连续出现在y = 0.5位置并且在每个误差线的下方。解决问题的一些想法？谢谢！

Answer 1

使用“ y = 0.5”，问题解决了。

  ggplot(data=df, aes(x = group, y = OR, ymin = LCI, ymax = UCI)) + 
      geom_pointrange() +
      coord_cartesian(ylim=c(0.45, 2.5)) +                                           
      scale_y_continuous (breaks=c(0.5, 1.0, 1.5, 2.0, 2.5)) + 
      geom_text(aes(label=count, y = 0.05), position = "identity")

在图上添加标签

1 个答案: