在ggplot中添加假蜱到x軸

Question

我想標題說明了一切。我在第0天沒有任何數據的數據集，但爲了說明的目的，我希望將第0天包括在離散的x軸上，這可能嗎？
以下代碼示例中，我的原始數據需要刻面。

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

編輯：固定休息。