r - R と ggplot: ggplot のパネルの外側に x 軸ラベルを配置する

Question

ggplotのプロットパネルに関してラベルを前に出す方法はありますか? 実際、私はここで私の質問に答えようとしていました。ggplotで可能だと思っていましたが、満足のいく反応はありませんでした。これは、ハッキーなものではありますが、解決策を得るための試みです。ただし、ラベルはプロット パネルの下に表示されます。

以下は、私の（例）データ、試行された解決策、および結果のプロットです。

library(ggplot2)
library(magrittr)    
mydata = data.frame(expand.grid(Tag = c('A','B','C'),Year = 2010:2011,PNo = paste0("X-",1:4)),Value = round(runif(24,1,20)))
mydata$dist = ifelse(mydata$Tag == 'A',0,ifelse(mydata$Tag=='B',2,7))

mydata %>% ggplot(aes(x = dist,y = Value,fill = factor(Year))) +geom_bar(stat='summary',position = 'dodge',fun.y='mean',width = 1) +
  facet_wrap(~PNo,ncol=2) +
  theme(axis.text.x = element_blank(),axis.ticks.x = element_blank()) +
  geom_label(data  = mydata %>% filter(PNo %in% c('X-3','X-4')),aes(x = dist,y=0,label = Tag),size=6,inherit.aes=F,color = 'red')