r語(yǔ)言初步-統(tǒng)計(jì)繪圖與編程-資料下載頁(yè)
2025-01-12 08:20本頁(yè)面
【正文】 xplot() 箱線圖 stripchart() 點(diǎn)圖 barplot() 柱狀圖 dotplot() 點(diǎn)圖 piechart() 餅圖 matplot() 數(shù)學(xué)圖形 99 圖 23 散點(diǎn)圖與箱線圖 100 低級(jí)繪圖函數(shù) lines() 添加線 curve() 添加曲線 abline() 添加給定斜率的線 points() 添加點(diǎn) segments() 折線 arrows() 箭頭 axis() 坐標(biāo)軸 box() 外框 title() 標(biāo)題 text() 文字 mtext() 圖邊文字 101 繪圖參數(shù) 參數(shù)用在函數(shù)內(nèi)部，在沒(méi)有設(shè)定值時(shí)使用默認(rèn)值。 font = 字體 ,lty = 線類型 ,lwd = 線寬度 ,pch = 點(diǎn)的類型 , xlab = 橫坐標(biāo) ,ylab = 縱坐標(biāo) , xlim = 橫坐標(biāo)范圍 , ylim = 縱坐標(biāo)范圍 , 也可以對(duì)整個(gè)要繪制圖形的各種參數(shù)進(jìn)行設(shè)定 參見(jiàn) par() 102 舉例：繪圖 生成 0到 2之間的 50個(gè)隨機(jī)數(shù)，分別命名為 x,y x runif(50,0,2) y runif(50,0,2) 繪圖：將主標(biāo)題命名為“散點(diǎn)圖”， 橫軸命名為”橫坐標(biāo)”， 縱軸命名為“縱坐標(biāo)” plot(x, y, main=散點(diǎn)圖 , xlab=橫坐標(biāo) , ylab=縱坐標(biāo) ) text(,text at (,)) abline(h=.6,v=.6) 103 圖 24 繪圖舉例 104 例：分步繪圖 ，不繪制任何對(duì)象 plot(x, y, type=n, xlab=, ylab=, axes=F) points(x,y) axis(1)。 axis(at=seq(,), side=2) box() 、副標(biāo)題、橫軸說(shuō)明、縱軸說(shuō)明 title(main=Main title, sub=subtitle, xlab=xlabel, ylab=ylabel) 105 圖 25 分步繪圖 1 2 3 4 5 6 106 一頁(yè)多圖 圖 26 一頁(yè)多圖 par() par(mfrow=c(2,2) ... 107 在原有圖形上添加元素 舉例： x rnorm(100) 生成隨機(jī)數(shù) hist(x,freq=F) 繪制直方圖 curve(dnorm(x),add=T) 添加曲線 h hist(x, plot=F) 繪制直方圖 ylim range(0, h$density, dnorm(0)) 設(shè)定縱軸的取值范圍 hist(x, freq=F, ylim=ylim) 繪制直方圖 curve(dnorm(x),add=T,col=red) 添加曲線 108 圖 27 在原有直方圖上添加曲線 109 練習(xí)八：繪圖練習(xí) 練習(xí) 1 將 R控制臺(tái)中，查看 R繪制的圖形。 練習(xí) 2 對(duì)例進(jìn)行回歸分析，并繪制散點(diǎn)圖，并為散點(diǎn)圖添加回歸直線。 plot(impurity~rate) reglm(impurity~rate) abline(reg,col=red) summary(reg) 110 五 編寫函數(shù) 111 編程基礎(chǔ) R可以靈活的編寫程序，用戶自己編寫的程序可以直接調(diào)用。編程時(shí)無(wú)需聲明變量的類型，這與 C,C++等語(yǔ)言不同。 基本格式 函數(shù)名 function(數(shù)據(jù) ,參數(shù) 1= 默認(rèn)值 ,…) { 異常處理 。 表達(dá)式 (循環(huán) /判別 )。 return(返回值 )。 } 函數(shù)內(nèi)部也可用 添加注釋 112 函數(shù)實(shí)例 ? 圖 28 函數(shù)實(shí)例 data2mat() 113 程序流程控制 if if(條件 ) 表達(dá)式 if(條件 ) 表達(dá)式 1 else 表達(dá)式 2 舉例 p = { if(p=) print(p = !) else print(p !) } 114 循環(huán) for, while for(變量 in 向量 ) 表達(dá)式 用法： for(i in 1:10) print(i) while(條件 ) 表達(dá)式 用法 : i 1 while(i10){ print(i)。 i i + 1} 115 返回值 ? 返回值表示函數(shù)輸出的結(jié)果。 ? 返回值必須是一個(gè)對(duì)象。 ? R默認(rèn)將最后一行作為返回值。 ? 如果函數(shù)的結(jié)果需要有多個(gè)返回值，可以創(chuàng)建一個(gè) list()，并返回該對(duì)象。 ? 也可以用 return()函數(shù)，設(shè)定返回值。 ? 但是一個(gè)函數(shù)的返回的對(duì)象只有一個(gè)。 116 異常處理 ? 如數(shù)據(jù)輸入不能滿足要求，或者參數(shù)設(shè)定錯(cuò)誤等等，可能造成函數(shù)給出錯(cuò)誤的結(jié)果，則需要對(duì)函數(shù)的運(yùn)行過(guò)程發(fā)出警告或終止，以提高程序的穩(wěn)健性。 ? 警告的寫法 if(any((inputdata))) inputdata (inputdata) cat(“NAs are found in the input data, and has been removed.\n) ? 終止的寫法 if(any((xx))) stop(NAs are not allowed!\n) 117 函數(shù)舉例 問(wèn)題 :輸入直角三角形的兩個(gè)邊長(zhǎng)，求其斜邊長(zhǎng)。 定義函數(shù)： rcal function(x,y){ z x^2 + y^2 result sqrt(z) return(result) } 調(diào)用函數(shù)： rcal(3,4) 118 練習(xí)九 編寫函數(shù) 編寫一個(gè)函數(shù)，給出兩個(gè)數(shù)之后，直接給出這兩個(gè)數(shù)的平方和。 sqtestfunction(x, y){ z1=x^2。 z2=y^2。 z3=z1+z2。 return(z3)。 } 119 六 數(shù)據(jù)保存 120 () () () sink() unlink() 若有 LaTeX基礎(chǔ)，可以用 Sweave() 函數(shù) 該函數(shù)能將腳本、程序說(shuō)明和運(yùn)算結(jié)果直接保存成 .tex文件，用LaTeX編譯成 pdf文件。 數(shù)據(jù)保存 121 內(nèi)容回顧 1. R是開(kāi)源的統(tǒng)計(jì)繪圖軟件，也是一種腳本語(yǔ)言，有大量的程序包可以利用。 2. R中的向量、列表、數(shù)組、函數(shù)等都是對(duì)象，可以方便的查詢和引用，并進(jìn)行條件篩選。 3. R具有精確控制的繪圖功能，生成的圖可以另存為多種格式。 4. R編寫函數(shù)無(wú)需聲明變量的類型，能利用循環(huán)、條件語(yǔ)句，控制程序的流程。 122 推薦的教材 ? Crawley Statistics an introduction using R ? Peter Dalgaard Introductory statistics with R ? E. Paradis R for Beginners ? Verzani SimpleR. ? D G Rossiter Introduction to the R Project for Statistical Computing for use at ITC ? J. Maindonald Using R for data analysis and graphics introduction code and mentary using R ? Venables, W. N. amp。 Ripley, B. D. Modern Applied Statistics with S 123 R網(wǎng)絡(luò)資源 R主頁(yè) : R資源列表 NCEAS R Graphical Manual 統(tǒng)計(jì)之都 : QuikR 丁國(guó)徽的 R文檔 : R語(yǔ)言中文論壇 124 謝謝 敬請(qǐng)指正 !
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1