r - facet_grid ggplot で x 軸ラベルを強制: ラベルを削除

Question

これらの質問は、以前の投稿のフォローアップです。

• facet_grid プロットのすべてのファセットで X 軸のテキストをオンにします
• facet_grid ggplot で x 軸ラベルを強制する: 行ごとに異なる x 軸ラベル

私はちょうど学び始めていますgtable。上記の 2 つの投稿のコードをマージして、ファセット グリッドの各パネルの x 軸を取得しました。

library(ggplot2)

diamondSub <-subset(diamonds, (cut=="Ideal" | cut=="Premium" | cut == "Very Good") & 
                              (color=="E" | color=="I"))

p <- ggplot(diamondSub, aes(x=clarity, y=price)) + 
       geom_blank() + 
       geom_boxplot() +
       facet_grid(cut~color, scales="free_x") +
       theme(plot.background=element_blank(),
             panel.grid.major=element_blank(),
             panel.grid.minor=element_blank(),
             panel.border = element_blank(),
             panel.background = element_blank(),
             axis.line.x = element_line(color = 'black',size=1),
             axis.line.y = element_line(color = 'black',size=1))
p

library(gtable)

g <- ggplotGrob(p)

# locate the panels
panels <- grep("panel", g$layout$name)
top <- unique(g$layout$t[panels])

# Construct each row separately
top.row <- rbind_gtable(g[seq.int(min(top)), ], 
                                 g[max(top)+1,], "first")
middle.row <- rbind_gtable(g[c(top[2]-1,top[2]), ], 
                                    g[max(top)+1,], "first")
bottom.row <- g[(max(top)-1):nrow(g), ]

all <- rbind_gtable(rbind_gtable(top.row, middle.row, "first"), bottom.row, "first")

# Draw it
grid.newpage()
grid.draw(all)

2 つの質問があります。

1. 上の 2 行の x 軸からラベルを削除して、軸線と目盛りのみを表示するにはどうすればよいですか?
2. y 軸のタイトルが消えないようにするにはどうすればよいですか?