r - 为 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" )