fivekiki

head(mtcars)
str(mtcars)
#绘制每加仑油行驶的英里数(mpg)和汽车自重(wt)两个变量的散点图
attach(mtcars)
plot(mpg,wt,pch=19,col="green4",xlab = "英里数",ylab="汽车自重")
abline(lm(wt~mpg),lwd=2,col="red")
#绘制该数据集的散点图矩阵
pairs(mtcars[,-1])
panel.cor <- function(x, y, digits = 2, prefix = "", cex.cor, ...) {
  
  usr <- par("usr")
  
  on.exit(par(usr))
  
  par(usr = c(0, 1, 0, 1))
  
  r <- abs(cor(x, y, use = "complete.obs"))
  
  txt <- format(c(r, 0.123456789), digits = digits)[1]
  
  txt <- paste(prefix, txt, sep = "")
  
  if (missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
  
  text(0.5, 0.5, txt, cex = cex.cor * (1 + r) / 2)
  
}
panel.hist <- function(x, ...) {
  
  usr <- par("u