coord_cartesianを使用すると、プロット領域の外にテキストを追加するにはどうすればよいですか？

Question

プロット領域の上部にテキスト（実際のデータのp値）を追加します。ここでは一例であり、私が試したです：

データ：

library(tidyverse) 

set.seed(123) 
plt <- iris 
plt$Petal.Width <- plt$Petal.Width + rnorm(nrow(plt)) 

plt.text <- plt %>% group_by(Species) %>% summarise(label = max(Petal.Width)) 

私はパネルの上にplt.textためsapceを予約しますが、テキストは表示されませんでした：

p <- ggplot(plt, aes(x= Species, y = Petal.Width)) + 
    geom_violin() + 
    geom_text(aes(x = Species, y = 4, label = label), 
       data = plt.text, vjust = 0) + 
    coord_cartesian(ylim = c(-2, 4), expand = 0) + 
    theme(plot.margin = margin(0.2, 0.05, 0.05, 0.05, 'npc')) 

はthis postに続いて、私が試した：

gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[gt$layout$name == "panel"] <- "off" 
grid::grid.draw(gt) 

テキストが正しく表示されているが、あなたが見ることができるが、trancatedバイオリンプロットは、上記のプロットでいっぱいに示されています。どのようにしてプロット領域の外にテキストを表示するだけで、バイオリンプロットをトランケートに保つことができますか？私はどうだろう何

Answer 1

、cowplotを使用して：あなたは https://cran.r-project.org/web/packages/（[ `cowplot`]使用することができます

p <- ggplot(plt, aes(x= Species, y = Petal.Width)) + 
    geom_violin() + 
    coord_cartesian(ylim = c(-2, 4), expand = 0) + 
    theme_grey() 
ann <- ggplot(plt.text, aes(x = Species, y = 0, label =label)) + 
    geom_text() + 
    theme_void() 


library(cowplot) 
plot_grid(ann, p, ncol = 1, rel_heights = c(.05, 1), align = 'v')