据我所知，geom_segment不允许抖动或匀光。您可以将抖动添加到数据框中的相关变量，然后绘制抖动变量。在您的示例中，因子转换为数值，然后使用scale_y_continuous将因子水平的标签添加到轴上。

library(ggplot2)
iris$JitterSpecies <- ave(as.numeric(iris$Species), iris$Species, 
   FUN = function(x) x + rnorm(length(x), sd = .1))

ggplot(iris, aes(x = Petal.Length, xend = Petal.Width,
                 y = JitterSpecies, yend = JitterSpecies)) +
    geom_segment()+
    geom_point(aes(size=Sepal.Length, shape=Species)) +
    scale_y_continuous("Species", breaks = c(1,2,3), labels = levels(iris$Species))

但似乎geom_linerange允许躲闪。

ggplot(iris, aes(y = Petal.Length, ymin = Petal.Width,
                 x = Species, ymax = Petal.Length, group = row.names(iris))) +
       geom_point(position = position_dodge(.5)) +
     geom_linerange(position = position_dodge(.5)) +
     coord_flip()

geom_segment的position参数可能对您有帮助，请参见Slightly change geom_segment's position of x only, but keep position of xend constant

针对ggplot2版本3.4.2进行了更新，并基于另一个short answer进行构建：
您现在可以使用position = position_dodge2(width = 0.1)。例如：

ggplot(iris, aes(x = Species,
                 ymin = Petal.Length,
                 ymax = Petal.Width)) +
  geom_linerange(position = position_dodge2(width = 0.5)) +
  coord_flip() +
  theme_bw()

将生成此图形：

注意，ggplot2只允许geom_linerange()用于y轴，因此使用coord_flip()。