我可以使用facet_wrap（ggplot2）使小平面大于其他小平面吗？

Question

我有16个样本，并且希望对每个观察结果绘制单独的直方图以及样本的中位数。我希望重点放在中位数上，因此我想使其最大（例如4倍）并适合其周围的其余方面，例如反向插入。我理想的布局是：

med med  a  b  c 
med med  d  e  f 
 g   h   i  j  k
 l   m   n  o  p

以下是一些用于制作示例多面直方图的代码：

library(ggplot2)

tibble(
    sample = factor(c("median", letters[1:16]), levels = c("median", letters[1:16])),
    data = list(c(.1,.1,.1,.2,.8,.9,.9,.9))
) %>% unnest %>% 
    ggplot(aes(x = data)) +
    geom_histogram() +
    facet_wrap(~ sample, ncol = 4, scales='free', shrink = TRUE) +
    scale_x_continuous(breaks = c(0,.5, 1.0)) 

我想知道是否可以以某种方式进行缩放或缩小，但是我不确定从哪里开始。也许我需要在插槽中放置填充数据，然后使用网格在顶部覆盖较大的图？无论哪种情况，我都不知道如何开始，将不胜感激。