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