@beauraines/sprint-tracker 0.6.12 → 0.6.14

package/.github/workflows/test.yaml

@@ -13,7 +13,7 @@ jobs:
 
     strategy:
       matrix:
-        node-version: [16.x, '18.x', '20.x']
+        node-version: ['18.x', '20.x']
 
     steps:
       - uses: actions/checkout@v3

package/CHANGELOG.md

@@ -2,6 +2,19 @@
 
 All notable changes to this project will be documented in this file. See [standard-version](https://github.com/conventional-changelog/standard-version) for commit guidelines.
 
+### [0.6.14](https://github.com/beauraines/sprint-tracker/compare/v0.6.12...v0.6.14) (2024-05-06)
+
+
+### Features
+
+* improves sprint statistics with patchwork ([#69](https://github.com/beauraines/sprint-tracker/issues/69)) ([a36c75b](https://github.com/beauraines/sprint-tracker/commit/a36c75ba68631b1e28b7f3970c77d126a0e16fa3))
+
+
+### Bug Fixes
+
+* **deps:** bump cli-markdown from 3.2.2 to 3.2.3 ([#65](https://github.com/beauraines/sprint-tracker/issues/65)) ([bc3c912](https://github.com/beauraines/sprint-tracker/commit/bc3c912a331678a9e880939c7555257983a4f4c3))
+* **deps:** bump cli-table3 from 0.6.3 to 0.6.4 ([#63](https://github.com/beauraines/sprint-tracker/issues/63)) ([1487e95](https://github.com/beauraines/sprint-tracker/commit/1487e9531782b0575ad27664814461856c454ea4))
+
 ### [0.6.12](https://github.com/beauraines/sprint-tracker/compare/v0.6.9...v0.6.12) (2024-03-27)
 
 

package/R/commitmentVarianceCli.R

@@ -3,6 +3,7 @@ library(zoo)
 library(DBI)
 library(RSQLite)
 library(ggrepel)
+library(patchwork)
 
 args = commandArgs(trailingOnly=TRUE)
 if (length(args)==0) {
@@ -116,33 +117,6 @@ f_labels <- sprintData %>%  summarise(
     names_to = "measure" )
 
 
-# commitment_variance
-# sprintData %>%
-#   ggplot(aes(x = sprint_number,
-#              y = commitment_variance,
-#              colour = name)) +
-#   geom_line() + 
-#   geom_point()
-
-
-
-# Sprint Velocity
-# sprintData %>%
-#   ggplot(aes(x = sprint_number,
-#              y = velocity,
-#              colour = name)) +
-#   geom_line() + 
-#   geom_point()
-
-# Commitment Percentage
-# sprintData %>%
-#   ggplot(aes(x = commitment_percentage,
-#              y = velocity,
-#              colour = name)) +
-#   geom_line() + 
-#   geom_point()
-
-
 sprintDataPivot = sprintData %>%
     select(!c(completed,commitment,sprint_id,project_sprint_count,project_percent_completed)) %>%
     pivot_longer(
@@ -153,7 +127,8 @@ sprintDataPivot = sprintData %>%
 
 projectName = unique(sprintDataPivot$name)
 
-plot <- sprintDataPivot %>%
+velocity <- sprintDataPivot %>%
+  filter(measure == 'velocity') %>%
   ggplot(aes(x = reorder(str_wrap(sprint_name,15),sprint_number),
              y = value
              )) +
@@ -166,7 +141,80 @@ plot <- sprintDataPivot %>%
     family = "roboto",
     size = 10 * 5/14 * 0.8) +
   # plot labels
-  labs(title=str_c(projectName,"Sprint Statistics", sep =" "),
+  labs(title=str_c(projectName,"Velocity", sep =" "),
+       x ="", 
+       y = "") +
+#themes
+  theme(
+    plot.title = element_text(family = "roboto"),
+    # NO x-axis labels
+    axis.title.x = element_blank(),
+    axis.text.x = element_blank(),
+    axis.title.y = element_text(family = "roboto"),
+    panel.grid.major.y = element_line(colour = "#D9D9D9"),
+    panel.grid.minor.y = element_line(colour = "#D9D9D9"),
+    panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(),
+    # background color 
+    panel.background = element_rect(fill = "#D9D9D920", colour = NA),
+    legend.position = "bottom",
+    plot.background = element_rect(colour = "#D9D9D9", fill=NA)
+  )
+
+commitmentPercentage <- sprintDataPivot %>%
+  filter(measure == 'commitment_percentage') %>%
+  ggplot(aes(x = reorder(str_wrap(sprint_name,15),sprint_number),
+             y = value
+             )) +
+  geom_hline(yintercept = 1, color = "green") +
+  geom_hline(yintercept = .8, color = "yellow") +
+  geom_hline(yintercept = .6, color = "red") +
+  geom_line(group=1,color = "#b9b9b9") + 
+  geom_point(color = "#b9b9b9") +
+  # Add point values
+  geom_text_repel(
+    aes(label=scales::label_percent()(round(value,2))),
+    direction = "y",
+    family = "roboto",
+    size = 10 * 5/14 * 0.8) +
+  # plot labels
+  labs(title=str_c(projectName,"Commitment Percentage", sep =" "),
+       x ="", 
+       y = "") +
+  scale_y_continuous (labels = scales::percent) +
+#themes
+  theme(
+    plot.title = element_text(family = "roboto"),
+    # NO x-axis labels
+    axis.title.x = element_blank(),
+    axis.text.x = element_blank(),
+    axis.title.y = element_text(family = "roboto"),
+    panel.grid.major.y = element_line(colour = "#D9D9D9"),
+    panel.grid.minor.y = element_line(colour = "#D9D9D9"),
+    panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(),
+    # background color 
+    panel.background = element_rect(fill = "#D9D9D920", colour = NA),
+    legend.position = "bottom",
+    plot.background = element_rect(colour = "#D9D9D9", fill=NA)
+  )
+
+commitmentVariance <- sprintDataPivot %>%
+  filter(measure == 'commitment_variance') %>%
+  ggplot(aes(x = reorder(str_wrap(sprint_name,15),sprint_number),
+             y = value
+             )) +
+  geom_hline(yintercept = 1, color = "green") +
+  geom_hline(yintercept = -20, color = "yellow") +
+  geom_hline(yintercept = -60, color = "red") +
+  geom_line(group=1,color = "#b9b9b9") + 
+  geom_point(color = "#b9b9b9") +
+  # Add point values
+  geom_text_repel(
+    aes(label=round(value,2)),
+    direction = "y",
+    family = "roboto",
+    size = 10 * 5/14 * 0.8) +
+  # plot labels
+  labs(title=str_c(projectName,"Commitment Variance", sep =" "),
        x ="", 
        y = "") +
 #themes
@@ -184,20 +232,51 @@ plot <- sprintDataPivot %>%
     plot.background = element_rect(colour = "#D9D9D9", fill=NA)
   )
 
-plot <- plot + facet_wrap(
-    vars(str_to_title(sub("_"," ",measure))),
-    ncol = 1,
-    scales = "free_y"
-    )
 
-plot <- plot + 
+# Add StdDeviation to each plot
+velocity <- velocity + 
   geom_label(
     x = 1,
     y = Inf,
     aes(label = str_c("St Dev = ",label), hjust = "left", vjust = 1.3),
-    data = f_labels
+    data = f_labels %>% filter(measure == 'Velocity')
   )
 
+commitmentPercentage <- commitmentPercentage + 
+  geom_label(
+    x = 1,
+    y = Inf,
+    aes(label = str_c("St Dev = ",label), hjust = "left", vjust = 1.3),
+    data = f_labels %>% filter(measure == 'Commitment Percentage')
+  )
+
+commitmentVariance <- commitmentVariance + 
+  geom_label(
+    x = 1,
+    y = Inf,
+    aes(label = str_c("St Dev = ",label), hjust = "left", vjust = 1.3),
+    data = f_labels %>% filter(measure == 'Commitment Variance')
+  )
+
+# Add shading to commitment variance and commitment percentage plots
+commitmentPercentage <- commitmentPercentage + 
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=-Inf,ymax=0.6,fill=alpha(c("red"),0.1)) +
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=0.6,ymax=0.8,fill=alpha("yellow",0.1)) +
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=0.8,ymax=Inf,fill=alpha(c("green"),0.1))
+
+commitmentVariance <- commitmentVariance + 
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=-Inf,ymax=-60,fill=alpha(c("red"),0.1)) +
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=-60,ymax=-20,fill=alpha("yellow",0.1)) +
+  annotate(geom ="rect",xmin=-Inf,xmax=Inf,ymin=-20,ymax=Inf,fill=alpha(c("green"),0.1))
+
+
+plot <- velocity /
+commitmentPercentage /
+commitmentVariance 
+
+
+
+
 # plot
 
 

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@beauraines/sprint-tracker",
-  "version": "0.6.12",
+  "version": "0.6.14",
   "description": "Database and R visualizations to track sprint performance",
   "main": "cli.js",
   "bin": {