在ggplotly中对齐点组和箱线图答案

【问题标题】：Aligning groups of points and of boxplots in ggplotly在ggplotly中对齐点组和箱线图
【发布时间】：2021-07-31 17:47:10
【问题描述】：

我试图在 ggplotly 情况下以交互方式显示相同数据的点和箱线图。 “躲避”定位在ggplot中完成了这项工作，但是当传递给情节定位时——我如何让盒子和点对齐？（基本上是在this question 上加分。我也意识到this question 的答案也可能是我的问题的答案，尽管我的问题可能有更多答案。）

我想要让两个图层一起显示，即使在某个位置（居中或在组位置）缺少组时，例如：

到目前为止，我得到的交互性是这样的：

library(plotly)
mtcars_boxplot <- mtcars %>%
  mutate(cyl=as.factor(cyl)) %>%
  mutate(vs=as.factor(vs)) %>%
  
  ggplot(aes(y=mpg, x=cyl)) +
  geom_boxplot(aes(color=vs), position=position_dodge())+
  geom_point(aes(color=vs), position=position_jitterdodge(), size = 0.5) 

mtcars_boxplot %>%
  ggplotly()  %>%
  layout(boxmode='group')

您可以看到，对于 cyl=8，点居中，但框显示在其组的位置。

我的问题是：如何获得第一张图片的交互式版本，或类似的东西（最好使用 ggplotly）？

【问题讨论】：

标签： r ggplot2 plotly r-plotly ggplotly

【解决方案1】：

我找到了一种方法——不是用 ggplot，而是纯情节：

mtcars_boxplot <- mtcars %>%
  mutate(cyl=as.factor(cyl)) %>%
  mutate(vs=as.factor(vs)) %>%
  plot_ly(type="box", 
    x = ~cyl, 
    y = ~mpg,
    color = ~vs,
    alignmentgroup = ~MOTART,
    boxpoints = "all",
    pointpos = 0,
    jitter = 1) %>%
  layout(boxmode='group')

如果有一个 ggplotly-answer，我仍然很想知道那个。（这实际上最终会更好地对齐，但在 ggplot 中工作时也需要更多工作。）

【讨论】：