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

编辑：固定休息。