使用 facet_wrap 在每个方面放置 2 行或更多行

Put 2 or more lines in each facet using facet_wrap

我有这个简化的 df,我正在使用 facet_wrap() 来绘制多个变量:


Day <- (1:30)

Type <-  rep(c("A", "B","C"),10)

Value_1 <- runif(30, min=-1, max=2)
Value_2 <- runif(30, min=-1, max=2)

df <- tibble:: tibble(Day, Type, Value_1, Value_2)


 ggplot2:: ggplot(df, aes(x=Day, y=Value_1, color= Type))+
  geom_line()+
   facet_wrap(~Type)

我的问题是:我如何在同一个“facet”中绘制 Value_1 和 Value_2?。 即,我的情节将与上面完全相同,但每个矩形中有两行(一行表示 Value_A,另一行表示 Value_B)。

如果有人能提供帮助,我将不胜感激!

尝试将数据重塑为长:

library(ggplot2)
library(tidyverse)
#Code
df %>% pivot_longer(-c(Day,Type)) %>%
  ggplot(aes(x=Day, y=value, color= name,group=name))+
  geom_line()+
  facet_wrap(~Type)

输出: