r - 如何使用 Geom_Area (GGplot) 制作正方形图

Question

我使用 ggplots2 库创建了 25 个图，我对 Geom_Area 函数特别感兴趣。但是，我想创建方形图，具有更宽的 x 轴，而不是那些彼此相邻堆叠的小矩形图。我使用此函数创建了我的 25 个变量图，并使用以下代码：

fevd_res = fevd(A, Sigma, 20)


p = ggplot(data=fevd_res, aes(x=h, y=value, fill=j)) +
  geom_area(position = "fill") +
  facet_wrap(k ~ .) +
  scale_x_continuous(
    expand=c(0,0)
  ) +
  scale_fill_discrete(
    name = "Shock"
  ) +
  labs(
    y = "Variance contribution",
    x = "Forecast horizon"
  ) +
  theme_bw()

直接在 ggplot2 中创建比例 geom_area 图

这个问题看起来和我的很相似，所以我尝试添加：position = "fill"。正如您在下面的输出中看到的那样，这不起作用。希望有人可以提供帮助，对我来说意义重大！