ggplot2で時系列的なデータを２つ並べた図を作る例。図を並べる

x1a<-cumsum(rnorm(1000,mean=0,sd=1))
x1b<-cumsum(rnorm(1000,mean=0,sd=1))
m1<-seq(0,2,length.out=length(x1a))
y1<-x1a*m1
y2<-x1b

z1<-x1a
z2<-x1b/m1
x1<-1:length(y1)
set1<-factor(c(rep("g(t)",length(x1)),rep("f(t)",length(x1))),levels=c("g(t)","f(t)"))
x0<-c(x1,x1)
y0<-c(y1,z1)
z0<-c(y2,z2)
d<-data.frame(x0,y0,z0,set1)

#d<-data.frame(y1,y2)


g3<- ggplot(data=d)
g3<-g3+theme_bw(base_size=32) 
g3<-g3+ geom_line(aes(x=x0,y=z0),colour=2,linetype=2)
g3<-g3+geom_line(aes(x=x0,y=y0))
g3<-g3+xlab("Date")+ylab("Counts")
#g3<-g3+geom_text(y=370,x=50,label="r: Random walk \n m: Scale",size=8,hjust = 0)

g3<-g3 + facet_grid(set1~.) 
print(g3)