R语言可视化二

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的均值。最后一句话是做出拟合曲线

posted @ 2017-07-19 10:17  三门曾经  阅读(1499)  评论(0编辑  收藏  举报