diff options
| author | Suraj Yerramilli | 2017-01-02 17:12:39 -0600 |
|---|---|---|
| committer | Suraj Yerramilli | 2017-01-02 17:12:39 -0600 |
| commit | 1b1809ac7a1b33115dd3c11cc5d60ae04108e898 (patch) | |
| tree | 6269a4e585a38e36b44e815d0c69b7996ceab292 | |
| parent | eb848619e1de4b7698a385d10e3bbc37eef61550 (diff) | |
| download | SysID-R-code-1b1809ac7a1b33115dd3c11cc5d60ae04108e898.tar.gz SysID-R-code-1b1809ac7a1b33115dd3c11cc5d60ae04108e898.tar.bz2 SysID-R-code-1b1809ac7a1b33115dd3c11cc5d60ae04108e898.zip | |
fixing transparency issues in impulseplot
| -rw-r--r-- | R/nonparam.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/nonparam.R b/R/nonparam.R index db5b004..55fb4fa 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -105,11 +105,10 @@ plot.impulseest <- function(model,sd=2){ geom_point(size=2) + ggtitle(paste("From",z$x,"to",z$y))+ geom_line(aes(y=lim),linetype="dashed",colour="steelblue") + geom_line(aes(y=-lim),linetype="dashed",colour="steelblue") + - geom_ribbon(aes(ymax=lim,ymin=-lim),fill="steelblue",alpha=0.2)+ - theme_bw(14) + ylab(ifelse(uindex==1,"IR Coefficients","")) + + ggplot2::theme_bw(14) + ylab(ifelse(uindex==1,"IR Coefficients","")) + xlab(ifelse(yindex==model$nout,"Lags","")) + theme(axis.title=element_text(size=12,color = "black",face = "plain"), - title=element_text(size=9,,color = "black",face="bold")) + + title=element_text(size=9,color = "black",face="bold")) + scale_x_continuous(expand = c(0.01,0.01)) } multiplot(plotlist=g,layout=plotseq) |