r - 在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))

编辑：固定休息。