0318.R

#七、請比較：車體重量(Weight)、馬力(hp)、變速箱(gear)與耗油量(mpg )的關係，並畫圖。
x <- mtcars
x$wt

##  [1] 2.620 2.875 2.320 3.215 3.440 3.460 3.570 3.190 3.150 3.440 3.440 4.070
## [13] 3.730 3.780 5.250 5.424 5.345 2.200 1.615 1.835 2.465 3.520 3.435 3.840
## [25] 3.845 1.935 2.140 1.513 3.170 2.770 3.570 2.780

w<-table(x$wt)
barplot(w)

boxplot(x$wt)

hist(x$wt) 

#plot(x, y)畫散佈圖
plot(x$wt,x$mpg)

plot(x$hp,x$mpg)

plot(x$gear,x$mpg)

#用圖形控制函數par(mfrow = c(列數,欄數)) 畫多張圖
par(mfrow = c(1,3))
plot(x$wt,x$mpg,col="green")
plot(x$hp,x$mpg,col="red")
plot(x$gear,x$mpg,col="blue")

#離開par()


#用cor(x, y)計算相關係數
cor(x$wt,x$mpg)

## [1] -0.8676594

cor(x$hp,x$mpg)

## [1] -0.7761684

cor(x$gear,x$mpg)

## [1] 0.4802848

#八、請比較：自手排(am)、變速箱(gear)與耗油量(mpg)的關係，並畫圖。
#先分組，再計算
#tapply(被分析的欄位，分組依據欄位，計算函數)
am <- tapply(x$mpg,x$am,mean)
gear <- tapply(x$mpg,x$gear,mean)
am

##        0        1 
## 17.14737 24.39231

gear

##        3        4        5 
## 16.10667 24.53333 21.38000

par(mfrow = c(1,2))
barplot(am)
barplot(gear)

#九、請比較：耗油量(mpg)、馬力(hp)與加速秒數(qsec)的關係，並畫圖。

#plot(x, y)畫散佈圖
plot(x$mpg,x$qsec)
plot(x$hp,x$qsec)

#用圖形控制函數par(mfrow = c(列數,欄數)) 畫多張圖
par(mfrow = c(1,2))
plot(x$mpg,x$qsec,col="brown",xlab="mpg",ylab="qsec",main = "mpg/qsec",sub = "allen pan")
plot(x$hp,x$qsec,col="pink",xlab="hp",ylab="qsec",main = "hp/qsec",sub = "allen pan")

#相關係數
cor(x$mpg,x$qsec)

## [1] 0.418684

cor(x$hp,x$qsec)

## [1] -0.7082234

#十、請比較：汽缸數(cyl)、變速箱(gear)與加速秒數(qsec)的關係，並畫圖。
cor(x$cyl,x$qsec)

## [1] -0.5912421

cor(x$gear,x$qsec)

## [1] -0.2126822

cyl <- tapply(x$qsec,x$cyl,mean)
gear <- tapply(x$qsec,x$gear,mean)
cyl

##        4        6        8 
## 19.13727 17.97714 16.77214

gear

##      3      4      5 
## 17.692 18.965 15.640

par(mfrow = c(1,2))
barplot(cyl,col=c(6:8),xlab="cyl",ylab="qsec",main = "cyl/qsec",sub = "allen pan")
barplot(gear,col=c(2:5),xlab="gear",ylab="qsec",main = "gear/qsec",sub = "allen pan")