Lattice绘图系统
Lattice包：
xyplot（散点图）/ bwplot / histrogram（柱状图）/ stripplot / dotplot（点图）
格式：xyplot（y~x | f g , data）即：（公式 (因变量 ， 自变量 | 分类变量) ， 数据）
panel函数，控制每个面板的绘图
Lattice返回trellis类的对象，打印函数真正执行了在设备上绘图，命令执行时，trellis类对象直接绘图。

library(lattice)
#引入包

xyplot(Temp~ozone,data = airquality)
#温度随着臭氧的变化情况

airquality$Month<-factor(airquality$Month)
xyplot(Temp~ozone|Month,data = airquality,layout=c(5,1))
#在月份这一分类水平下，温度随臭氧的变化。因为月份是数值型变量，需要先转换成分类变量

set.seed(1)
x<-rnorm(100)
f<-rep(0:1,each=50)
y<-x+f-f*x + rnorm(100,sd=0.5)
f<-factor(f,labels = c("group1","group2"))
xyplot(y~x | f,layout=c(2,1))
#设置种子点，每次产生一样的随机数。x是从正态分布中随机抽取的100个样本，y是关于x和分类变量f的函数。图中显示的是在f的两个水平下的x与y 的关系。

xyplot(y~x | f,panel = function(x,y){
  panel.xyplot(x,y)
  panel.abline(v=mean(x),h=mean(y),lty=2)
  panel.lmline(x,y,col="red")
})
#对上图进一步修饰，做一个panel函数，v表示垂直线为x的均值，h水平线为y的均值。最后一句话是做出拟合曲线