Добавить фальшивый галочку к оси x в ggplot

Question

Я предполагаю, что название говорит все. У меня есть набор данных без каких-либо данных за день 0, но для иллюстрации я хотел бы включить день 0 на дискретную ось Х, возможно ли это?
Пример кода ниже, фасетка необходима для моих исходных данных.

tmp=expand.grid(Mig=c("A","B"), 
       Measure=c("Rel", "Abs"), 
       Mean=rnorm(1,2,3), 
       Day=factor(c(-14:-1,1:14), levels=c(-14:-1, 1:14))) 
tmp$Group=with(tmp, paste(Mig, Measure)) 
ggplot(tmp, aes(x=Day, y=Mean, group=Group))+ 
    facet_grid(Mig~Measure)+ 
    geom_line()+ 
    scale_x_discrete(breaks=seq(-14,14,2)) 

Answer 1

Если преобразовать Day в целое или цифровой, кажется, работает.

tmp$Day <- as.integer(as.character(tmp$Day)) 

ggplot(tmp, aes(x=Day, y=Mean, group=Group))+ 
    facet_grid(Mig~Measure)+ 
    geom_line()+ 
    scale_x_continuous(breaks=seq(-14,14,2)) 

EDIT: Фиксированные перерывы.