changing plot parameters

2 files changed, 5 insertions, 4 deletions

diff --git a/R/idframe.R b/R/idframe.R
index 3163292..b1a91c7 100644
--- a/R/idframe.R
+++ b/R/idframe.R
@@ -196,12 +196,12 @@ plot.idfrd <- function(x,col="steelblue",lwd=1){
     yindex <- (i-1)%/%nin + 1;uindex <- i-nin*(yindex-1)
     subtitle <- paste("From: u",uindex," to y",yindex,sep="")
     g[[i]] <- ggplot(melt_df, aes(Frequency, value)) + 
-      geom_line(size=lwd,color=col) + scale_x_log10() + 
+      geom_line(size=lwd,color=col) + scale_x_log10(expand = c(0.01,0.01)) + 
       facet_grid(variable ~ .,scale="free_y") +
       theme_bw(14) + ylab("") + ggtitle(subtitle) +
       xlab(ifelse(yindex==nout,"Frequency","")) + 
       theme(axis.title.x=element_text(color = "black",face = "plain"),
-            title=element_text(size=12,color = "black",face="bold")) + 
+            title=element_text(size=9,color = "black",face="bold")) + 
       geom_vline(xintercept=max(x$freq),size=1)
   }
   
diff --git a/R/nonparam.R b/R/nonparam.R
index 0527cdc..c3fbaa8 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -108,7 +108,8 @@ plot.impulseest <- function(model,sig=2){
       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=12,,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)
 }
@@ -145,7 +146,7 @@ step <- function(model){
       theme_bw(14) + ylab(ifelse(uindex==1,"Step Response","")) +
       xlab(ifelse(yindex==model$nout,"Lags","")) + 
       theme(axis.title=element_text(size=12,color = "black",face = "plain"),
-            title=element_text(size=9,,color = "gray",face="bold"))
+            title=element_text(size=9,,color = "black",face="bold"))
   }
   multiplot(plotlist=g,layout=plotseq)
 }