Graphics legend fix

ryan-odea · Jul 12, 2024 · f599994 · f599994
1 parent 127b8d4
commit f599994
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/Cleaned Data/brandpct.csv b/Cleaned Data/brandpct.csv
@@ -11,14 +11,14 @@
 "10",2021,"Glucagon, Unmixed Syringe",37760,61.0095004200866
 "11",2021,"Glucagon, Auto-Injector",2741,4.42868222064241
 "12",2021,"Glucagon, Pre-Filled Syringe",745,1.20370968784334
-"13",2021,"Dasiglucagon, Autoinjector",21,0.033930071737866
+"13",2021,"Dasiglucagon, Auto-Injector",21,0.033930071737866
 "14",2022,"Glucagon, Nasal Spray",30514,41.5071754063796
 "15",2022,"Glucagon, Unmixed Syringe",34229,46.5605658709107
 "16",2022,"Glucagon, Auto-Injector",7271,9.89049853771339
 "17",2022,"Glucagon, Pre-Filled Syringe",1269,1.72617833095287
-"18",2022,"Dasiglucagon, Autoinjector",232,0.315581854043393
+"18",2022,"Dasiglucagon, Auto-Injector",232,0.315581854043393
 "19",2023,"Glucagon, Nasal Spray",44221,48.2067326559979
 "20",2023,"Glucagon, Unmixed Syringe",28709,31.2966031483016
 "21",2023,"Glucagon, Auto-Injector",16425,17.9054201369206
 "22",2023,"Glucagon, Pre-Filled Syringe",1766,1.92517333100772
-"23",2023,"Dasiglucagon, Autoinjector",611,0.666070727772206
+"23",2023,"Dasiglucagon, Auto-Injector",611,0.666070727772206
diff --git a/Figures/pct.png b/Figures/pct.png
diff --git a/glucagon.R b/glucagon.R
@@ -125,7 +125,7 @@ level_order <- tibble::deframe(brand[, sum(rxTotal), by = `Glucagon Type`]) |>
   sort() |>
   names()
 brand <- brand[, `Glucagon Type` := factor(`Glucagon Type`, levels = level_order, ordered = TRUE,
-                                           labels = c("Dasiglucagon, Autoinjector",
+                                           labels = c("Dasiglucagon, Auto-Injector",
                                                       "Glucagon, Pre-Filled Syringe",
                                                       "Glucagon, Auto-Injector",
                                                       "Glucagon, Nasal Spray",