将一个 facet wrap 拆分为两个额外的 facet

Question

将一个 facet wrap 拆分为两个额外的 facet

我正在使用以下内容绘制一些数据，但是在完整样本中，数据有点难以看到，因为我在同一个图上有太多变量。如何将每个方面分成 2 个方面？也就是说，是否将变量的前半部分绘制在一条线上，将变量的后半部分绘制在第二条线上，但保留当前 4 个方面中的每一个？

由于字符限制删除了 ggplot 代码

数据：

structure(list(Status = structure(c(2L, 1L, 1L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 
2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L), .Label = c("0", 
"1"), class = "factor"), Model = c("2", "3", "2", "2", "2", "4", 
"2", "3", "3", "2", "1", "4", "3", "1", "4", "3", "3", "3", "2", 
"1", "2", "1", "2", "3", "3", "3", "3", "4", "3", "2", "1", "3", 
"1", "2", "1", "1", "4", "2", "2", "4", "4", "2", "2", "1", "4", 
"1", "2", "2", "3", "2", "4", "3", "3", "3", "2", "3", "2", "3", 
"4", "1", "2", "3", "2", "2", "3", "4", "2", "3", "1", "1", "3", 
"4", "4", "4", "2", "1", "2", "3", "4", "3", "2", "4", "1", "1", 
"1", "2", "2", "2", "4", "3", "1", "4", "3", "2", "2", "4", "1", 
"4", "1", "1", "3", "4", "2", "3", "3", "3", "4", "3", "3", "3", 
"2", "4", "1", "2", "4", "1", "4", "3", "2", "2", "4", "2", "4", 
"4", "4", "4", "4", "1", "4", "1", "1", "2", "3", "3", "4", "1", 
"4", "3", "3", "1", "3", "1", "1", "3", "1", "4", "3", "1", "4", 
"4", "2", "2", "4", "1", "1", "2", "2", "4", "1", "1", "2", "2", 
"3", "3", "2", "1", "3", "3", "4", "3", "1", "4", "2", "4", "3", 
"4", "4", "3", "2", "2", "3", "1", "1", "1", "4", "3", "4", "3", 
"2", "1", "3", "1", "4", "3", "4", "3", "2", "3", "3", "3", "3", 
"1", "4", "1", "1", "3", "3", "4", "1", "1", "3", "4", "2", "1", 
"4", "4", "1", "4", "4", "2", "1", "3", "2", "1", "3", "2", "2", 
"1", "1", "4", "1", "4", "2", "2", "4", "1", "3", "3", "2", "4", 
"3", "1", "2", "3", "1", "4", "3", "1", "2", "4", "2", "3", "1", 
"4", "1", "3", "1", "4", "1", "4", "1", "3", "4", "1", "2", "3", 
"4", "3", "2", "4", "3", "2", "2", "1", "2", "2", "1", "4", "2", 
"4", "3", "2", "1", "1", "3", "3", "3", "4", "4", "4", "3", "4", 
"4", "2", "1", "4", "1", "3", "1", "2", "1", "4", "3", "1", "3", 
"4", "1", "1", "4", "4", "1", "3", "4", "1", "1", "1", "1", "4", 
"4", "2", "4", "3", "1", "4", "1", "2", "4", "1", "4", "2", "2", 
"3", "4", "2", "4", "4", "4", "3", "4", "4", "1", "3", "3", "2", 
"4", "4", "1", "1", "2", "2", "2", "3", "3", "4", "3", "2", "4", 
"4", "4", "1", "2", "4", "4", "4", "3", "2", "2", "3", "4", "1", 
"3", "1", "4", "1", "3", "2", "3", "3", "3", "4", "3", "1", "4", 
"4", "4", "1", "3", "3", "1", "1", "1", "3", "2", "4", "4", "3", 
"3", "3", "2", "2", "1", "3", "1", "4", "1", "4", "3", "1", "2", 
"3", "3", "1", "2", "4", "4", "2", "2", "4", "3", "1", "1", "4", 
"2", "4", "2", "2", "1", "3", "4", "3", "4", "3", "2", "3", "2", 
"4", "2", "1", "1", "4", "3", "3", "4", "4", "4", "4", "1", "1", 
"2", "4", "4", "2", "3", "3", "2", "2", "3", "4", "4", "1", "2", 
"1", "1", "2", "2", "1", "2", "3", "3", "4", "1", "3", "4", "1", 
"4", "1", "2", "3", "2", "3", "2", "4", "2", "1", "4", "3", "1", 
"2", "3", "3", "2", "2", "4", "4", "1", "4", "4", "3", "1", "3"
), Model_Name = c("2 Year", "3 Year", "2 Year", "2 Year", "2 Year", 
"4 Year", "2 Year", "3 Year", "3 Year", "2 Year", "1 Year", "4 Year", 
"3 Year", "1 Year", "4 Year", "3 Year", "3 Year", "3 Year", "2 Year", 
"1 Year", "2 Year", "1 Year", "2 Year", "3 Year", "3 Year", "3 Year", 
"3 Year", "4 Year", "3 Year", "2 Year", "1 Year", "3 Year", "1 Year", 
"2 Year", "1 Year", "1 Year", "4 Year", "2 Year", "2 Year", "4 Year", 
"4 Year", "2 Year", "2 Year", "1 Year", "4 Year", "1 Year", "2 Year", 
"2 Year", "3 Year", "2 Year", "4 Year", "3 Year", "3 Year", "3 Year", 
"2 Year", "3 Year", "2 Year", "3 Year", "4 Year", "1 Year", "2 Year", 
"3 Year", "2 Year", "2 Year", "3 Year", "4 Year", "2 Year", "3 Year", 
"1 Year", "1 Year", "3 Year", "4 Year", "4 Year", "4 Year", "2 Year", 
"1 Year", "2 Year", "3 Year", "4 Year", "3 Year", "2 Year", "4 Year", 
"1 Year", "1 Year", "1 Year", "2 Year", "2 Year", "2 Year", "4 Year", 
"3 Year", "1 Year", "4 Year", "3 Year", "2 Year", "2 Year", "4 Year", 
"1 Year", "4 Year", "1 Year", "1 Year", "3 Year", "4 Year", "2 Year", 
"3 Year", "3 Year", "3 Year", "4 Year", "3 Year", "3 Year", "3 Year", 
"2 Year", "4 Year", "1 Year", "2 Year", "4 Year", "1 Year", "4 Year", 
"3 Year", "2 Year", "2 Year", "4 Year", "2 Year", "4 Year", "4 Year", 
"4 Year", "4 Year", "4 Year", "1 Year", "4 Year", "1 Year", "1 Year", 
"2 Year", "3 Year", "3 Year", "4 Year", "1 Year", "4 Year", "3 Year", 
"3 Year", "1 Year", "3 Year", "1 Year", "1 Year", "3 Year", "1 Year", 
"4 Year", "3 Year", "1 Year", "4 Year", "4 Year", "2 Year", "2 Year", 
"4 Year", "1 Year", "1 Year", "2 Year", "2 Year", "4 Year", "1 Year", 
"1 Year", "2 Year", "2 Year", "3 Year", "3 Year", "2 Year", "1 Year", 
"3 Year", "3 Year", "4 Year", "3 Year", "1 Year", "4 Year", "2 Year", 
"4 Year", "3 Year", "4 Year", "4 Year", "3 Year", "2 Year", "2 Year", 
"3 Year", "1 Year", "1 Year", "1 Year", "4 Year", "3 Year", "4 Year", 
"3 Year", "2 Year", "1 Year", "3 Year", "1 Year", "4 Year", "3 Year", 
"4 Year", "3 Year", "2 Year", "3 Year", "3 Year", "3 Year", "3 Year", 
"1 Year", "4 Year", "1 Year", "1 Year", "3 Year", "3 Year", "4 Year", 
"1 Year", "1 Year", "3 Year", "4 Year", "2 Year", "1 Year", "4 Year", 
"4 Year", "1 Year", "4 Year", "4 Year", "2 Year", "1 Year", "3 Year", 
"2 Year", "1 Year", "3 Year", "2 Year", "2 Year", "1 Year", "1 Year", 
"4 Year", "1 Year", "4 Year", "2 Year", "2 Year", "4 Year", "1 Year", 
"3 Year", "3 Year", "2 Year", "4 Year", "3 Year", "1 Year", "2 Year", 
"3 Year", "1 Year", "4 Year", "3 Year", "1 Year", "2 Year", "4 Year", 
"2 Year", "3 Year", "1 Year", "4 Year", "1 Year", "3 Year", "1 Year", 
"4 Year", "1 Year", "4 Year", "1 Year", "3 Year", "4 Year", "1 Year", 
"2 Year", "3 Year", "4 Year", "3 Year", "2 Year", "4 Year", "3 Year", 
"2 Year", "2 Year", "1 Year", "2 Year", "2 Year", "1 Year", "4 Year", 
"2 Year", "4 Year", "3 Year", "2 Year", "1 Year", "1 Year", "3 Year", 
"3 Year", "3 Year", "4 Year", "4 Year", "4 Year", "3 Year", "4 Year", 
"4 Year", "2 Year", "1 Year", "4 Year", "1 Year", "3 Year", "1 Year", 
"2 Year", "1 Year", "4 Year", "3 Year", "1 Year", "3 Year", "4 Year", 
"1 Year", "1 Year", "4 Year", "4 Year", "1 Year", "3 Year", "4 Year", 
"1 Year", "1 Year", "1 Year", "1 Year", "4 Year", "4 Year", "2 Year", 
"4 Year", "3 Year", "1 Year", "4 Year", "1 Year", "2 Year", "4 Year", 
"1 Year", "4 Year", "2 Year", "2 Year", "3 Year", "4 Year", "2 Year", 
"4 Year", "4 Year", "4 Year", "3 Year", "4 Year", "4 Year", "1 Year", 
"3 Year", "3 Year", "2 Year", "4 Year", "4 Year", "1 Year", "1 Year", 
"2 Year", "2 Year", "2 Year", "3 Year", "3 Year", "4 Year", "3 Year", 
"2 Year", "4 Year", "4 Year", "4 Year", "1 Year", "2 Year", "4 Year", 
"4 Year", "4 Year", "3 Year", "2 Year", "2 Year", "3 Year", "4 Year", 
"1 Year", "3 Year", "1 Year", "4 Year", "1 Year", "3 Year", "2 Year", 
"3 Year", "3 Year", "3 Year", "4 Year", "3 Year", "1 Year", "4 Year", 
"4 Year", "4 Year", "1 Year", "3 Year", "3 Year", "1 Year", "1 Year", 
"1 Year", "3 Year", "2 Year", "4 Year", "4 Year", "3 Year", "3 Year", 
"3 Year", "2 Year", "2 Year", "1 Year", "3 Year", "1 Year", "4 Year", 
"1 Year", "4 Year", "3 Year", "1 Year", "2 Year", "3 Year", "3 Year", 
"1 Year", "2 Year", "4 Year", "4 Year", "2 Year", "2 Year", "4 Year", 
"3 Year", "1 Year", "1 Year", "4 Year", "2 Year", "4 Year", "2 Year", 
"2 Year", "1 Year", "3 Year", "4 Year", "3 Year", "4 Year", "3 Year", 
"2 Year", "3 Year", "2 Year", "4 Year", "2 Year", "1 Year", "1 Year", 
"4 Year", "3 Year", "3 Year", "4 Year", "4 Year", "4 Year", "4 Year", 
"1 Year", "1 Year", "2 Year", "4 Year", "4 Year", "2 Year", "3 Year", 
"3 Year", "2 Year", "2 Year", "3 Year", "4 Year", "4 Year", "1 Year", 
"2 Year", "1 Year", "1 Year", "2 Year", "2 Year", "1 Year", "2 Year", 
"3 Year", "3 Year", "4 Year", "1 Year", "3 Year", "4 Year", "1 Year", 
"4 Year", "1 Year", "2 Year", "3 Year", "2 Year", "3 Year", "2 Year", 
"4 Year", "2 Year", "1 Year", "4 Year", "3 Year", "1 Year", "2 Year", 
"3 Year", "3 Year", "2 Year", "2 Year", "4 Year", "4 Year", "1 Year", 
"4 Year", "4 Year", "3 Year", "1 Year", "3 Year"), status = c(1L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 
0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 1L, 0L), Feature = c("CF.CL", "CF.SALES", "TL.TA", "logSALES", 
"TL.EQ", "TL.EQ", "CF.SALES", "CF.SALES", "CL.FinExp", "CF.CL", 
"TL.EQ", "EBIT.Capital", "DEBTORS.SALES", "CF.SALES", "EBIT.FinExp", 
"EQ.Turnover", "WC.EBIT", "logTA", "CA.CL", "CF.SALES", "CF.NCL", 
"EBIT.FinExp", "EQ.Turnover", "SALES.FA", "SALES.FA", "EBITDA.SALES", 
"EBITDA.SALES", "CL.FinExp", "logTA", "CF.CL", "SALES.EBIT", 
"DEBTORS.SALES", "WC.EBIT", "CF.NCL", "SALES.FA", "CF.NCL", "CA.CL", 
"logSALES", "EBITDA.SALES", "TL.TA", "EBIT.FinExp", "EQ.Turnover", 
"CF.SALES", "TL.EQ", "EQ.Turnover", "SALES.EBIT", "logTA", "EBIT.FinExp", 
"logSALES", "EBIT.Capital", "EBIT.FinExp", "CF.CL", "SALES.EBIT", 
"CF.NCL", "EBIT.FinExp", "SALES.FA", "TL.EQ", "EBITDA.SALES", 
"logSALES", "WC.EBIT", "TL.TA", "TL.EQ", "EBIT.Capital", "logTA", 
"logTA", "EBIT.Capital", "logSALES", "WC.EBIT", "logSALES", "TL.TA", 
"EQ.Turnover", "CF.SALES", "logSALES", "EBIT.FinExp", "EBITDA.SALES", 
"TL.EQ", "EBIT.Capital", "DEBTORS.SALES", "TL.TA", "EBIT.FinExp", 
"SALES.FA", "DEBTORS.SALES", "CL.FinExp", "logTA", "EBIT.Capital", 
"CF.NCL", "DEBTORS.SALES", "CF.SALES", "EBIT.Capital", "CA.CL", 
"CF.NCL", "CF.SALES", "EBITDA.SALES", "EBIT.FinExp", "EBIT.Capital", 
"DEBTORS.SALES", "EQ.Turnover", "TL.EQ", "TL.EQ", "CL.FinExp", 
"EQ.Turnover", "logTA", "CF.SALES", "DEBTORS.SALES", "CF.CL", 
"TL.TA", "CL.FinExp", "logTA", "CL.FinExp", "SALES.FA", "SALES.EBIT", 
"SALES.EBIT", "EBITDA.SALES", "EBITDA.SALES", "WC.EBIT", "DEBTORS.SALES", 
"DEBTORS.SALES", "DEBTORS.SALES", "EQ.Turnover", "WC.EBIT", "CL.FinExp", 
"EQ.Turnover", "TL.TA", "CA.CL", "logSALES", "SALES.FA", "logTA", 
"CL.FinExp", "CF.SALES", "logSALES", "EBITDA.SALES", "TL.TA", 
"SALES.EBIT", "EBIT.FinExp", "EBIT.Capital", "CL.FinExp", "EQ.Turnover", 
"SALES.FA", "logSALES", "CF.CL", "logTA", "CF.CL", "SALES.FA", 
"logTA", "SALES.EBIT", "CL.FinExp", "WC.EBIT", "TL.EQ", "CL.FinExp", 
"CL.FinExp", "EBITDA.SALES", "SALES.EBIT", "CF.CL", "DEBTORS.SALES", 
"logTA", "logSALES", "TL.TA", "EQ.Turnover", "EQ.Turnover", "CL.FinExp", 
"TL.TA", "EBIT.FinExp", "EBIT.Capital", "CF.SALES", "EBIT.FinExp", 
"DEBTORS.SALES", "CL.FinExp", "CL.FinExp", "logSALES", "CA.CL", 
"CF.CL", "SALES.FA", "DEBTORS.SALES", "CF.SALES", "CA.CL", "CL.FinExp", 
"logTA", "SALES.FA", "DEBTORS.SALES", "SALES.FA", "EBITDA.SALES", 
"EQ.Turnover", "EQ.Turnover", "logSALES", "EBIT.Capital", "CF.NCL", 
"CA.CL", "logTA", "CF.SALES", "CF.CL", "DEBTORS.SALES", "SALES.EBIT", 
"SALES.EBIT", "TL.EQ", "TL.EQ", "SALES.EBIT", "EBIT.FinExp", 
"CF.SALES", "SALES.FA", "CL.FinExp", "WC.EBIT", "CF.NCL", "CL.FinExp", 
"CF.CL", "logTA", "CF.SALES", "CA.CL", "logTA", "CF.CL", "EBIT.FinExp", 
"CA.CL", "TL.EQ", "CF.CL", "logSALES", "TL.EQ", "EQ.Turnover", 
"CL.FinExp", "SALES.FA", "EBIT.FinExp", "EBIT.Capital", "EQ.Turnover", 
"CF.NCL", "CF.CL", "DEBTORS.SALES", "CL.FinExp", "TL.EQ", "CF.SALES", 
"DEBTORS.SALES", "CL.FinExp", "CL.FinExp", "WC.EBIT", "EBIT.Capital", 
"EBIT.Capital", "CA.CL", "EBITDA.SALES", "WC.EBIT", "EQ.Turnover", 
"DEBTORS.SALES", "CL.FinExp", "CA.CL", "CF.NCL", "logSALES", 
"DEBTORS.SALES", "WC.EBIT", "logSALES", "DEBTORS.SALES", "EBIT.Capital", 
"DEBTORS.SALES", "CL.FinExp", "logSALES", "CA.CL", "WC.EBIT", 
"CF.SALES", "TL.TA", "SALES.EBIT", "EBIT.FinExp", "SALES.FA", 
"EBIT.FinExp", "WC.EBIT", "logTA", "DEBTORS.SALES", "TL.TA", 
"CF.SALES", "EBIT.FinExp", "logSALES", "CF.SALES", "EBITDA.SALES", 
"SALES.FA", "logSALES", "logSALES", "CF.CL", "CF.SALES", "CF.SALES", 
"EBIT.Capital", "TL.TA", "EBIT.Capital", "CF.SALES", "SALES.FA", 
"CF.CL", "TL.TA", "CL.FinExp", "TL.EQ", "CF.SALES", "CL.FinExp", 
"logSALES", "DEBTORS.SALES", "CF.CL", "TL.EQ", "CA.CL", "DEBTORS.SALES", 
"CA.CL", "SALES.FA", "SALES.EBIT", "SALES.FA", "logSALES", "TL.TA", 
"logTA", "CA.CL", "CL.FinExp", "TL.TA", "CF.CL", "TL.EQ", "CF.NCL", 
"WC.EBIT", "SALES.FA", "SALES.FA", "DEBTORS.SALES", "EBIT.Capital", 
"EBITDA.SALES", "SALES.EBIT", "logSALES", "CF.NCL", "WC.EBIT", 
"CL.FinExp", "EBIT.Capital", "CF.CL", "WC.EBIT", "SALES.FA", 
"EBIT.FinExp", "CF.NCL", "WC.EBIT", "EBIT.FinExp", "SALES.FA", 
"CF.SALES", "CF.NCL", "SALES.FA", "CL.FinExp", "CF.NCL", "TL.EQ", 
"CA.CL", "logTA", "CL.FinExp", "DEBTORS.SALES", "CF.SALES", "CF.CL", 
"TL.TA", "SALES.EBIT", "EQ.Turnover", "CA.CL", "SALES.FA", "CF.CL", 
"EQ.Turnover", "CF.CL", "EBIT.Capital", "CL.FinExp", "CA.CL", 
"DEBTORS.SALES", "EQ.Turnover", "CF.SALES", "CF.SALES", "TL.EQ", 
"EBIT.Capital", "CF.SALES", "TL.TA", "WC.EBIT", "EQ.Turnover", 
"WC.EBIT", "EBIT.Capital", "WC.EBIT", "logTA", "CF.SALES", "logTA", 
"WC.EBIT", "CF.NCL", "SALES.FA", "WC.EBIT", "WC.EBIT", "EBIT.Capital", 
"EQ.Turnover", "logTA", "SALES.EBIT", "TL.TA", "CF.NCL", "EBITDA.SALES", 
"logSALES", "CL.FinExp", "SALES.EBIT", "TL.EQ", "DEBTORS.SALES", 
"TL.EQ", "EQ.Turnover", "EBIT.Capital", "TL.EQ", "EBIT.FinExp", 
"EBIT.FinExp", "CA.CL", "CL.FinExp", "TL.TA", "EBIT.Capital", 
"logTA", "CL.FinExp", "CF.NCL", "CA.CL", "CL.FinExp", "EBITDA.SALES", 
"CA.CL", "EQ.Turnover", "CL.FinExp", "SALES.EBIT", "CA.CL", "SALES.FA", 
"TL.EQ", "EQ.Turnover", "EQ.Turnover", "EBITDA.SALES", "SALES.FA", 
"logSALES", "SALES.EBIT", "EQ.Turnover", "WC.EBIT", "SALES.FA", 
"EBIT.FinExp", "TL.TA", "DEBTORS.SALES", "SALES.EBIT", "WC.EBIT", 
"logSALES", "EBIT.Capital", "WC.EBIT", "EQ.Turnover", "EBITDA.SALES", 
"TL.EQ", "CF.CL", "EBIT.Capital", "CF.CL", "TL.EQ", "CF.NCL", 
"WC.EBIT", "WC.EBIT", "EBITDA.SALES", "SALES.EBIT", "CF.NCL", 
"CF.NCL", "CA.CL", "logSALES", "EBITDA.SALES", "EBIT.FinExp", 
"SALES.EBIT", "TL.EQ", "CF.CL", "EBIT.Capital", "logTA", "EBITDA.SALES", 
"EBIT.Capital", "TL.TA", "DEBTORS.SALES", "WC.EBIT", "DEBTORS.SALES", 
"CF.SALES", "logTA", "SALES.EBIT", "EQ.Turnover", "CA.CL", "WC.EBIT", 
"EBITDA.SALES", "EBITDA.SALES", "DEBTORS.SALES", "CA.CL", "EBIT.FinExp", 
"EQ.Turnover", "DEBTORS.SALES", "CA.CL", "CF.NCL", "DEBTORS.SALES", 
"logSALES", "CA.CL", "SALES.EBIT", "EBIT.Capital", "CA.CL", "DEBTORS.SALES", 
"EBIT.FinExp", "logTA", "EBITDA.SALES", "DEBTORS.SALES", "EBITDA.SALES", 
"CF.CL", "CA.CL", "CF.NCL", "CA.CL", "CA.CL", "SALES.EBIT", "CA.CL", 
"DEBTORS.SALES", "TL.TA", "CF.SALES", "CA.CL", "SALES.FA", "EBIT.FinExp", 
"SALES.EBIT", "CF.SALES", "CA.CL", "CF.NCL", "EBIT.Capital", 
"DEBTORS.SALES", "EQ.Turnover", "TL.EQ", "EBITDA.SALES", "WC.EBIT", 
"SALES.FA", "DEBTORS.SALES"), Ratio = c(-0.707919201865374, 0.534298237128927, 
0.763308535784903, -1.24540281291686, 0.332626927584044, -0.485527331169614, 
-0.626125641168283, 1.75345016963661, 4.51002074747425, NA, NA, 
NA, NA, NA, 0.812093120581957, 0.261889212102065, 0.330583042088873, 
1.86055950229721, -0.559740348093955, -0.751550592131927, -0.583664251852244, 
-0.522445867895311, -0.686761191590487, -0.582852934868012, -0.388631437021738, 
-0.376042040118803, 1.42792549342901, -0.498990070660728, 0.208683983665681, 
2.14576274581865, -0.768210439875085, 0.53597295004055, -0.653782593991037, 
-0.401467349422482, 0.955113642471936, 1.53488585290567, -0.3952130632778, 
NA, 0.144744549336861, -1.11766418734528, NA, -0.486293007398917, 
-0.337866870638434, -0.665794733109122, 0.526585766173069, -0.330968739102218, 
-1.71872921769721, NA, -0.603494884009451, -0.669873024581416, 
NA, -0.649826514192686, 3.07036655149694, NA, 2.13760005383415, 
0.48611918602065, -0.46490903620693, 1.76231954464496, -0.904090534873578, 
-0.597689611958551, 0.570443208862788, -0.295696356825069, NA, 
NA, -1.12026151337091, 0.353252456885539, -0.410737653008626, 
-0.492832999764316, -0.964106737223811, 0.771902521119517, -0.690879784763869, 
NA, 0.20812644470003, NA, -0.702318717339072, -0.725246730786497, 
-0.611066135478997, -0.752358284437105, NA, -0.336177411573904, 
NA, -0.972007939780494, NA, 0.588136079183467, -0.189762086807928, 
NA, -0.090507528727365, NA, -0.0414476119071152, -0.591736889328259, 
-0.5129649441072, 3.38321349285669, -0.83540453095325, NA, -0.464060181907834, 
0.170933923104933, -0.48321974573862, -0.724726093759333, 2.13475323186374, 
-0.551720107396813, -0.626677016637103, NA, NA, NA, 0.6523

Answer 1

eip*_*i10 5

我们可以创建一个新的分组变量，将Feature值放入两组之一，然后使用该分组变量进行分面。

然后我们将数据拆分Model_Name为一个包含四个元素的列表，每个Model_Name.

使用map，我们将这个包含四个数据框的列表输入ggplot到中，为的每个级别创建一个单独的图Model_Name。代码使用element_textbox_simple新ggtext包中的代码在每个图的标题中添加彩色背景条以模拟分面标签（我们删除了“真实”分面标签，因为它们没有信息，也因为我们希望标签只出现每对地块一次）。

然后我们使用patchwork包来布置四个图。

library(tidyverse)
library(patchwork)
# remotes::install_github("wilkelab/ggtext")
library(ggtext)

# Set general plot theme
theme_set(theme_classic() + 
            theme(panel.background=element_rect(colour="grey40", fill=NA)))

pd = position_dodge(width=0.9)

# Create a list of four ggplots, one for each level of Model_Name
pl = d %>% 
  # Create grouping variable to split Feature into two groups
  mutate(group = ifelse(as.numeric(factor(Feature)) <= 0.5*length(unique(Feature)), 
                        "g1","g2")) %>% 
  # Split data into a list of four data frames, one for each level of Model_Name
  group_split(Model_Name) %>% 
  # Create a list of four plots
  map(
    ~ ggplot(.x, aes(x = Feature, y = Ratio, fill = Status)) +
      geom_violin(alpha = 0.5, scale = "width", position = pd) +
      geom_boxplot(alpha = 1, width = 0.2, position = pd) +
      scale_y_continuous(limits = c(-3, 4)) +
      facet_wrap(~ group, ncol=1, scales="free_x") +
      theme(strip.background=element_blank(),
            strip.text=element_blank(),
            axis.title.x=element_blank(),
            plot.title=element_textbox_simple(fill="grey80", 
                                              halign=0.5, size=11,
                                              padding=margin(t=4, b=2))) +
      labs(title=.x[["Model_Name"]][1])
  )

# Add single x-axis title to bottom plot
pl[[4]] = pl[[4]] + 
  theme(axis.title.x=element_text(margin=margin(t=5))) + 
  labs(x="Feature")

wrap_plots(pl, ncol=1) + plot_layout(guides="collect")

Run Code Online (Sandbox Code Playgroud)

归档时间：	5 年，9 月前
查看次数：	242 次
最近记录：	5 年，9 月前