diff --git a/README.Rmd b/README.Rmd index 3d33299..0213546 100644 --- a/README.Rmd +++ b/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 diff --git a/README.md b/README.md index 99e6f77..2364694 100644 --- a/README.md +++ b/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. + + ## 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") ``` - + ### 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) ``` - + -## 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}, diff --git a/man/figures/README-unnamed-chunk-2-1.png b/man/figures/README-unnamed-chunk-2-1.png new file mode 100644 index 0000000..755b255 Binary files /dev/null and b/man/figures/README-unnamed-chunk-2-1.png differ diff --git a/man/figures/README-unnamed-chunk-7-1.png b/man/figures/README-unnamed-chunk-7-1.png index 559177e..755b255 100644 Binary files a/man/figures/README-unnamed-chunk-7-1.png and b/man/figures/README-unnamed-chunk-7-1.png differ diff --git a/man/figures/README-unnamed-chunk-8-1.png b/man/figures/README-unnamed-chunk-8-1.png new file mode 100644 index 0000000..559177e Binary files /dev/null and b/man/figures/README-unnamed-chunk-8-1.png differ