diff options
author | Mike Holmes <mike.holmes@linaro.org> | 2017-06-08 09:41:30 -0400 |
---|---|---|
committer | Mike Holmes <mike.holmes@linaro.org> | 2017-06-08 09:41:30 -0400 |
commit | 241eea611c678811c7fece22fb6354d9ec2a7343 (patch) | |
tree | 50cbadf69cfc9c5930124c3c7e3f5834b435a122 | |
parent | bfbff47781d1e11cda6b6bc63e5d588aae04d2da (diff) |
png for raw team contributions
Signed-off-by: Mike Holmes <mike.holmes@linaro.org>
-rw-r--r-- | Signed_off_heatmaps.R | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index 7373d11..838ac0e 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -189,10 +189,12 @@ for (title in unique.tags) { } -pdf(file=paste(Sys.Date(),"Linaro_team_members_raw_contributions.pdf", sep = "_"), title = paste(Sys.Date(),"team member raw contributions",sep = " ")) -op <- par(mfrow=c(1, 1), mar =c(15,4,4,10)) + for (team in row.names(df)) { + + png(file=paste(Sys.Date(),team,"raw_contributions.png", sep = "_"), title = paste(Sys.Date(),"team member raw contributions",sep = " ")) + op <- par(mfrow=c(1, 1), mar =c(15,4,4,10)) contributions <- data.frame (df[team, ]$contribution) lunique.tags <- (unique(contributions$tag)) @@ -228,11 +230,12 @@ for (team in row.names(df)) { xpd=TRUE) ) ) + dev.off() } -dev.off() + print("---------1----------") -png(file=paste(Sys.Date(),"Linaro_team_members_contributions_barplot.png", sep = "_"), +png(file=paste(Sys.Date(),"Linaro_all_maintainers_barplot.png", sep = "_"), title = paste(Sys.Date(),"team member contributions heatmap",sep = " ",width=2000) ) @@ -273,7 +276,7 @@ barplot( dev.off() print("---------2----------") -png(file=paste(Sys.Date(),"Linaro_team_members_contributions_heatmap.png", sep = "_"), +png(file=paste(Sys.Date(),"Linaro_team_all_maintainers_heatmap.png", sep = "_"), title = paste(Sys.Date(),"team member contributions heatmap",sep = " "),width=1000) op <- par(mfrow=c(1, 1), mar =c(10,4,4,10)) |