mainalaban/epi-profile-
Domaine:
healthcaregeospatialCréateur:
mai
Hôte:
This is an epidemiological profile of malaria in kenya, using the open source data sets.
# epi-profile-
This is an epidemiological profile of malaria in kenya, using the open source data sets.
---
title: "Kenya Epi- Profile"
output:
html_document:
toc: true
toc_float: true
theme: cosmo
highlight: tango
df_print: paged
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```
> Last update
> Date: `r format(Sys.time(), '%d %B, %Y')`
> Authors: Laban Mwangi Maina
***
```{r load libraries and function, include=FALSE, eval=TRUE}
library(raster)
library(ggplot2)
library(dplyr)
library(sf)
library(geodata)
library(rKenyaCensus)
library(terra)
library(leaflet)
library(readxl)
library(kableExtra)
library(readr)
library(gridExtra)
library(ggpubr)
library(tidyr)
library(scales)
library(readxl)
library(reshape2)
library(viridis)
library(stringr)
library(afrihealthsites)
library(tibble)
library(tmap)
library(malariaAtlas)
library(rdhs)
library(RColorBrewer)
library(cowplot)
```
## Administrative areas
### Admin 1: Counties
```{r admin map counties, fig.height = 5, fig.width=4.5}
##loading my shapefiles for admin 1
kenya_admin1 %
addProviderTiles("OpenStreetMap") %>%
addPolygons(fillColor = ~pal(ADM1_EN),
color = "blue",
weight = 1,
opacity = 1,
fillOpacity = 0.7,
popup = ~ADM1_EN)
admin1
```
Number of Counties: `r length(kenya_admin1$ADM1_EN)`
### Admin 2: Sub-Counties
```{r admin map Sub-counties, fig.height=5, fig.width= 4.5, warning=FALSE}
##loading my shapefiles for admin 2
kenya_admin2 %
addProviderTiles("OpenStreetMap") %>%
addPolygons(fillColor = ~pal(NAME_2),
color = "black",
weight = 1,
opacity = 1,
fillOpacity = 0.7,
popup = ~NAME_2)
```
Number of Sub-Counties: `r length(kenya_admin2$NAME_2)`
```{r Print table with number of sub-counties per county}
kable(table(kenya_admin2$NAME_1),
col.names = c("County", "Number of Sub-counties"),
align = "lc") %>%
kable_styling(bootstrap_options = "striped")
```
***
## Climate
### Historical Temperature and Precipitation
The climate data was e …