R語言繪圖講述

1、R語言繪圖畫圖例子 R Graph Cookbook例子 html view plain copy print ? span style = font-size:18px; / span html view plain copy print ? span style = font-size:18px; From： / span a href = span style = fon畫圖例子R Graph Cookbook例子htmlview plaincopyprint? htmlview plaincopyprint?From：ahref=今天突然找到一本專門教授R語言繪圖的書，R Graph

2、Cookbook，發(fā)現(xiàn)還不錯。當初喜歡上R語言就是因為它繪圖特別好看。下面把這本書的內(nèi)容，經(jīng)過我學習后，翻譯并貼上了吧。（我水平還不夠，原創(chuàng)還不行呀，不過學習就是先模仿再創(chuàng)新的過程）之所以要貼到博客上來，我是怕有一天我也忘記了，好直接到我博客上來搜索一下，同時也方便了別人。下面說的是用R語言繪制散點圖。其實繪制散點圖，用plot（x,y）直接就可以了，不過這樣繪制出來的散點圖太簡單了，不能達到使用的要求，所以要詳細得設置一些參數(shù)，才能讓圖形更加的漂亮。還是直接上代碼吧，我已經(jīng)做好注釋的了。pythonview plaincopyprint? 1. plot(cars$distcars$spee

3、d,#yx，cars是R自帶的數(shù)據(jù)2. main=Relationshipbetweencardistance&speed,#標題3. xlab=Speed(milesperhour),#x軸標題4. ylab=Distancetravelled(miles),#Y軸標題5. xlim=c(0,30),#設置x軸的取值區(qū)間為0到306. ylim=c(0,140),#設置y軸的取值區(qū)間為0到1407. xaxs=i,#這里是設置x軸的風格，暫時沒看明白有多大區(qū)別8. yaxs=i,9. col=red,#設置顏色10. pch=19)#pch指代點的形狀，用數(shù)字表示，可查看幫助文檔11. #如

4、果要保存圖片怎么辦呢？我覺得最簡單的方法就是使用RStudio這個IDE，極其得好，可惜很多人都不知道。#如果你不會，可以用如下代碼實現(xiàn)：#（圖形的參數(shù)還有很多個，我這里只使用了其中的幾個）12. png(filename=散點圖.png,width=480,height=480)13. plot(cars$distcars$speed,#yx14. main=Relationshipbetweencardistance&speed,#標題15. xlab=Speed(milesperhour),#x軸標題16. ylab=Distancetravelled(miles),#Y軸標題17. x

5、lim=c(0,30),#設置x軸的取值區(qū)間為0到3018. ylim=c(0,140),#設置y軸的取值區(qū)間為0到14019. xaxs=i,#這里是設置x軸的風格，暫時沒看明白有多大區(qū)別20. yaxs=i,21. col=red,22. pch=19)#pch指代點的形狀，用數(shù)字表示，可查看幫助文檔23. dev.off()24. 如果你還有另一組數(shù)據(jù)，需要在上面這幅圖里繪制，也就是在同一幅圖里面繪制兩組數(shù)據(jù)的散點圖，可以像下面這樣用point函數(shù)：plainview plaincopyprint? 1. png(filename=散點圖.png,width=480,height=480

6、)2. plot(cars$distcars$speed,#yx3. main=Relationshipbetweencardistance&speed,#標題4. xlab=Speed(milesperhour),#x軸標題5. ylab=Distancetravelled(miles),#Y軸標題6. xlim=c(0,30),#設置x軸的取值區(qū)間為0到307. ylim=c(0,140),#設置y軸的取值區(qū)間為0到1408. xaxs=i,#這里是設置x軸的風格，暫時沒看明白有多大區(qū)別9. yaxs=i,10. col=red,11. pch=3)#pch指代點的形狀，用數(shù)字表示，可查看

7、幫助文檔12. points(cars$speedcars$dist,pch=19)#因為比較難弄數(shù)據(jù)，就把原先的數(shù)據(jù)因果關系顛倒一下，pch設置與前面不同以區(qū)分13. dev.off()如果自己沒有數(shù)據(jù)的話，可以用data()查看R語言內(nèi)置的數(shù)據(jù)的哦。還是有挺多數(shù)據(jù)的。上面的這些是散點圖，但是你只要在參數(shù)里面type=l#是字母l，那么就會將這些點串聯(lián)起來畫成線了。下面是條形圖的繪制方法（bar plot），數(shù)據(jù)是該書自帶的，代碼如下：plainview plaincopyprint? png(filename=散點圖.png,width=480,height=480)1. Sales-re

8、ad.csv(/home/rickey/文檔/電子書/R教程/LearnRstatistics/RGraph/Code/Chapter1/DataFiles/citysales.csv,header=TRUE)#header設置為TRUE表示把數(shù)據(jù)行和列的名稱也讀取進來2. barplot(Sales$ProductA,3. names.arg=Sales$City,4. col=blue)5. dev.off()圖形輸出（pdfWinPBGJPEGBMPPostScript）用代碼保存圖形，將繪圖語句夾在開啟目標圖形設備的語句和關閉目標圖形設備的語句之間即可。pythonview plain

9、copyprint? 1. #pdf(mygraph.pdf)#pdf文件2. win.metafile(filename.wmf)#windows圖形文件3. #png(filename.png)#PBG文件4. #jpeg(filename.jpg)#JPEG文件5. #bmp(filename.bmp)#BMP文件6. #postscript(filename.ps)#PostScript文件7. attach(mtcars)8. plot(wt,mpg)9. abline(lm(mpgwt)10. title(RegressionofMPGonWeight)11. detach(mtc

10、ars)12. dev.off()13. 圖形初階使用圖形pythonview plaincopyprint? 1. dose=c(20,30,40,45,60)2. drugA=c(16,20,27,40,60)3. drugB=c(15,18,25,31,40)4. plot(dose,drugA,type=b)type=b 同時畫出點和線type=“c 沒有點只有線5.圖形參數(shù)在上例中，我們想使用實心三角而不是空心圓圈作為點符號的話，病想用虛線代替實現(xiàn)連接這些點： pythonview plaincopyprint? 1. dose=c(20,30,40,45,60)2. drugA=c

