用散点图覆盖散布的分组条形图

Question

我正在尝试在散点图的条形图顶部叠加散点图。 但是，在简单的条形图中，散点正确地放置在各个条的顶部，而在分组的条形图中，散点不会自动调整。

这是说明问题的示例：

set.seed(1)
d1 <- data.frame(x=rep(c('a', 'b', 'c'), each=2),
                 y=rnorm(6, mean=10),
                 c=rep(c('q', 'r'), times=3))
d2 <- d1[d1$c=='q', ]

p1 <- plot_ly(data=d2, x=~x, y=~y, type='bar')
p2 <- add_trace(p1, data=d2, x=~x, y=~y, 
                type='scatter', mode='markers', marker=list(size=20))
p3 <- plot_ly(data=d1, x=~x, y=~y, color=~c, type='bar')
p4 <- add_trace(p3, data=d1, x=~x, y=~y, 
                type='scatter', mode='markers', marker=list(size=20))

subplot(p1, p2, p3, p4, nrows=2)

生成下图：

在右上方的面板（p2）中，这些点放置在其各自的条形图上，而在右下方的面板（p4）中，这些点未根据颜色系数进行调整。

我可以想象通过将x设置为数值变量并手动设置，少量调整点等来解决此问题。但这似乎很乏味。 有没有一种简单的方法可以进行绘图调整？

（显然，目标不是让单个点显示每个小节的顶部，而是将小节上覆盖整个云）

Answer 1

根据您要执行的操作，您可以使用误差线 ，可以使用width ， thickness和color参数使其看起来像是常规散点图（ width是指末端的线，而晶须的thickness是指thickness = 0则应将其取出）。