R語(yǔ)言 實(shí)現(xiàn)將兩張圖放在同一張畫布
更新時(shí)間：2021年04月06日 09:31:58 作者：Jack千斤頂
這篇文章主要介紹了R語(yǔ)言 實(shí)現(xiàn)將兩張圖放在同一張畫布的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧
我就廢話不多說(shuō)了，大家還是直接看代碼吧~
ts1<-ts(test_data$tot_num,frequency = 365,start=c(2017,11,21)) plot(ts1,col='blue',lty='dotted',ylim=c(50,550)) par(new=TRUE) ts2<-ts(test_data$pre_result,frequency = 365,start=c(2017,11,21)) plot(ts2,col='red',ylim=c(50,550))
好用，需要注意控制相同的xlim和ylim
補(bǔ)充：用R語(yǔ)言在同一副圖里面畫兩個(gè)折線圖的注意事項(xiàng)
如下所示：
setwd("C:/Users/11565/Desktop/合并二")
shuju <- read.csv("數(shù)據(jù).csv",header = T)
library(psych)
head(shuju)
attach(shuju)
head(mtcars)
aggregate(shuju,by= list(state),FUN = mean,na.rm = T)
tapply(shuju[,3],shuju$year,mean)#每次只能求一列
aggregate(shuju[,3:4],list(shuju[,2]),mean)#每次可以求多列
mean_1 <- aggregate(shuju[,3:6],list(shuju[,2]),mean)
detach(shuju)
attach(mean_1)
head(mean_1)
mean_1$pcap <- mean_1$pcap/10
mean_1$Group.1<- as.numeric(mean_1$Group.1)
plot(Group.1,pcap,lty= 3,pch = 21,ylim = c(1000,3000))#畫不出兩幅圖的原因很可能是兩個(gè)變量數(shù)量級(jí)存在問(wèn)題
lines(Group.1,hwy/10,lty = 2,pch = 22)#畫折現(xiàn)圖要先看一下x對(duì)應(yīng)的y和y的數(shù)量級(jí)如何
str(mean_1)
補(bǔ)充：在R中把多條曲線放置在一張圖中
如下：
library(xlsx)
myield<-read.xlsx("myield.xlsx",header=T,sheetIndex=1)
head(myield)
time X3m X6m X1y X2y X3y X4y
1 2002.010.019889 0.020353 0.021264 0.023014 0.024670 0.026232
2 2002.020.020781 0.021131 0.021819 0.023155 0.024437 0.025663
3 2002.030.018449 0.018829 0.019574 0.021015 0.022389 0.023695
4 2002.040.019096 0.019325 0.019780 0.020668 0.021529 0.022362
5 2002.050.018228 0.018425 0.018815 0.019578 0.020319 0.021037
6 2002.060.017224 0.017479 0.017980 0.018952 0.019882 0.020771
tm<-myield[,2]
sm<-myield[,3]
oy<-myield[,4]
ty<-myield[,5]
time<-myield[,1]
thy<-myield[,6]
fy<-myield[,7]
plot(tm~time,type="l",lty=1)
lines(sm~time,col="red",lty=2)
lines(oy~time,col="blue",lty=3)
lines(ty~time,col="yellow",lty=4)
lines(thy~time,col="green",lty=5)
lines(fy~time,col="grey",lty=6)
title("YIELD(m)",lwd=3)
legend("topleft",cex=.6,c("tm","sm","oy","ty","thy","fy"),col=c("black","red","blue","yellow","green","grey"),lty=1:6)
也可以應(yīng)用matplot函數(shù)，但使用之前注意把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為數(shù)據(jù)框或者向量，根據(jù)本例，即把tm,sm,oy等數(shù)值型數(shù)據(jù)轉(zhuǎn)化為數(shù)據(jù)框，
z<-data.frame(cbind(tm,sm,oy,ty,thy,fy))
然后
matplot(time,z,col=1:6,type="l",lwd=2,xlab="",ylab="",lty=1:5)
以上為個(gè)人經(jīng)驗(yàn)，希望能給大家一個(gè)參考，也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方，望不吝賜教。
相關(guān)文章
這篇文章主要介紹了R語(yǔ)言 數(shù)據(jù)集行列互換的技巧分享，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-03-03
R語(yǔ)言編程學(xué)習(xí)從Github上安裝包解決網(wǎng)絡(luò)問(wèn)題
這篇文章主要為大家介紹了R語(yǔ)言編程從Github上安裝包的過(guò)程詳解，這樣可以解決很多網(wǎng)絡(luò)問(wèn)題，有需要的朋友可以借鑒參考下，希望能夠有所幫助2021-11-11
R語(yǔ)言給圖形填充顏色的操作(polygon函數(shù))
這篇文章主要介紹了R語(yǔ)言給圖形填充顏色的操作(polygon函數(shù))，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-03-03
R語(yǔ)言修改下載安裝包install.package的默認(rèn)存儲(chǔ)路徑的操作方法
這篇文章主要介紹了R語(yǔ)言修改下載安裝包install.package的默認(rèn)存儲(chǔ)路徑的操作方法,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-03-03
這篇文章主要介紹了R語(yǔ)言操作X軸日期實(shí)例講解，圖文描述的很清楚，有感興趣的同學(xué)可以研究下2021-03-03
輕松學(xué)會(huì)R語(yǔ)言識(shí)別Excel日期
想知道如何用R語(yǔ)言識(shí)別Excel中的日期嗎？別擔(dān)心,我們有你需要的全部信息！本指南將向你展示如何使用R語(yǔ)言輕松識(shí)別Excel表格中的日期數(shù)據(jù),讓你在數(shù)據(jù)分析中游刃有余,快來(lái)掌握這一技巧,讓數(shù)據(jù)處理更加高效！2023-12-12
這篇文章主要介紹了R語(yǔ)言判斷語(yǔ)句的使用詳解，幫助大家更好的理解和學(xué)習(xí)使用R語(yǔ)言，感興趣的朋友可以了解下2021-03-03
在本篇內(nèi)容里小編給大家?guī)?lái)一篇關(guān)于R語(yǔ)言函數(shù)詳解及實(shí)例用法，有需要的朋友們可以學(xué)習(xí)參考下。2021-03-03
R語(yǔ)言數(shù)據(jù)可視化包ggplot2畫圖之散點(diǎn)圖的基本畫法
散點(diǎn)圖主要用于描述兩個(gè)連續(xù)變量之間的關(guān)系,通過(guò)散點(diǎn)圖發(fā)現(xiàn)變量之間的相關(guān)性強(qiáng)度、是否存在線性關(guān)系等,下面這篇文章主要給大家介紹了關(guān)于R語(yǔ)言數(shù)據(jù)可視化包ggplot2畫圖之散點(diǎn)圖的基本畫法,需要的朋友可以參考下2022-11-11
r語(yǔ)言-如何將數(shù)據(jù)標(biāo)準(zhǔn)化和中心化
這篇文章主要介紹了r語(yǔ)言將數(shù)據(jù)標(biāo)準(zhǔn)化和中心化的實(shí)現(xiàn)，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-04-04