p<-ggplot(mydata)+
geom_line(aes(x=d,y=log10Φ1,color="model1"),size=0.9)+
geom_line(aes(x=d,y=log10Φ2,color="model2"),size=0.9)+
geom_line(aes(x=d1,y=log10Φ1real,color="model1"),size=3,alpha=0.5)+
geom_line(aes(x=d1,y=log10Φ2real,color="model2"),size=3,alpha=0.2)+
labs(x="Thickness/(mm)")+
labs(y=bquote(lnΦ[modelx](d)))+
labs(color=' Φ(d) ')+
facet_zoom(xlim=c(0.9,2.5),ylim=c(0,1.25))
这段程序,如果ggplot()空白,将mydata中对应数据赋值给其他变量并作图,facet_zoom就会报错,但其他绘图仍然可以正常进行,为了调通程序,这里我直接用了加载时的表头;
ase中,如果不设置color="model1",或者color="model1"在aes外设置,则不会出现图例