{"id":38654421,"url":"https://github.com/openwashdata/cleanteamghana","last_synced_at":"2026-01-17T09:25:35.607Z","repository":{"id":214528699,"uuid":"709679841","full_name":"openwashdata/cleanteamghana","owner":"openwashdata","description":"This package compiles user experience data for the Clean Team Ghana container-based sanitation service in Kumasi, Ghana.","archived":false,"fork":false,"pushed_at":"2024-01-15T12:48:11.000Z","size":1835,"stargazers_count":0,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"main","last_synced_at":"2025-09-05T04:22:13.077Z","etag":null,"topics":["container-based-sanitation","ghana","open-data","openwashdata","r","sanitation"],"latest_commit_sha":null,"homepage":"https://openwashdata.github.io/cleanteamghana/","language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"cc-by-4.0","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/openwashdata.png","metadata":{"files":{"readme":"README.Rmd","changelog":null,"contributing":null,"funding":null,"license":"LICENSE.md","code_of_conduct":null,"threat_model":null,"audit":null,"citation":"CITATION.cff","codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null,"zenodo":null,"notice":null,"maintainers":null,"copyright":null,"agents":null,"dco":null,"cla":null}},"created_at":"2023-10-25T07:21:26.000Z","updated_at":"2024-03-05T13:49:52.000Z","dependencies_parsed_at":"2025-04-13T18:16:28.165Z","dependency_job_id":null,"html_url":"https://github.com/openwashdata/cleanteamghana","commit_stats":null,"previous_names":["openwashdata/cleanteamghana"],"tags_count":1,"template":false,"template_full_name":null,"purl":"pkg:github/openwashdata/cleanteamghana","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/openwashdata%2Fcleanteamghana","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/openwashdata%2Fcleanteamghana/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/openwashdata%2Fcleanteamghana/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/openwashdata%2Fcleanteamghana/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/openwashdata","download_url":"https://codeload.github.com/openwashdata/cleanteamghana/tar.gz/refs/heads/main","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/openwashdata%2Fcleanteamghana/sbom","scorecard":null,"host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":286080680,"owners_count":28505550,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2026-01-17T06:57:29.758Z","status":"ssl_error","status_checked_at":"2026-01-17T06:56:03.931Z","response_time":85,"last_error":"SSL_read: unexpected eof while reading","robots_txt_status":"success","robots_txt_updated_at":"2025-07-24T06:49:26.215Z","robots_txt_url":"https://github.com/robots.txt","online":false,"can_crawl_api":true,"host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["container-based-sanitation","ghana","open-data","openwashdata","r","sanitation"],"created_at":"2026-01-17T09:25:32.808Z","updated_at":"2026-01-17T09:25:35.542Z","avatar_url":"https://github.com/openwashdata.png","language":"R","funding_links":[],"categories":[],"sub_categories":[],"readme":"---\noutput: github_document\n---\n\n\u003c!-- README.md is generated from README.Rmd. Please edit that file --\u003e\n\n```{r, include = FALSE}\nknitr::opts_chunk$set(\n  collapse = TRUE,\n  comment = \"#\u003e\",\n  fig.path = \"man/figures/README-\",\n  out.width = \"100%\"\n)\n\nlibrary(tidyverse)\nlibrary(epoxy)\nlibrary(leaflet)\nlibrary(cleanteamghana)\n```\n\n# cleanteamghana\n\n\u003c!-- badges: start --\u003e\n[![DOI](https://zenodo.org/badge/709679841.svg)](https://zenodo.org/doi/10.5281/zenodo.10439886)\n[![R-CMD-check](https://github.com/openwashdata/cleanteamghana/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/openwashdata/cleanteamghana/actions/workflows/R-CMD-check.yaml)\n\u003c!-- badges: end --\u003e\n\nThis 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.  \n\n```{r, echo=FALSE}\nlibrary(ggplot2)\n\nannotations \u003c- data.frame(\n  x = c(round(mean(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2), \n        round(median(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2)),\n  y = c(165, 175),\n  label = c(\"Mean:\", \"Median:\")\n) \n\nggplot(cleanteamghana, aes(time_to_access_toilet)) +\n  geom_histogram(binwidth = 3, color = \"#000000\", fill = \"#59CF94\", boundary = 0, na.rm = TRUE) +\n  labs(\n    title = \"Time to access toilets before installation of CTG containers\",\n    x = \"Time (minutes)\",\n    y = \"Count\"\n  ) +\n  theme_classic() +\n  theme(\n    plot.title = element_text(color = \"#59CF94\", size = 16, face = \"bold\")\n  ) +\n  scale_x_continuous(breaks = seq(0, 60, by = 10)) +\n  geom_text(data = annotations, aes(x = x, y = y, label = paste(label, x)), size = 3, fontface = \"bold\")\n```\n\n## Installation\n\nYou can install the development version of cleanteamghana from [GitHub](https://github.com/) with:\n\n``` r\n# install.packages(\"devtools\")\ndevtools::install_github(\"openwashdata/cleanteamghana\")\n```\nAlternatively, you can download the individual dataset as a CSV or XLSX\nfile from the table below.\n\n```{r, echo=FALSE}\nlibrary(dplyr)\nlibrary(stringr)\nlibrary(readr)\n\nextdata_path \u003c- \"https://github.com/openwashdata/cleanteamghana/raw/main/inst/extdata/\"\n\nread_csv(\"data-raw/dictionary.csv\", col_types = cols(.default = \"c\")) |\u003e \n  distinct(file_name) |\u003e \n  mutate(file_name = str_remove(file_name, \".rda\")) |\u003e \n  rename(dataset = file_name) |\u003e \n  mutate(\n    CSV = paste0(\"[Download CSV](\", extdata_path, dataset, \".csv)\"),\n    XLSX = paste0(\"[Download XLSX](\", extdata_path, dataset, \".xlsx)\")\n  ) |\u003e \n  knitr::kable(show_col_types = FALSE)\n\n```\n\n\n# The research paper \nThe research paper associated with this data package is named [\"Evaluation of user experiences for the Clean Team Ghana container-based sanitation service in Kumasi, Ghana\"](https://iwaponline.com/washdev/article/12/3/336/86884/Evaluation-of-user-experiences-for-the-Clean-Team) (Tidwell et al., 2022).\n\n*Tidwell, J. B., Nyarko, K. B., Ross, I., Dwumfour-Asare, B., \u0026 Scott, P. (2022). Evaluation of user experiences for the Clean Team Ghana container-based sanitation service in Kumasi, Ghana. Journal of Water, Sanitation and Hygiene for Development, 12(3), 336–346. https://doi.org/10.2166/washdev.2022.013*\n\n\nIt was published in the Journal of Water, Sanitations \u0026 Hygiene (WASH) for Development on March 1st, 2022. \n\n\n## Description\nFew affordable and acceptable sanitation solutions exist for densely populated, low-income urban areas. Container-based toilets, considered a safely managed sanitation solution, lack substantial insights into user experiences, essential for governmental considerations. A study was conducted on sanitation quality changes pre- and post-enrollment due to the [Clean Team Ghana (CTG)](https://www.cleanteamtoilets.com/) container-based toilet service in Kumasi, Ghana, spanning June to December 2019. Data was gathered before installation and ten weeks after for 292 customers. Initially, most customers utilized structurally sound public toilets, yet often faced issues like poor hygiene, inadequate handwashing facilities, and an average 14.3-minute usage time. The study revealed that CTG offered a high-quality service, significantly enhancing customers' quality of life, saving costs, narrowing gender disparities, and catering to individuals with physical disabilities. Fewer than 10% of customers reported issues with CTG, such as leakage, filling, odor, or irregular replacements. This evaluation adds weight to the emerging evidence supporting the value users place on container-based sanitation in densely populated urban settings.\n\n\n## Data\n\nThe data set includes household survey responses on sanitation service levels, quality, practices, and observed behaviors. The Sanitation Quality of Life (SanQoL) scores were measured on a 0 (never able) to 3 (always able) scale. Sanitation satisfaction was scored on a scale from 0 to 4, with 0 representing very unsatisfied, 4 representing very satisfied, and 2 being neither satisfied nor unsatisfied.  \n\nThe package provides access to a single data set.\n\n```{r, echo = TRUE}\nlibrary(cleanteamghana)\n```\n\nThe `cleanteamghana` data set has `r ncol(cleanteamghana)`\nvariables and `r nrow(cleanteamghana)` observations. For an overview\nof the variable names, see the following table.\n\n```{r, eval=FALSE}\ncleanteamghana\n```\n\n```{r, echo=FALSE}\nreadr::read_csv(\"data-raw/dictionary.csv\", col_types = cols(.default = \"c\")) |\u003e \n  dplyr::filter(file_name == \"cleanteamghana.rda\") |\u003e \n  dplyr::select(variable_name:description) |\u003e \n  knitr::kable()\n```\n\n\n## Examples\n\n### 1) Visualizing Toilet Access Time (Pre-CTG Containers Installation)\n\nThis code snippet utilizes ggplot2 to create a histogram illustrating the time taken to access toilets before the implementation of CTG (Clean Team Ghana) containers. The histogram showcases the distribution of time-to-access values, with mean and median annotations indicating central tendency. \n\n```{r}\nlibrary(ggplot2)\n\nannotations \u003c- data.frame(\n  x = c(round(mean(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2), \n        round(median(cleanteamghana$time_to_access_toilet, na.rm = TRUE), 2)),\n  y = c(165, 175),\n  label = c(\"Mean:\", \"Median:\")\n) \n\nggplot(cleanteamghana, aes(time_to_access_toilet)) +\n  geom_histogram(binwidth = 3, color = \"#000000\", fill = \"#59CF94\", boundary = 0, na.rm = TRUE) +\n  labs(\n    title = \"Time to access toilets before installation of CTG containers\",\n    x = \"Time (minutes)\",\n    y = \"Count\"\n  ) +\n  theme_classic() +\n  theme(\n    plot.title = element_text(color = \"#59CF94\", size = 16, face = \"bold\")\n  ) +\n  scale_x_continuous(breaks = seq(0, 60, by = 10)) +\n  geom_text(data = annotations, aes(x = x, y = y, label = paste(label, x)), size = 3, fontface = \"bold\")\n```\n\n### 2) Customer Sanitation Satisfaction Categories: Mean Scores Comparison\n\nThe following code computes the mean satisfaction scores across the various sanitation categories, presenting a comparative analysis through a bar plot.\n\n```{r}\nlibrary(dplyr)\nlibrary(ggplot2)\n\n# Calculating mean scores for each satisfaction category\nsatisfaction_means \u003c- cleanteamghana |\u003e \n  mutate(across(starts_with(\"satisfaction\"), as.integer)) |\u003e \n  summarise(across(starts_with(\"satisfaction\"), ~mean(., na.rm = TRUE))) |\u003e \n  rename_with(~gsub(\"satisfaction_\", \"\", .), starts_with(\"satisfaction\")) |\u003e \n  rename_with(~gsub(\"towards_\", \"\", .), starts_with(\"towards\")) |\u003e \n  rename_with(~gsub(\"avoiding_\", \"\", .), starts_with(\"avoiding\")) \n# Converting the data to a format suitable for plotting\nsatisfaction_means \u003c- satisfaction_means |\u003e \n  tidyr::pivot_longer(cols = everything(), names_to = \"Satisfaction_Category\", values_to = \"Mean_Score\")\n\n# Creating the bar plot\nggplot(satisfaction_means, aes(x = Satisfaction_Category, y = Mean_Score)) +\n  geom_bar(stat = \"identity\", fill = \"#59CF94\", color = \"#000000\") +\n  geom_text(aes(label = round(Mean_Score, 2)), vjust = -0.5, color = \"black\", size = 3.5) +  # Add mean labels on top of bars\n  labs(\n    title = \"Mean Sanitation Satisfaction Scores\",\n    x = \"Satisfaction Category\",\n    y = \"Mean Score\"\n  ) +\n  theme_minimal() +\n  theme(\n    axis.text.x = element_text(angle = 60, hjust = 1, size = 8)\n  )+\n  ylim(0, 4)\n```\n\n## License\n\nData are available as \n[CC-BY](https://github.com/openwashdata/cleanteamghana/LICENSE.md).\n\n## Citation\n\nTo cite this package, please use: \n\n```{r}\ncitation(\"cleanteamghana\")\n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fopenwashdata%2Fcleanteamghana","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fopenwashdata%2Fcleanteamghana","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fopenwashdata%2Fcleanteamghana/lists"}