将ggplot划分为不同的2 ggplot

Question

我有这个 ggplot :plot1

我已使用此代码获得了此图：

   g<- ggplot(base__, aes(x=Race_name, y=ec_prem, color=nouv_grp))+scale_color_brewer(palette = "Paired")+
  geom_jitter(position=position_jitter(0.2))+xlab("Course")+ylab("Ecart / 1er (secondes)")+ylim(-1,120)+labs(colour = "Groupe PC1")+theme_minimal()+theme(axis.text.x = element_text(size = 7, angle = 90))
g

我想将其分成 2 个图，以使可视化更易于理解。所以我用了facet_grid()：

g=ggplot(base__, aes(x=Race_name, y=ec_prem, color=nouv_grp))+scale_color_brewer(palette = "Paired")+
  geom_jitter(position=position_jitter(0.2))+xlab("Course")+ylab("Ecart / 1er (secondes)")+ylim(-1,120)+labs(colour = "Groupe PC1")+theme_minimal()+theme(axis.text.x = element_text(size = 7, angle = 90))
g+facet_grid(haha~.)

我得到了这个情节：

plot2

但我想获得 2 个不同的 x 轴，并且我希望我的抖动图不那么集中（不那么紧）。

希望有人能给我解决办法。

提前致谢:)

Answer 1

正如 teunbrand 所提到的，facet_grid() 不允许对齐轴使用不同的比例（即一列中的统一 x，一行中的统一 y），但 facet_wrap() 可以帮助您解决这个问题。但是，为了让轴​​文本为每个方面打印，我认为 lemon::facet_rep_wrap() 是您需要的。请参阅下面的小示例。

library(tidyverse)
library(lemon)
#> 
#> Attaching package: 'lemon'
#> The following object is masked from 'package:purrr':
#> 
#>     %||%
#> The following objects are masked from 'package:ggplot2':
#> 
#>     CoordCartesian, element_render

mtcars %>%
  rownames_to_column(var = "car_name") %>%
  ggplot(aes(x = car_name, y = mpg)) +
  geom_col() +
  facet_rep_wrap(
    facets = vars(cyl),
    ncol = 1,
    repeat.tick.labels = TRUE,
    scales = "free"
  ) +
  theme(axis.text.x = element_text(
    angle = 90,
    hjust = 1,
    vjust = 0.5
  ))

^{由reprex package (v1.0.0) 于 2021-03-29 创建}