R ggplot2:x轴在具有镶嵌面_包裹的顶部绘图上

我正在使用

facet\u wrap（）

制作一个用于使用ggplot2发布的多打印图形。x轴标签仅显示在底部图上，这非常好，但顶部图上甚至没有轴。这降低了imo的可读性，我敢肯定大多数出版商不会喜欢这样

如何在没有标签的情况下获得x轴

我的图（带有一些快速示例代码）：

守则：

library(ggplot2)

# theme settings (just to get the exact same example plot)
theme_set(theme_bw()) 
font <- "serif"
theme_update(axis.line = element_line(colour = "black"),
             axis.title.x = element_text(size = 16, colour = 'black', family = font),
             axis.title.y = element_text(size = 16, colour = 'black', family = font, angle = 90),
             axis.text.x = element_text(size = 14, colour = 'black', family = font),
             axis.text.y = element_text(size = 14, colour = 'black', family = font),
             legend.text = element_text(size = 12, colour = 'black', family = font),
             legend.title = element_blank(),
             legend.position = c(0.95,0.9),
             legend.box = "vertical",
             strip.text.x = element_text(size = 14, colour = 'black', family = font),
             strip.text.y = element_text(size = 14, colour = 'black', family = font, angle = -90),
             strip.text = element_text(hjust = 1),
             strip.background = element_blank(),
             panel.background = element_rect(fill = "white"),
             panel.grid.minor = element_blank(),
             panel.grid.major = element_blank(),
             panel.border = element_blank(),
             plot.title = element_text(size = 15, face = "bold", family = font, vjust = 1, hjust = 0.5))

# example data
count <- c(10,5,6,9,2,4,8,3,1,12,5,3)
stage <- rep(c("AD","NY"),6)
treat <- rep(c("A","B","C","D"),3)
days <- c(0,7,14,21,28,35,42,49,56,63,70,77)
df1 <- data.frame(count,stage,treat,days)

# example plot
ggplot(data=df1, aes(days,count,fill=stage)) +
  facet_wrap(~treat) +
  geom_col(position = "dodge",color="black") +
  #expand = put 0 on intersection
  scale_y_continuous(expand = c(0,0), limits = c(0,15)) + 
  scale_x_continuous(expand = c(0,0), limits = c(0,80)) +
  ylab("# per plant") +
  xlab("Days after release")

库（ggplot2）
#主题设置（只是为了得到完全相同的示例图）
theme_set（theme_bw（））
font@beetroot这不是我想要的，我不想要记号或标签。只有轴线。@Roland这有可能是去润滑的吗？参数“repeat.tick.labels”不适用于facet_wrap（），该链接中提到的函数facet_rep_wrap（）给出了一个错误，即它不存在lemon包仍在CRAN上，并且包含函数
facet_rep_wrap
。抱歉，没有注意到它位于ggplot之外的另一个包中。。。我错了！不管怎样，贝特根贴出的第二个重复问题确实给了我答案。将其添加到ggplot代码中会给出没有记号或标签的轴线：
annotate（“段”，x=-Inf，xend=Inf，y=-Inf，yend=-Inf）+annotate（“段”，x=-Inf，xend=-Inf，y=-Inf，yend=Inf）