为facet_wrap（ggplot2）中的每个绘图指定不同的xlim

Question

这是我的代码：

ggplot(df, aes(Date, EC))+
  scale_x_date(labels= date_format("%Y"), breaks=date_breaks("year"))+
  geom_point(data=df2, aes(Date, EC), size=2, color="red")+ 
  geom_point()+
  geom_line()+
  xlab(NULL)+
  geom_smooth(method="lm", se=F)+
  facet_wrap(~ID, scales="free_y")+
  theme(axis.text.x = element_text(angle = 90))

产生这个结果（我知道它很难看，但是以它为例）：

我可以为facet_wrap中的每个绘图指定不同的xlim（基于日期值）吗？如果我可以根据min（df $ Date）指定xlim，那就太好了。

我希望我能说清楚。

Answer 1

这个应该可以解决。尝试一些广泛的数据：

data <- data.frame( grp=rep(c("one","two","three","four"), each=10),
                    x=1:40,
                    y=c( runif(10)*3,
                       ( runif(10)*30 )+10,
                       ( runif(10)*50 )+10,
                       ( runif(10)*10 )-10 ) )

ggplot( data, aes(x, y) ) +
              geom_point(  ) +
              geom_line( ) +
              geom_smooth( method = "loess" ) +
              facet_wrap( ~grp, scales="free" )