R/panelet_group.R

In arorarshi/panelmap: Create panels for summarizing binary data, categorical data (more than 2 categories) and continuous data for known groups

#grouped row in a panelmap. This is always plotted first

panelet_group<-function(gr, gr.col,gr.name="group", border=FALSE, border.col="black", legend=FALSE, ...){

  if(any(is.na(gr))){stop("The group vector can't have NAs! Please remove NAs and provided an ordered vector")}
  if(is.null(gr) | is.null(gr.col)){ stop("gr and gr.col cannot be NULL")}
  dots <- list(...)
  n<-length(gr)
  group.col = get.colvector(gr,gr.col)
  barplot(rep(1,n),col=group.col$labels.col,border=group.col$labels.col,axes=F,space=0)
  mtext(gr.name,side=2,las=2,...)
   if(border==TRUE){
     dots2 = dots; dots2$col=border.col; dots2$x = c(0,n); dots2$y=c(0,0)
     do.call(lines, args=dots2)

     dots2 = dots; dots2$col=border.col; dots2$x = c(0,n); dots2$y=c(1,1)
     do.call(lines, args=dots2)

     dots2 = dots; dots2$col=border.col; dots2$v=0
     do.call(abline, args = dots2)

     dots2 = dots; dots2$v=n; dots2$col=border.col
     do.call(abline, args = dots2)

  }

  key = group.col$key
  if(legend==TRUE){ key[1,] = paste0(gr.name, "=",key[1,])}
  return(list(key=key))
}