将误差条放在R中的抖动点上

Question

我尝试使用x轴上的分类数据在R中绘制带有误差条的散点图，使用以下代码：

Nesk <- read.table("E:\\R stuff\\Chapter 2\\Boxplots of nb\\NEnbNOINF.txt", header=TRUE, fill=TRUE) 

pd <- position_dodge(0.2) 

ggplot(Nesk, aes(x = TYPE, y = NB, color = TYPE)) + 
  geom_jitter() + 
  geom_point(position = pd) +
  geom_errorbar(aes(ymin = LC, ymax = UC), position = pd) + 
  theme_bw() + 
  theme(axis.title = element_text(face = "bold")) + 
  ylab("Nb")

但是，我无法在抖动点上获得错误条。我最终得到了https://imgur.com/qBcvOat。对不起，没有直接插入图片的声誉

我尝试过使用位置闪避但是我知道它只是按类别（COL，LIN，NOM）将点分开，而不是在每个类别中。有什么方法可以抖动点并将误差条附加到这些点上吗？我已经看过一些有关此修复程序的帖子，但我认为在某个地方更新了这些内容。

提前致谢！