lattice绘图工具

library(lattice)
data1 <- data.frame(x=seq(0,14),y=seq(3,17),z=rep(c("a","b","c"),times=5))
xyplot(y~x,data = data1)

参数	含义
grid.pars	网格图形参数
fontsize	用于文本和符号两个组件(每个组件都是数字标量)的列表
clip	面板和条带两个组件的列表(每个组件都有一个字符串，“开”或“关”)

show.settings()

lattice包通过颜色区分不同组别而不是形状。
xyplot(y~x,groups = z,data = data1)
mysettings <- trellis.par.get()
mysettings$superpose.symbol$col <-"black"
mysettings$superpose.symbol$pch <-1:10
trellis.par.set(mysettings)
xyplot(y~x,groups = z,data = data1)

条件变量
graph_function(formula|v,data=,options)
如果条件变量为连续型，需要转为离散型

xyplot(y~x|z,data = data1,layout=c(3,1))

面板函数

mypanel <- function(...){
  panel.abline(a=1,b=1)
  panel.xyplot(...)
}
xyplot(y~x|z,data = data1,layout=c(3,1),panel = mypanel)

分组变量
将不同水平的变量叠加到一起

densityplot(~mpg,data = mtcars,lty=1:2,col=1:2,lwd=2,
            groups = factor(am),
            ma