如何将多个图组合成R中的单个图？

我写了这个代码：如何将多个图组合成R中的单个图？

duom=read.delim("clipboard",header=TRUE) 
dim(duom) 
duom 
Duom=ts(duom,start=2000,freq=4) 


dLT=diff(Duom[,3]) 
dLT 
plot(dLT) 
abline(0,0) 
dLT 
LT<-decompose(dLT)$trend 
plot(decompose(dLT)$trend) 
abline(0,0) 


dLV=diff(Duom[,2]) 
dLV 
plot(dLV) 
abline(0,0) 
dLV 
LV<-decompose(dLV)$trend 
plot(decompose(dLV)$trend) 
abline(0,0) 


dEE=diff(Duom[,1]) 
dEE 
plot(dEE) 
abline(0,0) 
dEE 
EE<-decompose(dEE)$trend 
plot(decompose(dEE)$trend) 
abline(0,0)

，所以我得到LT，LV和EE的三个不同的图形。我想将它们组合成一个图像（曲线的颜色应该不同），我该怎么做？

来源

2014-10-16 dovile_

我不能重现你的例子，但是这里有一个例子，说明如何在同一个图上绘制不同颜色的线条'x < - replicate（3，rnorm（5））; plot（x [，1]，type =“l”）; lapply（2：3，function（y）lines（x [，y]，col = y））'请提供几行数据，以便我们可以展示如何使用代码执行此操作。 – 2014-10-16 17:25:00

对于第一个绘图使用'plot（...）'，然后对其余数据使用行（...，col = someColor）。对于时间序列，您可以通过'time（serie）'获得'x'值。 – Fernando 2014-10-16 17:31:20

一些模拟数据：

data = ts(replicate(3, cumsum(rnorm(1000))), freq = 4, start = 2000) 
dec = decompose(data) 
ylim = range(dec$trend, na.rm = TRUE) 

plot(dec$trend[, 1], ylim = ylim) 
for(i in 2:ncol(dec$trend)) 
    lines(dec$trend[, i], col = i) 

abline(0, 0, col = 'darkgray')

希望它能帮助！

来源

2014-10-16 17:44:51 Fernando

谢谢，它帮了我很多！ – 2014-10-18 09:31:48

不客气，你可以接受答案来关闭它:) – Fernando 2014-10-18 15:25:24

如何将多个图组合成R中的单个图？

回答

相关问题