R中ggplot2的点图中未对齐的点

Question

我不明白为什么 ID 2、6、8、10 的点不会像在 1、3、4、7、9 中那样垂直对齐。

偏移量受stackratio影响，但为什么不影响所有组？

ggplot(sleep, 
       aes(x=ID,fill=group,y=extra))+
  geom_dotplot(binaxis = 'y',
               method="histodot",
               stackgroups = TRUE,
               binpositions="bygroup",
               stackratio=1,
               binwidth=0.1, 
               stackdir = "center",
               dotsize = 3)

另一个例子是

ggplot(mtcars, aes(x = factor(am),fill = factor(cyl), y = mpg)) +
  geom_dotplot(binaxis = "y",stackgroups = TRUE, stackdir = "center", binpositions="all")

这里stackgroups = TRUE 让一切都奇怪地偏移了。

可以在这里做点什么，或者有其他方法可以做到吗？

Answer 1

似乎 geom_dotplot 计算“闪避”位置，就好像所有点都在一个组中，然后将它们绘制在每个组中。

我找到了解决办法。 在这里，我自己制作了一个情节并为这些点着色。这个 ggplot 无法为其制作图例，所以我制作了另一个图例，这是正确的图例。 然后使用 plot_grid 制作我的最终情节。 正确设置key很重要，否则绘图会颜色不正确。

mycars <- as.data.table(mtcars)
mycars[cyl=="4",mycol:="red"][cyl=="6",mycol:="green"][cyl=="8",mycol:="blue"]
setkey(mycars,am,mpg)
myplot <- ggplot(mycars, aes(x = factor(am), y = mpg)) +
  geom_dotplot(binaxis = "y",
               fill=mycars$mycol,
               stackratio=1,
               binwidth=0.7, drop=FALSE,
               stackdir = "center",
               dotsize = 1)

lplot <- ggplot(mtcars, aes(x = factor(am),fill = factor(cyl), y = mpg))+
  geom_dotplot(binaxis = "y",stackgroups = TRUE)+
  scale_fill_manual(values=c("red","green", "blue"))
mylegend <- get_legend(lplot)

plot_grid(myplot,mylegend,ncol=2,rel_widths =  c(6,1))

Plot

Answer 2

我无法告诉您使用 geom_dotplot 函数时有什么问题，但您可以通过使用 geom_point 和选项 position = position_dodge2() 得到您想要的。在函数position_dodge2() 中，您可以使用width 来控制每个点的位置。请看下面的完整代码：

library(ggplot2)

ggplot(sleep, 
       aes(x=ID,fill=group,y=extra))+
  geom_point(
    size=3,
    pch = 21,
    position = position_dodge2(width=c(rep(0.00001,4),
                                       0.2,
                                       rep(0.00001,5)))
  ) + 
  scale_y_continuous(limits = c(-2,6)) +
  theme_classic() + 
  theme(panel.grid.major.x = element_line(color="gray",
                                          linetype = "dashed"))

结果：

---

更新

我们可以在同一个 X 内有不同的对齐方式。例如，当 ID=1 时，我可以移动第 2 组的点，同时保持第 1 组的点：

代码：

library(ggplot2)

ggplot(sleep, 
       aes(x=ID,fill=group,y=extra))+
  geom_point(
    size=3,
    pch = 21,
    position = position_dodge2(width=c(0.7,
                                       rep(0.00001,3),
                                       0.2,
                                       rep(0.00001,5),
                                       0.00001,
                                       rep(0.00001,3),
                                       0.2,
                                       rep(0.00001,5)))
  ) + 
  scale_y_continuous(limits = c(-2,6)) +
  theme_classic() + 
  theme(panel.grid.major.x = element_line(color="gray",
                                          linetype = "dashed"))