R/boxplotbyleader.r

In am-consulting/performanceAsLeader: Compare Performances By Leaders

#'Making boxplot. you need a dataset made by valueswithleader()
#'
#'@param No parameter
#'
#'@return titleAbb+Boxplot
#'
#'@export
boxplotbyleader<-function(dataSource="" , dateform="%Y/%m"){
  if(exists("dataset")==F){valueswithleader()}
  for(jjj in 1:length(indextitle)){#1:PMJ,2:BOJ
    tmp<-dataset[,c(2,2+jjj)]
    colnames(tmp)[2]<-"Person"
    boxplotData<-melt(tmp,id="Person")
    boxplotData<-boxplotData[,-2]
    colnames(boxplotData)[1]<-"variable"
    boxplotData[,2]<-as.numeric(boxplotData[,2])
    assign(paste(titleAbb,"Boxplot",sep="")[jjj],boxplotData,envir = .GlobalEnv)
    g<-ggplot(data=boxplotData,aes(x=variable,y=value))
    g<-g+geom_boxplot(lwd=1)
    g<-g+ggtitle(paste(colnames(dataset)[2],"\n",format(first(dataset[,1]),dateform)," - ",format(last(dataset[,1]),dateform),",Source:",dataSource,sep=""))
    g<-g+theme(axis.text.x=element_text(size=15,face="plain",angle=90,hjust=1,vjust=0.5))
    g<-g+theme(axis.text.y=element_text(size=15,face="plain"))
    g<-g+theme(title      =element_text(size=15,face="plain"))
    g<-g+xlab("")+ylab("")+scale_y_continuous(labels=comma)
    print(g)
    boxplotData<<-boxplotData
  }
}