diff options
| author | Mike Holmes <mike.holmes@linaro.org> | 2017-05-20 14:05:32 -0400 |
|---|---|---|
| committer | Mike Holmes <mike.holmes@linaro.org> | 2017-05-20 14:05:32 -0400 |
| commit | ba45928be3707049ce1b5ea066cff7ff2ba819ea (patch) | |
| tree | 8930a9ae858512ad179fcbfc223919b498d8af15 | |
| parent | f0e1913ed8a1d948c89cbb656852b117d20d07bf (diff) | |
remove in active companies
Signed-off-by: Mike Holmes <mike.holmes@linaro.org>
| -rw-r--r-- | Signed_off_heatmaps.R | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index 6e1c678..9e8750b 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -90,7 +90,10 @@ webpage <- curl (url, handle = h) jira_raw <- fromJSON(webpage,simplifyMatrix = TRUE, simplifyVector =TRUE, simplifyDataFrame = TRUE, flatten = TRUE) #list of every issue -df <- data.frame(id=jira_raw$id, name=jira_raw$display_name, url=jira_raw$url) +df <- data.frame(id=jira_raw$id, url=jira_raw$url, active=jira_raw$active) + + + row.names(df) <- jira_raw$display_name str(df) @@ -98,7 +101,11 @@ str(df) n <- sapply(df$id,get_tags) str(n) + df$contributions <- n +#remove inactive +df <- df[df$active == TRUE,] + #table(n[[]]$project) #I am gere getting bits out @@ -127,6 +134,7 @@ pdf(file="Linaro_team_vs_git_signoff.pdf", title = "team vs. git stats") op <- par(mar=c(15,4,4,2)) colours <- c("lightblue", "mistyrose", "lightcyan","lavender", "cornsilk") inverse.m <- t(m) + barplot(inverse.m, las=2, main="non author contribution", ylab = "number of patches", |