相关疑难解决方法(0)

我有两组带误差线的点.我想偏移第二个,所以它显示从第一个集稍微下降,所以它不会模糊原始.

这是一个模拟数据集:

x=runif(4,-2,2)
y=c("A","B","C","D")
upper=x+2
lower=x-2
x_1=runif(4,-1,3)
upper_1=x_1+1
lower_1=x_1-2

这是我用来制作情节的代码:

qplot(x,y)+
  geom_point(size=6)+
  geom_errorbarh(aes(xmax=upper,xmin=lower),size=1)+
  geom_point(aes(x_1,y),size=6,pch=8,vjust=-1,col="grey40")+
  geom_errorbarh(aes(xmax=upper_1,xmin=lower_1),size=1,col="grey40")

这是情节:

我希望将灰色星号和相关的误差条绘制在黑色圆圈和相关误差条下方的头发上.我会转换数据集,但Y轴是分类变量.

利用 中的示例包代码ggpubr，该ggdotchart函数不会创建单独的段，如示例中所示，而是只有一个段，尽管点似乎放置在正确的方向。有谁对可能出现的问题有任何提示吗？我认为这可能是由于 tibbles vs. df 等因素造成的，但我一直无法确定问题所在。

代码：

df <- diamonds %>%
  filter(color %in% c("J", "D")) %>%
  group_by(cut, color) %>%
  summarise(counts = n()) 

ggdotchart(df, x = "cut", y ="counts",
           color = "color", palette = "jco", size = 3, 
           add = "segment", 
           add.params = list(color = "lightgray", size = 1.5),
           position = position_dodge(0.3),
           ggtheme = theme_pubclean()
           )

预期输出为：

但我得到的是：