分組數據的facet ggplot和R中帶有日期的兩個變量

Question

我想在 R 中為我的型號組繪制一個分面圖，以便每個圖形顯示 12 個月的數據和每個 Val1 和 Val2 的兩條不同顏色的線。

Model No.   Date    Val1    Val2
a   01/10/2020  2.39    4.67
a   01/11/2020  5.15    6.05
a   01/12/2020  3.19    1.62
a   01/01/2021  8.76    11.65
a   01/02/2021  15.72   11.41
a   01/03/2021  10.92   11.91
a   01/04/2021  11.96   19.27
a   01/05/2021  11.52   15.58
a   01/06/2021  2.92    4.42
a   01/07/2021  4.89    6.01
a   01/08/2021  10.05   15.19
a   01/09/2021  3.46    4.85
b   01/10/2020  3.76    3.41
b   01/11/2020  0.88    1.25
b   01/12/2020  0.93    0.78
b   01/01/2021  1.87    1.88
b   01/02/2021  1.40    1.28
b   01/03/2021  1.58    1.29
b   01/04/2021  4.50    2.93
b   01/05/2021  5.31    5.45
b   01/06/2021  9.19    6.69
b   01/07/2021  4.09    3.11
b   01/08/2021  5.20    3.86
b   01/09/2021  4.39    3.76

我已經從 excel 添加了所需的輸出，有點沿着這些方向。 彼此相鄰的折線圖或條形圖顯示每組中兩個值（Val1 和 Val2）的比較。

如果有人可以提供幫助，將不勝感激。 提前致謝。

Answer 1

試試這個方法。 重塑數據以長期保留模型，然后保留日期。 然后使用facet_wrap()繪制繪圖。 這里的代碼：

library(ggplot2)
library(dplyr)
library(tidyr)
#Code
df %>% pivot_longer(-c(1,2)) %>%
  ggplot(aes(x=Date,y=value,color=name,group=name))+
  geom_line()+
  scale_x_date(breaks = '1 month')+
  facet_wrap(.~`Model No.`,scales = 'free',ncol = 1)+
  theme_bw()+
  theme(legend.position = 'bottom',
        axis.text.x = element_text(angle=90))+
  labs(color='Serie')

輸出：