Merge pull request #8 from jhudsl/updates

remove totals with janitor
jhudsl · May 29, 2024 · c587636 · c587636
2 parents 14fbb92 + 7e5a6c6
commit c587636
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/index.Rmd b/index.Rmd
@@ -428,12 +428,10 @@ High_asset_data %>%
 
 ```{r}
 library(forcats)
-library(janitor)
 df_simplified %>% group_by(NTEE_text) %>%summarize(count = n()) %>% 
   mutate(NTEE_text = str_replace(string = NTEE_text, pattern = "NA", replacement = "Unclassified")) %>%
  mutate(Percentage = round(count/sum(count)*100, digits = 2)) %>%
-  arrange(NTEE_text) %>%
-  adorn_totals("row")
+  arrange(NTEE_text)
 
 Total_NTEE <-df_simplified %>% group_by(NTEE_text) %>%summarize(count = n()) %>% 
   mutate(NTEE_text = str_replace(string = NTEE_text, pattern = "NA", replacement = "Unclassified")) %>%