R 将分组条形图与散点图叠加在一起

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

下面是一个演示问题的示例：

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)

set.seed（1）
d1取决于你想做什么你可以使用，你可以使用
宽度
、
厚度
和
颜色
参数使它看起来像一个规则的分散体（
宽度
指的是末端的线条，
厚度
指的是胡须，
厚度=0
应该去掉它们）.
我知道这可能适用于单个点，但如何使它适用于整个分散点云？