r - 不要使用 facet_grid 显示空构面

Question

在我下面的情节中，我想知道如何保持一切不变，但只是删除空的情节？

library(tidyverse)
hsb <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/hsb.csv')

hsb <- mutate(hsb, sector= factor(ifelse(sector==0,"pub","cath")))
hsb <- mutate(hsb, sector= relevel(sector, ref= "pub"))

nine <- subset(hsb, sch.id %in% unique(sch.id)[1:9]) 
nine$sch.id <- factor(nine$sch.id)
ggplot(nine) + aes(ses, math)+ geom_point() + facet_grid(sector~sch.id)+
  geom_smooth(method="lm",se=F, aes(color=sector))

Answer 1

我认为您的分面应该仅基于 sch.id，请尝试:

ggplot(nine, aes(ses, math)) +
  geom_point()+
  facet_grid(.~sch.id)+
  geom_smooth(method="lm",se=F, aes(color = sector))