r - geom_beeswarm 半图而不是对称

Question

我正在使用 geom_beeswarm 来测试我的数据集中的数据分布。在我的玩具示例中，这是我的代码。

library(survival)
library(ggplot2)
library(ggbeeswarm)
data("pbc")
head(pbc)

ggplot(pbc, aes(x=trt, y= age, color = trt)) +
  geom_beeswarm(cex =2, size =3, priority="density") +
  theme(panel.background = element_blank(), legend.position = "none") + 
  facet_wrap(~trt, nrow = 3, ncol = 1)

这是我得到的，

但是我只对情节的一半感兴趣，而不是如下所示的对称性。预期情节

我知道我可以使用原始 beeswarm 库中的 side=1 或 side=-1 选项来完成此操作。不知道如何使用 geom_beeswarm 选项做同样的事情。任何建议都非常感谢。谢谢。