如何在ggplot中用倒转轴复制这幅图？

Question

​

​

我试着复制我在报纸上看到的这个情节。最初的作者在excel或sigmaplot中这样做了，他已经不记得了。

使用geom_area不会产生完全相同的结果。

到目前为止，我得到的是：

a %>%
  filter(p.value < 0.05) %>%
  ggplot(., aes(x = time, y = p.value)) +
  geom_area() +
  scale_y_reverse()

​

​

但看上去不一样。我也尝试过geom_ribbon和geom_bar，但它们看起来不一样。在图中，我想复制的数据似乎是反转的，但我不能这样做。

编辑:哎呀，忘了链接data>，这是一个dput https://pastebin.com/XWbb7zjt

Answer 1

我认为您需要更仔细地研究geom_area实际上做了什么。它用ymin = 0的底部和ymax的顶部绘制条形图，这是geom_ribbon的一个特例，它允许更自由地设置ymin。这就是我认为你想要的情节。这里我们只告诉ggplot绘制p值和0.0 5之间的条形图，它的标度反转在图表的底部。这是基于您上面的评论，您希望在您提供的情节中的负面空间；我真的不知道是什么使这个相反的情节更可读性。

library(tidyverse)
plot_data <- tbl %>%
  filter(p.value < 0.05)
ggplot(plot_data) +
  theme_bw() +
  geom_ribbon(aes(x = time, ymin = p.value, ymax = 0.05)) +
  scale_y_reverse()

​

​