r - ggplots 中的躲避 geom_point 用于呈现误差条的估计

Question

我正在使用以下代码来显示一些测量值、它们的估计值和它们的 CI:

ssi.oe.cutoffs.chart <- ggplot(data=oe.chart.data, aes(x=core_ot_code_mod, colour=cutoff))
ssi.oe.cutoffs.chart <- ssi.oe.cutoffs.chart + geom_hline(yintercept=1)
ssi.oe.cutoffs.chart <- ssi.oe.cutoffs.chart + geom_errorbar(aes(ymin=lcl95, ymax=ucl95, width=0.5),position="dodge")
ssi.oe.cutoffs.chart <- ssi.oe.cutoffs.chart + geom_errorbar(aes(ymin=SIR, ymax=SIR, width=0.5),position="dodge")

core_ot_code_mod是离散变量， geom_errorbar非常适合我，显示 2 个不同颜色的躲避误差条，但我不能使用类似的代码让 geom_point以同样的方式呈现。我正在使用另一个 geom_errorbar作为替代品，这不是很好。

这里有人可以启发我吗？谢谢!

Answer 1

geom_point 需要明确指定闪避的宽度。
这是一个最小的例子:

d <- data.frame(expand.grid(x=letters[1:2], co=letters[3:4]), y=runif(4))
d <- transform(d, Lo=y-1, Hi=y+1)

ggplot(d, aes(x, y, colour=co)) + 
  geom_point(position=position_dodge(width=0.3)) +
  geom_errorbar(aes(ymin=Lo, ymax=Hi), width=0.15, 
    position=position_dodge(width=0.3))

width=0.15 指定误差条的宽度。
position_dodge 里面的width=0.3 指定了dodgin 的宽度。