11、(16,20,27,40,60)3. drugB=c(15,18,25,31,40)4. plot(dose,drugA,type=b)5. opar=par(no.readonly=TRUE)#復制一份單簽的圖形參數(shù)6. par(lty=2,pch=17)#將默認的線性類型修改為虛線（lty=2)并且將默認的點符號改為了實心三角（pch=17）7. #也可以使用par(lty=2);par(pch=17)兩句8. plot(dose,drugA,type=b)#繪制了圖形9. par(opar)#還原了原始設置10. #或者這樣寫plot(dose,drugA,type=b,lty=2,pc

12、h=17)來畫圖，但只是針對于這張圖11. pch:指定繪制點時使用的符號cex：指定符號的大小。cex是一個數(shù)值，表示繪圖符號相對于默認值大小的縮放倍數(shù)。默認大小為1,1.5表示放大為默認值的1.5倍.lty：指定線條類型lwd：指定線條寬度。（默認值的幾倍）col：默認的繪圖顏色。如這是col=c(red,blue)并需要繪制三條線，第一條為紅色，第二條為藍色，第三條為紅色col.axis 坐標軸顏色col.main 標題顏色col.sub 副標題的顏色fg 前景色bg 背景色example： col=1,col=white col=#FFFFFF col=rgb(1,1,1) col=h

13、sv(0,1,1) 都可以表示白色R中也用多種用于創(chuàng)建連續(xù)型顏色向量的函數(shù)：rainbow()heat.colors()terrain.colors()top.colors()cm.colors()gray()可以生成多節(jié)灰度pythonview plaincopyprint? 1. n=102. mycolors=rainbow(n)3. pie(rep(1,n),labels=mycolors,col=mycolors)4. mygrays=gray(0:n/n)5. pie(rep(1,n),labels=mygrays,col=mygrays)6.文本屬性cex：表示相對默認大小縮放倍

14、數(shù)的數(shù)值。（倍數(shù)）cex.axis：坐標軸刻度文字的縮放倍數(shù)。cex.lab：坐標軸標簽（名稱）的縮放倍數(shù)。cex.main：標題的縮放倍數(shù)cex.sub：副標題的縮放倍數(shù)font： 整數(shù)類型。1=常規(guī)，2=粗體，3=斜體，4=粗斜體，5=符號字體（adobe編碼）font.axis font.lab font.main font.subps 磅值文本最終的大小為ps*cexfamily 繪制文本是使用的字體族。 標準取值為serif（襯線）、sans（無襯線）和mono（等寬)Windows中，可以通過函數(shù)windowsFont（）創(chuàng)造新的映射。（Mac，采用quartzFont（）PDF或

