首页 理论教育基于R的多元统计分析:mtcars数据集可视化

基于R的多元统计分析:mtcars数据集可视化

【摘要】:在实验2.3.1中,我们对mtcars数据集(R 自带数据集)进行了展示和描述,以下对该数据集进行可视化.(1)汽车每加仑英里数直方图>hist(mtcars$mpg,breaks=10)结果如图2-1所示.(2)按汽缸数划分的各车型车重的核密度图>par(lwd=2)>library(sm)>cyl.f<-factor(mtcars$cyl,levels=c(4,6,8),labels=c("4

在实验2.3.1中,我们对mtcars数据集(R 自带数据集)进行了展示和描述,以下对该数据集进行可视化

(1)汽车每加仑英里数直方图

>hist(mtcars$mpg,breaks=10)

结果如图2-1所示.

(2)按汽缸数划分的各车型车重的核密度图

>par(lwd=2)

>library(sm)

>cyl.f<-factor(mtcars$cyl,levels=c(4,6,8),labels=c("4cylinder","6cylinder","8cylinder"))

>sm.density.compare(mtcars$wt,mtcars$cyl,xlab="CarWeight")

>title(main="CarWeightbyCarCylinders")

>colfill<-c(2:(1+length(levels(cyl.f))))

>legend(locator(1),levels(cyl.f),fill=colfill)

图2-1 汽车每加仑英里数直方图

结果如图2-2所示.

图2-2 按汽缸数划分的各车型车重的核密度图

(3)依气缸数量分组的每加仑汽油行驶英里数点图

>x<-mt cars[order(mt cars$mpg),]

>x$cyl<-factor(x$cyl)

>x$color[x$cyl==4]<-"red"(www.chuimin.cn)

>x$color[x$cyl==6]<-"blue"

>x$color[x$cyl==8]<-"green"

>dot char t(x$mpg,labels=row.names(x),cex=.7,groups=x$cyl,gcolor="black",color=x$color,pch=19,main="Gas Mileage for Car Models\ngrouped by cylinder",xlab="Miles Per Gallon")

结果如图2-3所示.

图2-3 依气缸数量分组的每加仑汽油行驶英里数点图

(4)各汽车马力与每加仑汽油行驶英里数的散点图

plot(mt cars$mpg,mt cars$hp,main="The Histogram of\n Gross horsepower and MilesPer Gallon")

结果如图2-4所示.

图2-4 各汽车马力与每加仑汽油行驶英里数的散点图

(5)不同变速箱类型和气缸数量车型的箱线图

>mtcars$cyl.c<-factor(mtcars$cyl,levels=c(4,6,8),labels=c("4","6","8"))

>mtcars$am.c<-factor(mtcars$am,levels=c(0,1),labels=c("auto","stand-ard"))

>boxplot(mpgam.c∗cyl.c,data=mtcars,varwidth=TRUE,col=c("gold","dark-green"),

main="MPG Distribution by Auto Type",xlab="Auto Type")

结果如图2-5所示.

图2-5 不同变速箱类型和气缸数量车型的箱线图