在所有方面上编写x轴标签而不缩放

Question

我想在所有方面编写x轴但没有刻度。

输出

我尝试使用scales='free_x' with scale_x_discrete(drop=FALSE)，但它没有用。

plot2 <- ggplot(counter2, aes(x = as.character(week) , y = freq,group=Delivery.time)) +
  geom_point(colour = "red") + geom_line(colour = "red") + 
  labs(x = "Month", y = "Number Of Customers") + 
  facet_grid(.~Delivery.time) +
  theme(axis.text.x = element_text(angle = 45, hjust=1)) + 
  geom_text(aes(label = freq),size = 2.5, hjust = .5, vjust=-0.5) + 
  facet_wrap(~Delivery.time, ncol = 1, scales = x) + 
  scale_x_discrete(drop=FALSE)

使用缩放的x轴绘制

我想要所有a轴