#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.