0

有没有办法将标签与 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')

在此处输入图像描述

4

1 回答 1

2

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

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)

在此处输入图像描述

请参阅ggplot 中 x 轴上的点剪辑

于 2017-03-06T18:57:36.700 回答