好久沒寫文章了恭金，最近有點忙，今天來更新一波贺氓！
繪制矩陣散點圖
1.將 R 的內(nèi)置數(shù)據(jù)集 longley 作為本次作業(yè)的數(shù)據(jù)集蔚叨，將 longley 數(shù)據(jù)集內(nèi)變量名為 Year
的列給刪除掉。
head(longley)
mylongley = longley[-6]#去除Year特征
head(mylongley)
image.png
直接繪制帶有回歸線的散點圖矩陣
mypanefun = function(x,y){
points(x,y)#繪制出散點
#繪制一個回歸線辙培，y對x回歸線
# y = kx
# 線性回歸算法
abline(lm(y~x),col='purple')#繪制直線
}
pairs(mylongley,panel = mypanefun)#panel接收一個函數(shù)
#總結(jié)一下pairs的參數(shù)
#lower.panel=NULL代表去除下半部分的圖形蔑水，因為其實上半部分和下半部分是一樣的
#upper.panel=NULL代表去除上半部分的圖形
#還有col,pch,cex與之前博文里面提到的類似
繪圖結(jié)果
image.png
繪制相關(guān)圖
#由相關(guān)系數(shù)可以得出什么？
#正數(shù)：正相關(guān)
#負數(shù)：負相關(guān)
#0 ：不相關(guān)
#正數(shù)數(shù)值越大相關(guān)性越強
#默認的方式：異常值影響比較大,可選用如下兩種進行優(yōu)化
#默認的方式：異常值影響比較大,可選用如下兩種進行優(yōu)化
mycor = cor(mylongley,method = "spearman") #斯皮爾曼
cor(mdata,method = "kendall") #肯德爾
install.packages("ggcorrplot")
library(ggcorrplot)#載入第三方包
ggcorrplot(mycor)#這樣顯示不美觀扬蕊，下面進行優(yōu)化
ggcorrplot(mycor,lab = T,hc.order = T,title='李浩琦',legend.title='MyCor'
,outline.color = "green")
# lab = T 圖像可以顯示數(shù)值搀别，看起來更直觀
#常用其它參數(shù)總結(jié)：
#method 允許的值為“square”(默認值)、“circle”尾抑。
#type = 'upper'只展示圖像上面半部分的數(shù)據(jù)（也就是右下角不顯示）lower類似
#hc.order = T 表示把相關(guān)性相同（顏色相同）聚集在一起來顯示
#title圖形的標題
#legend.title='MyCor'指定右邊圖例名稱
#show.legend,如果為真歇父，則顯示圖例,默認顯示右邊
#outline.color方形或圓形的輪廓顏色蒂培。默認值為“gray”
繪圖結(jié)果
image.png
繪制函數(shù)圖像
curve(expr=x^3+sin(x)#expr要繪制的函數(shù)
,from = 1#從1到100
,to = 100
,n = 100#使用100個點
,main=expression(x^3+sin(x))#main標題
,ylab = 'y'#xlab x標簽
,xlab = "x"#ylab y標簽
)
image.png
