diff options
| -rw-r--r-- | R/idframe.R | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R index 26b4433..6ad9c9b 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -75,7 +75,7 @@ plot.idframe <- function(x,col="steelblue",lwd=1,main=NULL,size=12){ } ggplot(melt(data.frame(time=as.numeric(time(data)), data), id.vars="time"), aes(time, value)) + geom_line(size=lwd,color=col) + - facet_grid(variable ~ .,scale="free") + theme_bw(size) + + facet_grid(variable ~ .,scales="free") + theme_bw(size) + ylab("Amplitude") + ggtitle(main) + xlab(paste("Time (",x$unit,")",sep="")) #theme(axis.title.x=element_text(size=11)) + ggtitle(main) @@ -178,6 +178,9 @@ idfrd <- function(respData,freq,Ts,spec=NULL,covData=NULL, #' ggplot2 plotting engine #' #' @param x An object of class \code{idframe} +#' @param col a specification for the line colour (Default : \code{" +#' steelblue"}) +#' @param lwd the line width, a positive number, defaulting to 1 #' #' @seealso \code{\link[ggplot2]{ggplot}} #' @@ -208,7 +211,7 @@ plot.idfrd <- function(x,col="steelblue",lwd=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(expand = c(0.01,0.01)) + - facet_grid(variable ~ .,scale="free_y") + + facet_grid(variable ~ .,scales="free_y") + theme_bw(14) + ylab("") + ggtitle(subtitle) + xlab(ifelse(yindex==nout,"Frequency","")) + theme(axis.title.x=element_text(color = "black",face = "plain"), |