15、者PostScript輸出格式圖形，修改相對簡單。PDF使用names(pdfFonts()找出系統(tǒng)有哪些字體可用，然后用pdf(file=”myplot.pdf“,family=fontname)生成圖形。PostScript輸出格式的圖形，可以使用names（postscriptFonts()）和postscript(file=myplot.ps,family=fontname)7.圖形尺寸和邊界尺寸pin：以英寸表示的圖形尺寸（寬和高）mai：以數(shù)值向量表示的邊界大小，順序為“下、左、上、右”單位為英寸mar：以數(shù)值向量表示的邊界大小，順序為“下、左、上、右”單位為英分。默認=c(5,4

16、,4,2)+0.18.添加文本、自定義坐標和圖例pythonview plaincopyprint? 1. dose=c(20,30,40,45,60)2. drugA=c(16,20,27,40,60)3. drugB=c(15,18,25,31,40)4. plot(dose,drugA,type=b,col=red,lty=2,pch=2,lwd=2,main=ClinicalTrailsforDrugA,sub=Thisishypotheticaldata,xlab=Dosage,ylab=DrugRespponse,xlim=c(0,60),ylim=c(0,70)某些高級繪圖函數(shù)已

17、經(jīng)包含了默認的標題和標簽?？梢酝ㄟ^plot（）語句貨單獨的par（）語句中添加ann=FALSE標題可以使用title（）函數(shù)為圖形添加標題和坐標軸標簽。坐標軸side：一個整數(shù)，表示圖形的那邊會畫坐標（1,2,3,4對應下、左、上、右）at: 一個數(shù)值型向量，表示需要繪制刻度線的位置labels：一個字符型向量，表示至于刻度線旁邊的文字表全(如果是NULL，直接使用at中的值)pos：坐標軸線位置的坐標lty：線條類型col：線條的刻度線顏色las：標簽是否平行于（=0）或垂直于（=2）坐標軸tck：刻度線的長度，以向?qū)τ诶L圖區(qū)域大小的分數(shù)表示（負數(shù)表示在圖形外側，整數(shù)表示在圖形內(nèi)側）Hmi

18、sc包中的minor.tick()函數(shù) 用來創(chuàng)建次要刻度線。tick.ratio表示次要刻度線相對于主刻度線的大小比例。當前主刻度線長度可以用par(tck)獲取。參考線函數(shù)abline()可以用來為圖形添加參考線。abline（h=yvalues,v=xvalues）example:abline(v=seq(1,10,2),lty=2,col=blue)圖例用legend(location,title,legend,.)添加圖例location：可以直接給定xy值；location（1）通過鼠標單擊給出圖例的位置；關鍵字:bottom、bottomleft、left、topleft、topr

19、ight、right、bottomright、center，同時使用參數(shù)inset=指定圖形想圖形內(nèi)側移動的大小（以繪圖大小的分數(shù)表示）title：圖例標題的字符串（選）legend：圖例標簽組成的字符型向量文本標注text（location，“”，pos.）mtext（“”，side，line=n.）location：可以直接給定xy值；location（1）通過鼠標單擊給出圖例的位置pose：整數(shù)，文本相對位置的方向參數(shù)。如果指定參數(shù)offset=,作為偏移量，以相對于單個字符寬度的比例表示side：整數(shù)，指定用來放置文本的邊。par（）增大字號plotmath（）數(shù)學標注pythonvi

20、ew plaincopyprint? 1. attach(mtcars)2. plot(wt,mpg,main=MileagevsCarWeight,xlab=Weight,ylab=Mileage,pch=18,col=blue)3. text(wt,mpg,s(mtcars),cex=0.6,pos=4,col=red)4. detach(mtcars) pythonview plaincopyprint? 1. opar=par(no.readonly=TRUE)2. par(cex=1.5)3. plot(1:7,1:7,type=n)4. text(3,3,Examp

21、leofdefaulttext)5. text(4,4,family=mono,Exampleofmono-spacedtext)6. text(5.5,family=serif,Exampleofseriftext)7. par(opar)圖形有問題圖形組合在R中使用函數(shù)par()或layout()可以容易地組合多幅圖形為一幅圖形。par()函數(shù)中使用圖形參數(shù)mfrow=c(nrows,ncols)來穿件按行填充的、行數(shù)為nrows、列數(shù)為ncols的圖形矩陣。另外，可以使用nfcols=c(nrows,ncols)按列填充矩陣。pythonview plaincopyprint? 1. a

22、ttach(mtcars)2. opar=par(no.readonly=TRUE)3. par(mfrow=c(3,1)4. hist(wt)5. hist(mpg)6. hist(disp)7. par(opar)8. detach(mtcars)pythonview plaincopyprint? 1. attach(mtcars)2. opar=par(no.readonly=TRUE)3. par(mfrow=c(2,2)4. plot(wt,mpg,main=Scatterplotofwtvs.mpg)5. plot(wt,disp,main=Scatterplotofwtvs.d

23、isp)6. hist(wt,main=Boxplotofwt)7. boxplot(wt,main=Boxplotofwt)8. par(opar)9. detach(mtcars)函數(shù)layout（）的調(diào)用形勢為layout(mat)，其中的mat是一個矩陣，它指定了所要組合的多個圖形所在位置。pythonview plaincopyprint? 1. attach(mtcars)2. layout(matrix(c(1,1,2,3),2,2,byrow=TRUE)3. hist(wt)4. hist(mpg)5. hist(disp)6. detach(mtcar)下面代碼，將一幅圖形放

24、在第一行，兩幅圖放在第二行，但第一行高度是第二行中圖形高度的三分之一，并且，右下角圖形寬度是左下角圖形寬度的四分之一。pythonview plaincopyprint? 1. attach(mtcars)2. layout(matrix(c(1,1,2,3),2,2,byrow=TRUE),widths=c(3,1),heights=c(1,2)3. hist(wt)4. hist(mpg)5. hist(disp)6. detach(mtcars)圖形布局的精細控制fig=完成這個任務基本圖形條形圖簡單的條形圖vcd包如果要繪制的類別類型是一個Factor或者是有序性Factor，就可以使

25、用plot()函數(shù)快速創(chuàng)建一幅垂直條形圖。這時候不用table()函數(shù)（這是關節(jié)炎研究，變量Improved記錄了對每位接受了安慰劑或藥物治療的病人的治療效果） pythonview plaincopyprint? library(vcd)1. counts=table(Arthritis$Improved)2. counts3. barplot(counts,main=SimpleBarPlot,xlab=Improvement,ylab=Frequency)4. barplot(counts,main=HorizontalBarPlot,xlab=Frequency,ylab=Improv

26、ement,horiz=TRUE)堆砌條形圖和分組條形圖如果height是一個矩陣而不是一個向量，則繪制結果將是一副堆砌條形圖或分組挑釁圖。besides=false(默認)-堆砌圖 or not 分組條形圖pythonview plaincopyprint? 1. counts=table(Arthritis$Improved,Arthritis$Treatment)2. counts3. 4. #PlaceboTreated5. #None29136. #Some777. #Marked7218. barplot(counts,main=GroupedBarPlot,xlab=Treatm

27、ent,ylab=Frequency,col=c(red,yellow,green),legend=rownames(counts)pythonview plaincopyprint? 1. barplot(counts,main=GroupedBarPlot,xlab=Treatment,ylab=Frequency,col=c(red,yellow,green),legend=rownames(counts),beside=TRUE)均值條形圖條形圖并不一定要基于計數(shù)數(shù)據(jù)或者頻率數(shù)據(jù)。（均值，中位數(shù)，標準差）pythonview plaincopyprint? 1. states=data

28、.frame(state.region,state.x77)2. means=aggregate(states$Illiteracy,by=list(state.region),FUN=mean)3. means4. #Group.1x5. #1Northeast1.0000006. #2South1.7375007. #3NorthCentral0.7000008. #4West1.0230779. means=meansorder(means$x),10. means11. #Group.1x12. #3NorthCentral0.70000013. #1Northeast1.000000

29、14. #4West1.02307715. #2South1.73750016. barplot(means$x,names.arg=means$Group.1)17. title(MeanIlliteracyRate)中級繪圖主要關注用于展示雙變量間關系（二元關系）和多變量間關系（多遠關系）的繪圖方法。散點圖散點圖可以用來描述兩個連續(xù)變量間的關系。首先，描述一個二元變量關系，然后探究各種通過添加而外信息來增強圖形表達功能的方法。最后，通過添加第三個連續(xù)型變量，我們將把二維圖形擴展到三位，包括三維散點圖和氣泡圖。pythonview plaincopyprint? 1. attach(mtca

30、rs)2. plot(wt,mpg,main=BasicScatterplotofMPGvsWeight,xlab=CarWeight(1bs/1000),ylab=MilesPerGallon,pch=19)3. abline(lm(mpgwt),col=red,lwd=2,lty=1)4. lines(lowess(wt,mpg),col=blue,lwd=2,lty=2)abline()函數(shù)用來添加最佳擬合的線性直線。lowess()函數(shù)用來添加一條平滑曲線。該平滑曲線擬合是一種基于局部加權多項式回歸的非參數(shù)方法。算法來源于Cleveland（1981）car包中的scatterplot

31、()函數(shù)增強了散點圖的需對功能，主要作用在添加擬合曲線，邊界箱線圖和之心橢圓，還可以按子集繪圖和交互式地識別點。pythonview plaincopyprint? 1. library(car)2. scatterplot(mpgwt|cyl,data=mtcars,lwd=2,main=ScatterPlotofMPGvs.Weightby#Cylinders,xlab=WeightofCar(lbs/1000),ylab=MilesPerGallon,legend.plot=TRUE,id.method=identify,labels=s(mtcars1.scatterp

32、lot()函數(shù)用來描繪有4個6個8個氣缸的汽車每加侖英里數(shù)對車重的圖形。2.表達式mpgwt|cyl表示按條件繪圖，按照cyl的水平分別繪制mpg和wt關系圖。3.默認條件下，各個子集通過顏色和圖形符號加以區(qū)分，并同時繪制線性擬合和平滑擬合曲線。平滑擬合默認需要5個單獨的數(shù)據(jù)點。4.idmethod選項的設點表明可以通過鼠標單擊方式來交互式地識別數(shù)據(jù)點。知道Stop。（在studio里面是ESC）5.legend.plot 表明在左上邊界添加土里。散點圖矩陣R中至少有四種創(chuàng)建散點圖矩陣的實用函數(shù)。pairs()函數(shù)可以創(chuàng)建基礎的散點圖矩陣。pythonview plaincopyprint?

33、1. pairs(mpg+disp+drat+wt,data=mtcars,main=BasicScatterPlotMatrix)通過調(diào)整參數(shù)，可以只顯示下三角或上三角的圖形。upper.panel=NULL 將眾生城下三角圖形。scatterplotMatrix(mpg+disp+drat+wt,data=mtcars,spread=FALSE,lty.smooth=2,main=Scatter Plot Matrix via car Pachage)這里ity.smooth=2 本想設定平滑擬合曲線為虛線，但是報錯lty.smooth 不是圖形參數(shù)，還沒有解決。但是如果lty=2，就把擬

34、合的直線設置為虛線。pythonview plaincopyprint? 1. library(car)2. scatterplotMatrix(mpg+disp+drat+wt|cyl,data=mtcars,spread=FALSE,diagonal=histogram,main=ScatterPlotMatrixviacarPackage)這里，我們想主對角線的和密度曲線改成了直方圖（各車汽缸數(shù)為條件）默認地，回歸直線擬合整個樣本，包好by.groups=TRUE。gclus包中的cpairs()函數(shù)提供了其變種。它可以重排矩陣中變量位置的選項，可以讓相關性更好的變量更靠近對角線。該函數(shù)

35、還能對各個單元格進行顏色編碼來展示變量間的相關性大小。cor(mtcarsc(mpg,wt,disp,drat) mpg wt disp dratmpg 1.0000000 -0.8676594 -0.8475514 0.6811719wt -0.8676594 1.0000000 0.8879799 -0.7124406disp -0.8475514 0.8879799 1.0000000 -0.7102139drat 0.6811719 -0.7124406 -0.7102139 1.0000000dmat.color() order.single() cpairs()函數(shù)都來自于gclu

36、s包。第一步，選出需要的變量，并計算他們的相關系數(shù)的絕對值。第二步，使用dmat.color()獲取繪圖顏色。給定一個對稱矩陣，dmat.color()將返回一個顏色矩陣。第三步，排序。通過order.single（）散點圖矩陣將根據(jù)新的變量順序(myorder)和顏色列表(mycolor)繪圖上色，gap使得矩陣各單元格間的間距稍微增大一些。pythonview plaincopyprint? 1. library(gclus)2. mydata=mtcarsc(1,3,5,6)3. mydata.corr=abs(cor(mydata)4. mycolors=dmat.color(myda

37、ta.corr)5. myorder=order.single(mydata.corr)6. cpairs(mydata,myorder,panel.colors=mycolors,gap=.5,main=VariablesOrderedandColoredbyCorrelation)pythonview plaincopyprint? 1. set.seed(1234)2. n=100003. c1=matrix(rnorm(n,mean=0,sd=.5),ncol=2)4. c2=matrix(rnorm(n,mean=3,sd=2),ncol=2)5. mydata=rbind(c1,c

38、2)6. mydata=as.data.frame(mydata)7. names(mydata)=c(x,y)8. with(mydata,plot(x,y,pch=19,main=ScatterPlotwith10000Observations)針對上述數(shù)據(jù)點的重疊導致識別xy間關系變得異常困難?？梢允褂梅庀?、顏色和透明度來知名途中人一點上重疊點的數(shù)目。smoothScatter()函數(shù)可利用核密度估計聲稱用顏色密度來表示店分布的散點圖。 pythonview plaincopyprint? with(mydata,smoothScatter(x,y,main=ScatterplotCol

39、oredbySmoothedDensities)1. KernSmooth2.23loaded2. CopyrightM.P.Wand1997-2009hexbin包中的hexbin() 函數(shù)將二元變量的封箱放到六邊形單元格中(圖形比名稱更直觀)pythonview plaincopyprint? 1. library(hexbin)2. with(mydata,3. bin=hexbin(x,y,xbins=50)4. plot(bin,main=HexagonalBinningwith10000Observations)5. )IDPmisc包中的iplot()函數(shù)也可以通過顏色來展示店的

40、密度（特定點上的數(shù)據(jù)數(shù)目）。with(mydata,iplot(x,y,main=Image Scatter Plot with Color Indicating Density)三維散點圖可以用scatterplot3d中的scatterplot3d()函數(shù)來繪制他們的關系。pythonview plaincopyprint? 1. library(scatterplot3d)2. attach(mtcars)3. scatterplot3d(wt,disp,mpg,pch=16,highlight.3d=TRUE,type=h,main=Basic3DScatterPlot)pythonv

41、iew plaincopyprint? 1. fit=lm(mpgwt+disp)2. s3d$plane3d(fit)氣泡圖先創(chuàng)建一個二維散點圖，然后點的大小代表第三個變量的值。sysbols(x,y,circle=radius)inches是比例因子，控制著圓圈大?。ň湍J最大圓圈為）（）函數(shù)是可選函數(shù)，添加各個汽車名稱。一般來說，統(tǒng)計熱源傾向于避免使用氣泡圖，相對于長度來說，人們對于體積或面積判斷更吃力。但是在商業(yè)應用中非常受歡迎。pythonview plaincopyprint? 1. attach(mtcars)2. r=sqrt(disp/pi)3. symbols(wt,mpg

42、,circle=r,inches=0.30,fg=white,bg=lightblue,main=BubblePlotwithpointsizeproportionaltodisplacement,ylab=MilesPerGallon,xlab=WeightofCar(lbs/1000)4. text(wt,mpg,rownames(mtcars),cex=0.6)5. detach(mtcars)折線圖相關圖相關系數(shù)矩陣是多元統(tǒng)計分析的一個基本方法。哪些被考察的變量與其他變量相關性很強，哪些不強？相關變量是否以某種特定的方式聚集在一起？隨著變量數(shù)的增加，這類問題將變得更難回答。 optio

43、ns(digits=2) cor(mtcars) mpg cyl disp hp drat wt qsec vs ammpg 1.00 -0.85 -0.85 -0.78 0.681 -0.87 0.419 0.66 0.600cyl -0.85 1.00 0.90 0.83 -0.700 0.78 -0.591 -0.81 -0.523disp -0.85 0.90 1.00 0.79 -0.710 0.89 -0.434 -0.71 -0.591hp -0.78 0.83 0.79 1.00 -0.449 0.66 -0.708 -0.72 -0.243drat 0.68 -0.70 -0.71 -0.45 1.000 -0.71 0.091 0.44 0.713wt -0.87 0.78 0.89 0.66 -0.712 1.00 -0.175