added visualization at the beginning

README.Rmd

@@ -27,6 +27,30 @@ library(cleanteamghana)
 
 This package contains compiled data utilized in a research paper examining the user experience of the Clean Team Ghana's container-based sanitation service in Kumasi, Ghana.  
 
+```{r, echo=FALSE}
+library(ggplot2)
+
+annotations <- data.frame(
+  x = c(round(mean(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2), 
+        round(median(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2)),
+  y = c(165, 175),
+  label = c("Mean:", "Median:")
+) 
+
+ggplot(cleanteamghana, aes(time_to_access_toilet)) +
+  geom_histogram(binwidth = 3, color = "#000000", fill = "#59CF94", boundary = 0, na.rm = TRUE) +
+  labs(
+    title = "Time to access toilets before installation of CTG containers",
+    x = "Time (minutes)",
+    y = "Count"
+  ) +
+  theme_classic() +
+  theme(
+    plot.title = element_text(color = "#59CF94", size = 16, face = "bold")
+  ) +
+  scale_x_continuous(breaks = seq(0, 60, by = 10)) +
+  geom_text(data = annotations, aes(x = x, y = y, label = paste(label, x)), size = 3, fontface = "bold")
+```
 
 ## Installation
 

README.md

@@ -13,6 +13,8 @@ This package contains compiled data utilized in a research paper
 examining the user experience of the Clean Team Ghana’s container-based
 sanitation service in Kumasi, Ghana.
 
+<img src="man/figures/README-unnamed-chunk-2-1.png" width="100%" />
+
 ## Installation
 
 You can install the development version of cleanteamghana from
@@ -247,7 +249,7 @@ ggplot(cleanteamghana, aes(time_to_access_toilet)) +
   geom_text(data = annotations, aes(x = x, y = y, label = paste(label, x)), size = 3, fontface = "bold")
 ```
 
-<img src="man/figures/README-unnamed-chunk-6-1.png" width="100%" />
+<img src="man/figures/README-unnamed-chunk-7-1.png" width="100%" />
 
 ### 2) Customer Sanitation Satisfaction Categories: Mean Scores Comparison
 
@@ -286,9 +288,9 @@ ggplot(satisfaction_means, aes(x = Satisfaction_Category, y = Mean_Score)) +
   ylim(0, 4)
 ```
 
-<img src="man/figures/README-unnamed-chunk-7-1.png" width="100%" />
+<img src="man/figures/README-unnamed-chunk-8-1.png" width="100%" />
 
-## License 
+## License
 
 Data are available as
 [CC-BY](https://github.com/openwashdata/cleanteamghana/LICENSE.md).
@@ -299,13 +301,12 @@ To cite this package, please use:
 
 ``` r
 citation("cleanteamghana")
-#> Um Paket 'cleanteamghana' in Publikationen zu zitieren, nutzen Sie
-#> bitte:
+#> To cite package 'cleanteamghana' in publications use:
 #> 
 #>   Skorik S, Tidwell J, Nyarko K, Ross I, Dwumfour-Asare B, Pippa S
 #>   (2023). "cleanteamghana: Clean Team Ghana."
 #> 
-#> Ein BibTeX-Eintrag für LaTeX-Benutzer ist
+#> A BibTeX entry for LaTeX users is
 #> 
 #>   @Misc{skoriktidwell,
 #>     title = {cleanteamghana: Clean Team Ghana},