R語言-在一張圖上顯示多條線的實(shí)現(xiàn)
查詢百度之后,發(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ù)即可。
效果如下:

補(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)文章
R語言刷題檢驗(yàn)數(shù)據(jù)缺失類型過程詳解
這篇文章主要為大家介紹了R語言刷題中檢驗(yàn)數(shù)據(jù)缺失類型的過程示例分析詳解,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步2021-11-11
R語言-如何將科學(xué)計(jì)數(shù)法表示的數(shù)字轉(zhuǎn)化為文本
這篇文章主要介紹了R語言-如何將科學(xué)計(jì)數(shù)法表示的數(shù)字轉(zhuǎn)化為文本,具有很好的參考價(jià)值,希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04
R語言數(shù)據(jù)可視化繪制Circular?bar?plot實(shí)現(xiàn)環(huán)形柱狀圖
這篇文章主要為大家介紹了R語言繪制Circular?bar?plot實(shí)現(xiàn)環(huán)形柱狀圖的示例詳解,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步2022-02-02
基于R語言時(shí)間序列的平穩(wěn)時(shí)間序列模型預(yù)測(cè)圖文詳解
時(shí)間序列是將統(tǒng)一統(tǒng)計(jì)值按照時(shí)間發(fā)生的先后順序來進(jìn)行排列,時(shí)間序列分析的主要目的是根據(jù)已有數(shù)據(jù)對(duì)未來進(jìn)行預(yù)測(cè),下面這篇文章主要給大家介紹了基于R語言時(shí)間序列的平穩(wěn)時(shí)間序列模型預(yù)測(cè)的相關(guān)資料,需要的朋友可以參考下2022-12-12

