在本節中,主要目的是如何使用R語言做出簡單的圖形
案例1:做出wt和mpg之間的關系
1 attach(mtcars) 2 plot(wt,mpg) 3 abline(lm(mpg~wt)) 4 title('Regression of MPG on Weight') 5 detach(mtcars)
1. 綁定了數據集
2. 打開圖形窗口並生成一副散點圖
3. 添加了一條擬合曲線
4. 給圖形增加標題
5. 解除綁定
還可以把生成的圖片放到pdf中
1 pdf('mygraph.pdf') 2 attach(mtcars) 3 plot(wt,mpg) 4 abline(lm(mpg~wt)) 5 title('Regression of MPG on Weight') 6 detach(mtcars) 7 dev.off()
案例2 分析病人對兩種葯物的響應情況
1.准備數據
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 #描述葯物A的劑量和病人的響應 5 plot(dose,drugA,type='b')
2.可以使用圖形參數來修改上述圖片的樣式
1 opar <- par(no.readonly = T) 2 par(lty=2,pch=17) 3 plot(dose,drugA,type='b') 4 par(opar)
1. 復制了當前圖形的參數設置
2. 把線條的類型改成虛線,默認的間斷點改成三角形
3.繪制圖形並還原了原始設
1 plot(dose,drugA,type='b',lty=3,lwd=3,pch=15,cex=2)
1. 線性位點線,寬度是默認的3倍,分割點為正方形,大小是默認大小的2倍
3.使用圖形參數來控制外觀
1 par(pin=c(2,3)) 2 par(lwd=2,cex=1.5) 3 par(cex.axis=.75,font.axis=3) 4 plot(dose,drugA,type='b',pch=19,lty=2,col='red') 5 plot(dose,drugB,type='b',pch=23,lty=6,col='blue',bg='green') 6 par(opar)
1. 修改圖形的默認參數,(2英寸寬,3英寸高)
2. 線寬為默認的2倍,間隔符為默認的1.5倍
3. 坐標軸刻度的文字設置為斜體,為默認大小的0.75倍
4. 使用紅色的虛線和實心圓點創建第一幅圖形
5. 使用藍色虛線,藍色邊框和綠色實心菱形創建第二幅圖形
6. 還原初始的圖形設置
4.添加文本坐標和圖例
1 plot(dose,drugA,type='b',col='red',lty=2,pch=2,lwd=2, 2 main = 'Clinical Trials for Drug A', 3 sub = 'This is hypothetical data', 4 xlab = 'Dosage',ylab = 'Drug Response', 5 xlim = c(0,60),ylim = c(0,70))
2. 插入主標題
3. 插入副標題
4. X軸說明
5. Y軸說明
6. 坐標軸范
1 plot(dose,drugA,type='b',col='red',lty=2,pch=2,lwd=2, 2 main = 'Clinical Trials for Drug A', 3 sub = 'This is hypothetical data', 4 xlab = 'Dosage',ylab = 'Drug Response', 5 xlim = c(0,60),ylim = c(0,70)) 6 lines(dose,drugB,type='b',pch=17,lty=2,col='blue') 7 abline(h=c(30),lwd=1.5,lty=2,col='grey') 8 library(Hmisc) 9 minor.tick(nx=3,ny=3,tick.ratio=0.5) 10 legend('topleft',inset = .05,title = 'drug type',c('A','B'),lty = c(1,2),pch = c(15,17),col=c('red','blue'))
1~7. 作圖
8~9. 添加刻度線
10. 添加圖例
5.文本標注
1 attach(mtcars) 2 plot(wt,mpg,main = 'Mileage vs. Car Weight',xlab = 'Weight',ylab = 'Mileage',pch=18,col='blue') 3 text(wt,mpg,row.names(mtcars),cex = 0.6,pos=4,col='red') 4 detach(mtcars)
3. text函數用於標注圖形中的點
6.圖形組合
1 attach(mtcars) 2 opar <- par(no.readonly = T) 3 par(mfrow=c(2,2)) 4 plot(wt,mpg,main = 'Scatterplot of wt vs. mpg') 5 plot(wt,disp,main = 'Scatterplot of wt vs. disp') 6 hist(wt,main = 'Histogram of wt') 7 boxplot(wt ,main='boxplot of wt') 8 par(opar) 9 detach(mtcars)
3. 指定圖形的分布
4. wt和mpg的散點圖
5. wt和disp的散點圖
6. wt的直方圖
7. wt的箱
1 attach(mtcars) 2 layout(matrix(c(1,1,2,3),2,2,byrow = T)) 3 hist(wt) 4 hist(mpg) 5 hist(disp) 6 detach(mtcars)
2. 使用layout函數改變圖形的布
7.圖形布局的精細控制
1 opar <- par(no.readonly = T) 2 par(fig=c(0,0.8,0,0.8)) 3 plot(mtcars$wt,mtcars$mpg,xlab = 'Miles Per Gallon',ylab = 'Car Weight') 4 par(fig=c(0,0.8,0.55,1),new=T) 5 boxplot(mtcars$wt,horizontal = T,axes=F) 6 par(fig=c(0.65,1,0,0.8),new=T) 7 boxplot(mtcars$mpg,axes=F) 8 mtext('Enhanced Scatterplot',side = 3,outer = T,line = -3) 9 par(opar)
2~3. 設置散點圖
4~5. 在上方添加wt的箱線圖
6~7. 在右方添加mpg的箱線圖
8. 添加標題
小結:
本節的主要目的是修改R中的默認圖形,修改一副圖形的坐標軸,字體,間隔符,線條,顏色以及如何添加標題,副標題,標簽,文本參考線
如何制定圖形的邊界和大小,以及如何將多幅圖形整合為一幅