亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

R語(yǔ)言-在一張圖上顯示多條線的實(shí)現(xiàn)

 更新時(shí)間:2021年04月19日 16:33:37   作者:張琪Andrea-E  
這篇文章主要介紹了R語(yǔ)言-在一張圖上顯示多條線的實(shí)現(xiàn),具有很好的參考價(jià)值,希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

查詢百度之后,發(fā)現(xiàn)在R上一次顯示多張圖的函數(shù)很多,比如layout()或者分屏函數(shù),但是這些都不是我想要的結(jié)果。

之后,發(fā)現(xiàn)了line()函數(shù)可以保留原來圖片繼續(xù)作圖,在括號(hào)中填入所需畫圖的部分即可(我是將一個(gè)矩陣作圖)。

先運(yùn)行plot()函數(shù),再注釋掉plot()函數(shù)運(yùn)行l(wèi)ine()函數(shù)即可。

效果如下:

20

補(bǔ)充:R語(yǔ)言:在同一張圖作不同曲線

R語(yǔ)言將兩條曲線作在同一張圖的方法是

library(ggplot2)
year<-c(1993,1998,2003,2008)
Res<-c(0.0227,0.0198,0.0155,0.0147)
COPD<-c(0.0138,0.0125,0.0075,0.0069)

#R語(yǔ)言基礎(chǔ)包作圖
plot(year,Res,col=2,type="b",ylim=c(0.005,0.035),xlab = "Year",ylab ="Morbidity")
lines(year,COPD,col=3,type="b")
legend("topright",pch=c(15,15),legend=c("Respiratory","COPD"),col=c(2,3),bty="n")

#ggplot包作圖
dd <- data.frame(year,Res,COPD)
ggplot()+geom_line(data = dd,aes(x = year,y = Res,colour = "Respiratory"),size=1)+
  geom_point(data = dd,aes(x = year,y = Res,colour = "Respiratory"),size=3)+
  ylim(0.005,0.025)+
  geom_line(data = dd,aes(x = year,y = COPD,colour ="COPD"),size=1) + 
  geom_point(data = dd,aes(x = year,y = COPD,colour = "COPD"),size=3)+
  scale_colour_manual("",values = c("Respiratory" = "red","COPD" = "green"))+
  xlab("Year")+ylab("Morbidity")+
  theme(text=element_text(size=13, family="Comic Sans MS"))

以上為個(gè)人經(jīng)驗(yàn),希望能給大家一個(gè)參考,也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方,望不吝賜教。

相關(guān)文章

最新評(píng)論