在 R 线图中包含 facet_wrap

Question

我有以下代码来绘制折线图：

df %>% pivot_longer(-Client) %>%
  ggplot(aes(x=name,y=value,color=factor(Client),group=factor(Client)))+
  geom_line()+
  xlab('Client')+
  theme_bw()+
  labs(color='Client')

它为我的每个客户绘制一条线，但由于我有太多客户，将所有客户都绘制在一个图中会变得非常混乱，我一直在尝试使用 facet_wrap() 函数将客户分开图表，但无法弄清楚如何做到这一点，所以我在这里......

有一个我的数据样本：

         Client   Model_1      Model_2      Model_3    Model_4      Model_5
            1       10.34        0.22        0.62        0.47         1.96
            2        0.97        0.60        0.04        0.78         0.19
            3        2.01        0.15        0.27        0.49         0.00
            4        0.57        0.94        0.11        0.66         0.00
            5        0.68        0.65        0.26        0.41         0.50
            6        0.55        3.59        0.06        0.01         5.50
            7       10.68        1.08        0.07        0.16         0.20

Answer 1

尝试使用这样的模块创建一个超过客户数量的组：

library(ggplot2)
library(dplyr)
library(tidyr)
#Code
df %>% pivot_longer(-Client) %>%
  mutate(Group=ifelse(Client %% 2==0,'G1','G2')) %>%
  ggplot(aes(x=name,y=value,color=factor(Client),group=factor(Client)))+
  geom_line()+
  xlab('Client')+
  theme_bw()+
  labs(color='Client')+
  facet_wrap(.~Group,scales = 'free')

输出：