軸のテキストを1つのファセットから削除する

Question

facet_grid（）を使用して3つの時系列を表示しようとしていますが、スペースを節約するために、それらのパネル間隔を減らしています。問題は、縦軸が重なっているため、中央のプロットでのみ右に移動したいのです。

これはggplot2では不可能と思われるので、私がしようとしているのは、すべての軸をレンダリングしてから、それを削除してgtableを編集することですが、これまでは成功しませんでした。

これは最低限の例です。

library(ggplot2) 

set.seed(123) 
df <- data.frame(expand.grid(x = 1:150, type = letters[1:3])) 
df$y <- df$x*0.016 + rnorm(150, sd = .5) 

ggplot(df, aes(x, y)) + geom_line() + 
    facet_grid(type~.) + 
    theme(panel.spacing.y = unit(-3, "lines"), strip.text = element_blank()) + 
    scale_y_continuous(sec.axis = dup_axis(name = ""), name = "y") 

この生成：

そして、私はこれを取得するには、各軸のテキストを削除する：

ありがとう！

Answer 1

解決策は、gTableの関連要素にnullGrob（）を割り当てることでした。それを考え出すための

gt <- ggplotGrob(g) 
t <- gt[["grobs"]][[8]][["children"]][[2]] 

# Found those grobs by looking around the table. 
gt[["grobs"]][[8]][["children"]][[2]] <- nullGrob() 
gt[["grobs"]][[10]][["children"]][[2]] <- nullGrob() 
gt[["grobs"]][[12]][["children"]][[2]] <- nullGrob() 

grid.newpage() 
grid.draw(gt)