有没有办法使用 ggs_caterpillar 在同一方面比较两个模型,所有参数都是共享的?

Is there a way to use ggs_caterpillar to compare two models on the same facet, all parameters are shared?

我可以使用 ggmcmc::ggs_caterpillar 生成毛毛虫图,其中两个面每个都显示一个模型。

在这种情况下,我的所有参数都在模型之间共享。我想将它们绘制在同一个面上。因此,我可以通过较小的垂直偏移直观地比较每个参数。

这是否可以在函数中或通过其他方法实现?

library(ggmcmc)
Model1 <- ggs(Model1MCMCOutput)
Model2 <- ggs(Model2MCMCOutput)

ggs_caterpillar(list(Model1, Model2))

使用此功能无法实现。我查看了内部结构,里面的绘图是以一种稍微复杂的方式完成的。我编写了自己的函数来绘制我需要的东西。使用 geom_linerange 并旋转坐标系,而不是像 ggs_caterpillar.

中那样使用 geom_segment