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')

Answer 1

您必须关闭底部面板元素的剪裁：

p <- 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 %>% dplyr::filter(PNo %in% c('X-3','X-4')),aes(x = dist,y=0,label = Tag),size=6,inherit.aes=F,color = 'red') 
library(grid) 
gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[grep("panel-2-\d+", gt$layout$name)] <- "off"
grid.draw(gt)

见Point clipped on x-axis in ggplot

R 和 ggplot：在 ggplot 的面板外放置 x 轴标签

R and ggplot: Putting x-axis labels outside the panel in ggplot

r

ggplot2

geom-text