R入门-001

1.-----------------------------------------------------------------library(lattice)mtcars$transmission<-factor(mtcars$am, levels=c(0,1),                             labels=c("Automatic", "Manual"))xyplot(mpg~disp|transmission , data=mtcars,     scales = list(x=list(), y=list()),    panel=function(x,y){                            panel.grid(h=-1, v=-1)                            panel.xyplot(x,y)                            panel.loess(x,y)                             panel.abline(h=mean(y), lwd=2, lty=2, col="darkgreen")},    xlab="Displacement", ylab="Miles per Gallon",    main="MPG vs Displacement by Transmission Type",    sub="Dotted lines are Group Means",    aspect=1)错误记录：    Error in limits.and.aspect(default.prepanel, prepanel = prepanel, have.xlim = have.xlim,  :   need at least one panel  修改去除：transmission  xyplot(mpg~disp , data=mtcars,     scales = list(x=list(), y=list()),    panel=function(x,y){                            panel.grid(h=-1, v=-1)                            panel.xyplot(x,y)                            panel.loess(x,y)                             panel.abline(h=mean(y), lwd=2, lty=2, col="darkgreen")},    xlab="Displacement", ylab="Miles per Gallon",    main="MPG vs Displacement by Transmission Type",    sub="Dotted lines are Group Means",    aspect=1)2.++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++library(lattice)mtcars$transmission<-factor(mtcars$am,levels=c(0,1),                            labels=c("Automatic","Manual"))densityplot(~mpg,data=mtcars,group=transmission,            main="MPG Distribution by Transmission Type",            xlab="Miles per Gallon",auto.key=T) 3.-----------------------------------------------------------------library(lattice)mtcars$transmission<-factor(mtcars$am,levels=c(0,1),                            labels=c("Automatic","Manual"))colors<-c("red","blue")lines<-c(1,2)points<-c(16,17)key.trans<-list(title="Transmission",                space="bottom",columns=2,                text=list(levels(mtcars$transmission)),                lines=list(col=colors,lty=lines),                cex.title=1,cex=.9)densityplot(~mpg,data=mtcars,            group=transmission,            main="MPG Distribution by Transmission Type",            xlab="Miles per Gallon",            pch=points,lty=lines,col=colors,            lwd=2,jitter=.005,key=key.trans)