R - 使用牛圖調整圖形軸

Question

我想 plot 使用 ggplot 進行時間序列分析的一些結果，將變量及其預測繪制在同一張圖上，同時將錯誤繪制在下圖中（類似於plot.ts 的工作方式，但我不能使用這個庫）。

這是我的代碼：

library(ggplot2)
library(cowplot)

set.seed(1111)

my_df = data.frame(
  date = 1:150,
  initial = c(runif(100, max=100), rep(NA, 50)),
  predicted_intra = c(rep(50, 100), rep(NA, 50)),
  predicted_extra = c(rep(NA, 100), 51:100),
  err_intra = c(runif(100, max=100), rep(NA, 50))
)

my_colors = c("Init" = "grey30", "Predict" = "red")

p1 <- ggplot(my_df) + aes(x = date, y = predicted_intra, color="Predict") +
  geom_line() +
  geom_line(aes(y = predicted_extra, color="Predict")) +
  geom_line(aes(y = initial, color="Init")) +
  scale_color_manual(name = "", values = my_colors) + 
  ylab("Numberz")

p2 <- ggplot(my_df) +
  aes(x = date, y = err_intra) + geom_line(color="red") + 
  ylab("Error")

plot_grid(p1, p2, nrow=2, rel_heights = c(2,1))

這給出了：上面代碼的結果

一切都很好，直到傳說出現。 有沒有辦法對齊兩個圖表的“日期”軸？

Answer 1

嘗試patchwork ：

library(patchwork)
#Code
G <- p1/p2

Output：