未使用の因子レベルの組み合わせのファセットの行全体を削除する

Question

その因子の組み合わせのデータがないので、下の私のプロットからファセットの2番目の行を削除します。

library(ggplot2) 
library(grid) 
set.seed(5000) 

# generate first df 
df1 = data.frame(x=rep(rep(seq(2,8,2),4),6), 
       y=rep(rep(seq(2,8,2),each=4),6), 
       v1=c(rep("x1",32),rep("x2",64)), 
       v2=c(rep("y1",64),rep("y2",32)), 
       v3=rep(rep(c("t1","t2"),each=16),3), 
       v4=rbinom(96,1,0.5)) 

# generate second df 
df2 = data.frame(x=runif(20)*10, y=runif(20)*10, 
       v1=sample(c("x1","x2"),20,T)) 

# plot 
ggplot() + 
    geom_point(data=df1, aes(x=x, y=y, colour = factor(v4)), shape=15, size=5) + 
    scale_colour_manual(values = c(NA,"black")) + facet_grid(v1+v2~v3, drop = T) + 
    geom_point(data=df2, aes(x=x,y=y), shape=23 , colour="black", fill="white", size=4) + 
    coord_equal(ratio=1) + xlim(0, 10) + ylim(0, 10) 

私はこれを得た..but

g=ggplotGrob(y) 
pos=which(g$layout$t==5 | g$layout$t==6) 
g$layout=g$layout[-c(pos),] 
g$grobs=g$grobs[-c(pos)] 
grid.newpage() 
grid.draw(g) 

.. thisポストからのアイデアを使用しようとしました。

どのように私はホワイトスペースを排除していますか？また、grobsなどを操作することなく、これに簡単な解決策がありますか？

Answer 1

だけでデータを変更します。

df2 <- rbind(cbind(df2, v2 = "y1"), 
      cbind(df2, v2 = "y2")) 
df2 <- df2[!(df2$v1 == "x1" & df2$v2 == "y2"),] 

# plot 
ggplot() + 
    geom_point(data=df1, aes(x=x, y=y, colour = factor(v4)), shape=15, size=5) + 
    scale_colour_manual(values = c(NA,"black")) + facet_grid(v1+v2~v3, drop = T) + 
    geom_point(data=df2, aes(x=x,y=y), shape=23 , colour="black", fill="white", size=4) + 
    coord_equal(ratio=1) + xlim(0, 10) + ylim(0, 10)