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

編集:休憩を修正しました。