From 8b1ff94e701b96bdde15a121ba8d3c4d34ebb4d5 Mon Sep 17 00:00:00 2001 From: Mike Holmes Date: Mon, 7 Aug 2017 10:12:46 -0400 Subject: Sort and convert to pdf the signed off rank --- Signed_off_heatmaps.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index 44d96a3..ef0424f 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -193,7 +193,7 @@ df$reviewed <- df$reviewed / df$team_size df$tested <- df$tested / df$team_size df$reported<- df$reported/ df$team_size -#cut out what we want to plot whick is Mainter type sign offs +#cut out what we want to plot which is Mainter type sign offs m <- as.matrix(df[,c("signed","acked","reviewed")]) png(file=paste(Sys.Date(),"Linaro_maintainer_overview.png", sep = "_"), title = paste(Sys.Date(),"team vs maintainer",sep = " ")) @@ -320,8 +320,8 @@ for (team in row.names(df)) { } -png(file=paste(Sys.Date(),"Linaro_all_non_author_contributions_barplot.png", sep = "_"), - title = paste(Sys.Date(),"team member contributions heatmap",sep = " ",width=2000) +pdf(file=paste(Sys.Date(),"Linaro_all_non_author_contributions_barplot.pdf", sep = "_"), + title = paste(Sys.Date(),"team member contributions heatmap",sep = " ",height=700,width=1000,quality=100,res=240) ) all_people <- matrix(nrow=length(unique.persons), ncol=length(unique.tags)) @@ -344,12 +344,16 @@ for (team in row.names(df)) { inverse.all_people <- t(all_people) +#sort them +inverse.all_people <- inverse.all_people[,order(colSums(inverse.all_people))] + barplot( main = "Maintainers", inverse.all_people, las = 2, bty='L', col = colours, + horiz=TRUE, cex.names=0.5, legend.text = TRUE, args.legend = list( -- cgit v1.2.3