?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 = '投資者信心指數')?
)
作用)
