日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

【R】语言第五课----画图

發布時間:2023/12/20 编程问答 35 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【R】语言第五课----画图 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
?plot#高級繪圖函數 可以完整地繪制出一張圖 ?mtcars plot(mtcars$wt) plot(mtcars[,1:2]) plot(mtcars) plot(mtcars$wt,mtcars$disp) plot(mtcars$wt,mtcars$disp,type='p') plot(mtcars$wt,mtcars$disp,type='l') plot(mtcars$wt,mtcars$disp,type='b') plot(mtcars$wt,mtcars$disp,type='o')mtcars<-mtcars[order(mtcars$wt),] plot(mtcars$wt,mtcars$disp,type='o') plot(mtcars$wt,mtcars$disp,type='h')par(no.readonly = T) opar<-par(no.readonly = T) par(mfrow=c(3,3)) for (i in c('p','l','b','c','o','h','s','S','n')) {plot(mtcars$wt,mtcars$disp,type=i,main=paste('type',i)) } #s 和 S 都是階梯線 n是空圖par(opar) ?pch#pch plot(mtcars$wt,mtcars$disp,pch=2) plot(mtcars$wt,mtcars$disp,pch=2,cex=3)#折線圖 lty lwd plot(mtcars$wt,mtcars$disp,type='l') plot(mtcars$wt,mtcars$disp,type='l',lty=3) plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3)#col plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col='blue') plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col=8)#col 從1到8,超過1-8還是重復1-8的顏色 plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col=4) plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col=12) plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col='#0000FF') plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col=rgb(0,0,1)) plot(mtcars$wt,mtcars$disp,type='l',lty=3,lwd=3,col=hsv(h=240/360,s=1,v=1))#飽和度#xlim ylim plot(mtcars$wt,mtcars$disp,xlim = c(2,4),ylim = c(100,400))#文本 plot(mtcars$wt,mtcars$disp,xlim = c(2,4),ylim = c(100,400),main = 'Motor Trend Car Road Tests',sub = '2019-6',xlab='wt',ylab = 'dist') plot(mtcars$wt,mtcars$disp,xlim = c(2,4),ylim = c(100,400),main = 'Motor Trend Car Road Tests',sub = '2019-6',ann = F)#ann=F表示去掉標簽標題副標題 title(main = 'Motor Trend Car ...',sub = '2019-6',xlab='wt',ylab = 'dist')#低級繪圖函數 再加上標簽標題副標題#homework Q1 plot(mtcars$mpg,mtcars$qsec)#homework Q2 opar<-par(no.readonly = T) par(mfrow=c(4,4)) for (i in c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)) {plot(mtcars$mpg,mtcars$qsec,pch=i,main=paste('pch:',i)) } par(opar)#homework Q3 library(readxl) stock <- read_excel("D:/ChromeCoreDownloads/作業5/stock.xlsx") View(stock)#homework Q4 plot(stock$date,stock$investor_confidence_index,type = 'l',main = '投資者信心指數時序圖',xlab = '時間',ylab = '投資者信心指數')

?


總結

以上是生活随笔為你收集整理的【R】语言第五课----画图的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。