Построение нескольких переменных в одном масштабе в R

Question

Я попытался снова и снова решить эту проблему, но я не могу ее сбить. Я оценил модель Бета-Т-EGARCH и модель GARCH-t в R, и теперь мне нужно построить результаты по одному и тому же сюжету. Конечный результат ужасен, так как переменные не имеют одинакового масштаба по оси y. Я новичок в R, поэтому, пожалуйста, не обвиняйте меня :). Вот код:

library(quantmod) 
library(betategarch) 
library(fGarch) 
library(ggplot2) 

getSymbols("GOOG",src="yahoo") 
google_ret <- abs(periodReturn(GOOG, period="daily", subset=NULL, type="log"))-mean(abs(periodReturn(GOOG, period="daily", subset=NULL, type="log"))) 

googcomp <- tegarch(google_ret, asym=FALSE, skew=FALSE) 
goog1stdev <- fitted(googcomp) 


#now we try to fit a standard GARCH-t model 
googgarch <- garchFit(data=google_ret, cond.dist="sstd") 
googgarch2 <- garchFit(data=google_ret, cond.dist="sstd", include.mean = FALSE, include.delta = FALSE, include.skew = FALSE, include.shape = FALSE, leverage = FALSE, trace = TRUE) 
volatility <- volatility(googgarch2, type = "sigma") 


plot(google_ret) 
par(new=TRUE) 
plot(googgarch2, which=2) 
par(new=TRUE) 
plot(goog1stdev, col="red") 

Окончательный результат сюжет полностью из шкалы на оси у, с переменными, которые имеют более низкие значения, расположенные над вышестоящим. Большое спасибо всем, кто хочет мне помочь!

Answer 1

Рекомендуемый подход для построения их как различные участки сложены друг на друга:

layout(matrix(1:3,3)) 
plot(google_ret) 
plot(googgarch2, which=2) 
plot(goog1stdev, col="red") 

Вы можете избавиться от пробелов с вызовами par("mar") для настройки размеров полей:

opar=par(mar=par("mar") -c(1,0,3,0)) # opar will then let your restore previous values 
..... plotting efforts 
par(opar) 

Я не знаю, ваш домен очень много, но если вы CNA использование сдвинуты у-ординаты, то это производит несколько очищенных до версии с наложенными участками:

png() 
plot(google_ret, ylim=c(0,1), ylab="ylab="Google Returns(black); GGarch x10 +0.5 (blue); STD + 0.3(red)") 
par(new=TRUE) 
plot(googgarch2@data +.5, type="l", col="blue",axes=FALSE, ylab="", main="",ylim=c(0, 1)) ;abline(h=.5, col="blue") 
par(new=TRUE); 
plot(10*coredata(goog1stdev) + .3, col="red", type="l", axes=FALSE, main="",ylim=c(0,1), ylab=""); abline(h=.3, col="red") 
dev.off()