loop on tag type

Signed-off-by: Mike Holmes <mike.holmes@linaro.org>

1 files changed, 8 insertions, 33 deletions

diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R
index 8bace46..7373d11 100644
--- a/Signed_off_heatmaps.R
+++ b/Signed_off_heatmaps.R
@@ -179,40 +179,15 @@ barplot(inverse.m, las=2,
 )
 dev.off()
 
-title <- "signed_off"
-png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
-op <- par(mar=c(15,4,4,2))
-barplot(df$signed, main=title, las=2,     ylab = "number of patches / contributors per team",
-        names.arg = row.names(df), col = colours[1])
-dev.off()
-
-title <- "acked"
-png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
-op <- par(mar=c(15,4,4,2))
-barplot(df$acked, las=2,  main=title, ylab = "number of patches / contributors per team",
-        names.arg = row.names(df), col = colours[2])
-dev.off()
-
-title <- "acked"
-png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
-op <- par(mar=c(15,4,4,2))
-barplot(df$reviewed, las=2,  main="reviewed",    ylab = "number of patches / contributors per team",
-        names.arg = row.names(df), col = colours[3])
-dev.off()
-
-title <- "tested"
-png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
-op <- par(mar=c(15,4,4,2))
-barplot(df$tested, las=2,  main=title,    ylab = "number of patches / contributors per team",
-        names.arg = row.names(df), col = colours[4])
-dev.off()
+#a bar plot showing each teams contribution to a tag type
+for (title in unique.tags) {
+  png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
+  op <- par(mar=c(15,4,4,2))
+  barplot(df$signed, main=title, las=2,     ylab = "number of patches / contributors per team",
+          names.arg = row.names(df), col = colours[1])
+  dev.off()
+}
 
-title <- "reported"
-png(file=paste(Sys.Date(),"Linaro_team",title,"git.png", sep = "_"), title = paste(Sys.Date(),"team vs. ",title,"git stats",sep = " "))
-op <- par(mar=c(15,4,4,2))
-barplot(df$reported, las=2,  main=title,    ylab = "number of patches / contributors per team",
-        names.arg = row.names(df), col = colours[5])
-dev.off()
 
 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))