R/drawsweep.R

In artedison/ensRadaptor: Metabolic model creator for ensemble method

#' plot var~sweep
#'
#' plot the variable through sweeps
#'
#' @param tab array. the data table. must be provided
#' @param ylab string. y axis. default "ylab"
#' @param loci string. location for result (add on string for name). default ""
#' @param linethick bool. whether make line thicker. default FALSE
#' @return no return just plot
#' @import ggplot2
draw_sweep<-function(tab=NULL,ylab="ylab",loci="",linethick=FALSE){
  if(is.null(tab)){
    stop("please provide input data")
  }
  if(linethick){
    size=1
  }else{
    size=0.5
  }
  tab=as.data.frame(tab)
  colnames(tab)=c("sweep","val")
  tab[,1]=as.numeric(tab[,1])
  tab[,2]=as.numeric(tab[,2])
  p<-ggplot(data=tab,aes(x=sweep,y=val))+
        geom_line(size=size,alpha=0.75)+
        # geom_point(color="red",alpha=0.5,size=0.5)+
        xlab("sweep")+
        ylab(ylab)+
        theme_bw()
  ggsave(plot=p,file=loci)
}