时间： 2018-07-31
教程： 慕课网 《R语言之数据可视化》 讲师：Angelayuan
学习内容： 课程第三章5-6节

数据可视化

2. Lattice绘图系统

Lattice绘图系统包含在lattic包中。
该系统包含许多函数：xyplot / bwplot / histogram / stripplot / dotplot / splom / leveplot / contourplot等
xyplot函数格式：xyplot(y ~ x | f*g, data)，其中 f*g为因子类型，该参数可省略。
Base绘图系统直接在图形设备上绘图，而Lattice绘图系统返回trellis类对象，然后由打印函数在设备上进行绘图，但在执行Lattice命令时，打印自动进行。
install.packages(“lattice”)：下载lattice包
library(lattice)：加载lattice包
使用lattice包之前应先加载。
如：
使用xyplot函数绘制温度~氧气含量的散点图：

library(lattice)
xyplot(Temp~Ozone, data=airquality)

按月份生成温度~氧气含量的散点图（在画图前应先将月份变量转化为因子类型）：

airquality$Month <- factor(airquality$Month)
xyplot(Temp~Ozone | Month, data=airquality,
       layout = c(5,1))

q <- xyplot(Temp ~ Wind, data = airquality)

运行该程序，发现没有生成图形，因为xyplot函数是返回了一个对象，而不是直接在设备上进行绘图，Lattice绘图系统绘图是通过打印函数在设备上打印返回对象生成的，即：

print(q)

生成一组数据，并按不同因子进行绘图：

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))

在生成数据时用到随机数时应建立种子点，这样可以方便自己对该数据进行重复生成，在出现问题时向他人求助是也方便他人帮助。

添加绘制回归线及均值线：

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")
})

可以看出图中多了4条黑色的虚线（均值线）和2条红色的线（回归线）。