написание метки оси X на всех гранях без масштабирования - PullRequest
Новая
       53

написание метки оси X на всех гранях без масштабирования

0 голосов
/ 30 апреля 2018

Я хочу написать ось X на всех гранях, но без масштаба.

Выход

enter image description here

Я пытался использовать 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

enter image description here

хочу все по оси а

...