在ggplot中向x轴添加假刻度

Question

我认为标题说明了一切。我有一个数据集，第0天没有任何数据，但出于说明目的，我想在离散的x轴上包含第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))

编辑：修正了中断。