r - ggplot2 オブジェクト/グロブである軸ラベル

Question

ggplot2 オブジェクト/グロブ/プロットを軸ラベルとして使用したいと考えています。

これが私のおもちゃの例です：

library(dplyr)
library(ggplot2)
# master plot
df <- data_frame(y = c("unchanging", "increasing", "decreasing"), x = c(20, 50, 30))
ggplot(df, aes(x, y)) + geom_point()

# fxn generates ggplot2 object specifying a line plot from two points
two_pt_line_plot <- function(y1, y2) {
  df <- data_frame(y = c(y1, y2), x = c("from", "to"))
  ggplot(df, aes(x,y, group = 1)) + geom_line(size = 4) + 
    xlab(NULL) + ylab(NULL) + 
    scale_x_discrete(expand=c(0,0)) + 
    scale_y_continuous(expand=c(0,0))
}
# make the three plot objects, name them appropriately.
grobs <- Map(two_pt_line_plot, c(.5,0,1), c(.5, 1, 0))
names(grobs) <- df$y
grobs
#> $unchanging

#> $increasing

#> $decreasing

これをプログラムで生成したい：

私が現在考えることができる唯一のことは、テーマが最大にハッキングされて、それが属しているように見えるようにするファセットとして、何らかの方法でプロットを重ねることです。しかし、私はまだそれを行うことができず、非常にハックなソリューションのようです. だから私はそれをそこに捨てると思った。