最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

 更新時(shí)間:2021年04月19日 16:33:37   作者:張琪Andrea-E  
這篇文章主要介紹了R語言-在一張圖上顯示多條線的實(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語言:在同一張圖作不同曲線

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

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語言基礎(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)論

鹤岗市| 南通市| 星座| 霍邱县| 宁安市| 平果县| 绥滨县| 永胜县| 当涂县| 贵德县| 万年县| 鹤壁市| 壤塘县| 西城区| 雅江县| 丰原市| 阳曲县| 沙湾县| 武清区| 新巴尔虎左旗| 乌兰县| 清流县| 浮山县| 桐庐县| 泽普县| 湟源县| 合山市| 沂南县| 当涂县| 南郑县| 汕头市| 仪征市| 许昌市| 涟源市| 镇坪县| 陈巴尔虎旗| 福安市| 万州区| 台东县| 黎川县| 芦山县|