Question

我试图在ggplot中绘制两个在它们之上有误差条的点。但是，误差线不会与点同步。这是我正在使用的代码，我附上了随后的图表：

df = data.frame(rtix = mean(DandI_Variance$`1RTI`[1:11]),
                rtiy = 50,
                rtixmin = DandI_Variance$`1RTI`[11],
                rtixmax = DandI_Variance$`1RTI`[1],
                rtiymin = 52,
                rtiymax = 42,
                rtcx = mean(DandI_Variance$`1RTC`[1:11]),
                rtcy = 75,
                rtcxmin = DandI_Variance$`1RTC`[11],
                rtcxmax = DandI_Variance$`1RTC`[1],
                rtcymin = 69,
                rtcymax = 79)

ggplot(data = df, aes(x = rtix, y = rtiy)) + 
  geom_point() + 
  geom_errorbar(aes(ymin = rtiymin, ymax = rtiymax, width = .07, color = "blue")) + 
  geom_errorbarh(aes(xmin = rtixmin, xmax = rtixmax, height = 10, color = "blue")) + 

  geom_point(aes(x = rtcx, y = rtcy)) + 
  geom_errorbar(aes(ymin = rtcymin, ymax = rtcymax, width = .07, color = "red")) + 
  geom_errorbarh(aes(xmin = rtcxmin, xmax = rtcxmax, height = 10, color = "red")) +

  xlab("S Equalibrium") +
  ylab("Time to Equalibrium") +
  ylim(0, 100) + 
  xlim(0, 1) +
  ggtitle("Performance of Models")

Answer 1

我认为ggplot中可能会有一些混乱，因为你在同一个调用中有两次geom_errorbar（）和geom_errorbarh（）函数。它看起来就像你以一种奇怪的方式构建数据框架。为什么不给你的数据框2行，而不是有一行，每行都有识别列？

我尝试将这样的代码构建为第一步（希望这可以解决它）。

我只是将数据帧压缩为2行7列（为了用于颜色而添加了一个新的类型），然后我只调用了ggplot2函数一次而不是两次，并移动了在aes调用之外的宽度（因为aes调用将输入作为名称而不是值，这意味着0.7的宽度实际上是一个称为＆＃34; 0.7＆＃34;不是你想要的因素，是一个数字宽度为0.7）并保持颜色（仅因为颜色现在使用的是列而不是名称，通知你的情节＆＃34;蓝色＆＃34;实际上是红色，反之亦然，这是因为因为与我上面描述的宽度问题相同的问题。最后，我添加了手动色标，以便我们可以选择哪种颜色。如果你想要其他顺序，你可以切换蓝色和红色。

df = data.frame(rtx = c(mean(DandI_Variance$`1RTI`[1:11]),
                        mean(DandI_Variance$`1RTC`[1:11])),
                rty = c(50,75),
                rtxmin = c(DandI_Variance$`1RTI`[11],
                           DandI_Variance$`1RTC`[11]),
                rtxmax = c(DandI_Variance$`1RTI`[1],
                           DandI_Variance$`1RTC`[1]),
                rtymin = c(52,69),
                rtymax = c(42,79),
                rttype = c('I', 'C')
                )

ggplot(data = df, aes(x = rtx, y = rty)) + 
  geom_point() + 
  geom_errorbar(aes(ymin = rtymin, ymax = rtymax, color = rttype), width = .07) + 
  geom_errorbarh(aes(xmin = rtxmin, xmax = rtxmax, color = rttype), height = 10) +
scale_color_manual(values = c("blue", "red")) +
xlab("S Equalibrium") +
ylab("Time to Equalibrium") +
ylim(0, 100) + 
xlim(0, 1) +
ggtitle("Performance of Models")

如何使用错误栏将两个ggplot点堆叠在一起

1 个答案: