ggplot中的闪避间隔

Question

我正在尝试使用 ggplot 避开两个模型的一对均值和置信区间。我已经研究过类似的问题，例如 this 和 this，但他们的代码并没有解决我的问题。

我有以下数据框（请注意，条件是一个因素，随着数据框的下降，值会增加）：

>print(dat)
    condition        pH    lowerH    upperH model
1   Black 650 0.7863719 0.6863438 0.8548062   pdp
2   Black 650 0.8428675 0.7123000 0.9574000   ddm
3   White 650 0.8133078 0.7310262 0.8864712   pdp
4   White 650 0.8211373 0.6838000 0.9488000   ddm
5   Black 800 0.8754109 0.7908725 0.9306012   pdp
6   Black 800 0.9408192 0.8410000 0.9941000   ddm
7   White 800 0.9044102 0.8349587 0.9623462   pdp
8   White 800 0.9183600 0.8145000 0.9867000   ddm
9   Black 950 0.9003072 0.8403200 0.9601112   pdp
10  Black 950 0.9569349 0.8812000 0.9967000   ddm
11  White 950 0.9131546 0.8494812 0.9648262   pdp
12  White 950 0.9473685 0.8683000 0.9934000   ddm
13 Black 1100 0.9091797 0.8342850 0.9622412   pdp
14 Black 1100 0.9708420 0.8864000 0.9977000   ddm
15 White 1100 0.9274862 0.8636063 0.9691300   pdp
16 White 1100 0.9570067 0.8727000 0.9954000   ddm

我试图将每个条件的平均值 (pH) 和置信区间 (lowerH, upperH) 绘制为所用模型 (model) 的函数。我想要的是避开手段和 CI，以免它们重叠。我编写了以下 ggplot 代码：

ggplot(dat, aes(x = condition, y = pH)) +
  geom_point(size = 3, shape = 5) + #pred cond mean
  geom_pointrange(aes(ymin = lowerH, ymax = upperH), size = .2) + #95% HDI
  coord_cartesian(ylim = c(.5, 1.01)) + #adjust x-axis
  ylab("Hit Rate") + #label y axis
  theme_bw() + #black and white theme
  theme(axis.title.x = element_blank(), 
    panel.background = element_blank(), 
    panel.grid = element_blank(),
    panel.border = element_rect(colour = "black", fill = NA, size = 1))

创建此输出

如您所见，两个模型的均值和 CI 重叠。然而，当我试图避开它们时，正如我在下面的代码中所做的那样，我只成功地将所有数据点向左移动（模型均值和 CI 仍然重叠）。

ggplot(dat, aes(x = condition, y = pH)) +
  geom_point(size = 3, shape = 5, position = position_dodge(5)) + #pred cond mean
  geom_pointrange(aes(ymin = lowerH, ymax = upperH), size = .2) + #95% HDI
  coord_cartesian(ylim = c(.5, 1.01)) + #adjust x-axis
  ylab("Hit Rate") + #label y axis
  theme_bw() + #black and white theme
  theme(axis.title.x = element_blank(), 
    panel.background = element_blank(), 
    panel.grid = element_blank(),
    panel.border = element_rect(colour = "black", fill = NA, size = 1))

我正在寻找一种避开模型均值和 CI 的方法，以使它们不重叠。示例代码特别有用。

Answer 1

您需要在绘图中添加group 或color 级别。这里我用col，你也可以用group保持颜色不变：

ggplot(dat, aes(x = condition, y = pH, col = model)) +
    geom_point(size = 3, shape = 5, position = position_dodge(1)) +
    geom_pointrange(aes(ymin = lowerH, ymax = upperH), 
                    position = position_dodge(1), size = .2)