Skip to contents

This article takes a quick tour of the main features of cancerscreening.

Remember to see the articles for more detailed treatment of all these topics and more.

Key Functions for Data Download:

These functions directly call the KHIS server to download the data require the setting of KHIS credentials. See setting the credentials for more information. The get analytics call is supported by three metadata functions that help make the data complete and these include the get_organisation_units_metadata() to show where the data is from and get_data_elements_metadata() to show what the data is about and group the data into various categories.

The cancer screening data that are being tracked breast cancer, cervical cancer, colorectal cancer and laboratory diagnostic data.

Cervical Cancer:

Breast Cancer:

Colorectal Cancer:

Laboratory Data

  • get_lab_fluid_cytology(): Retrieve data on fluid cytology done in the lab. They include Ascitic fluid, cerebral spinal fluid, pleural fluid and urine.
  • get_lab_tissue_histology(): Retrieve data on tissue histology done in the lab. They include Breast, colorectal, oesphageal, head & neck, hepatobiliary, lymph nodes, oral, ovary, prostate, skin and uterine tissues;
  • get_lab_bone_marrow(): Retrieve data on bone marrow done in the lab.
  • get_lab_fna(): Retrieve data on fine-needle aspiration done in the lab. They include breast, liver, lymph node and thyroid.
  • get_lab_smears()Retrieve data on smears done in the lab. They include pap smear, tissue impressions, and touch preparation.

To get the data the following calls can be made

# Get data for those screening for cervical cancer
cervical_screened <- get_cervical_screened('2022-01-01', end_date = '2022-06-30')
cervical_screened
#> # A tibble: 192 × 10
#>    value country element   category period     month  year fiscal_year age_group
#>  * <dbl> <chr>   <fct>     <fct>    <date>     <ord> <dbl> <fct>       <fct>    
#>  1    99 Kenya   Pap Smear Initial… 2022-01-01 Janu…  2022 2021/2022   50+      
#>  2     4 Kenya   HPV       Routine… 2022-01-01 Janu…  2022 2021/2022   <25      
#>  3   133 Kenya   Pap Smear Initial… 2022-04-01 April  2022 2021/2022   50+      
#>  4    19 Kenya   VIA       Post-tr… 2022-06-01 June   2022 2021/2022   <25      
#>  5   127 Kenya   HPV       NA       2022-03-01 March  2022 2021/2022   50+      
#>  6   231 Kenya   Pap Smear Initial… 2022-05-01 May    2022 2021/2022   50+      
#>  7     1 Kenya   HPV       Routine… 2022-05-01 May    2022 2021/2022   <25      
#>  8    27 Kenya   HPV       Initial… 2022-03-01 March  2022 2021/2022   50+      
#>  9   274 Kenya   Pap Smear Initial… 2022-06-01 June   2022 2021/2022   50+      
#> 10   444 Kenya   HPV       NA       2022-01-01 Janu…  2022 2021/2022   50+      
#> # ℹ 182 more rows
#> # ℹ 1 more variable: source <fct>

# Get data for those screening for colorectal cancer using FOBT
colorectal_screened <- get_colorectal_fobt('2022-01-01', end_date = '2022-06-30')
colorectal_screened
#> # A tibble: 29 × 9
#>    value country element  age_group period     month     year fiscal_year source
#>    <dbl> <chr>   <chr>    <fct>     <date>     <ord>    <dbl> <fct>       <chr> 
#>  1     4 Kenya   Positive 65-75     2022-02-01 February  2022 2021/2022   MOH 7…
#>  2     5 Kenya   Positive 65-75     2022-04-01 April     2022 2021/2022   MOH 7…
#>  3     9 Kenya   Positive 65-75     2022-03-01 March     2022 2021/2022   MOH 7…
#>  4    13 Kenya   Negative 45-54     2022-03-01 March     2022 2021/2022   MOH 7…
#>  5     2 Kenya   Positive 45-54     2022-02-01 February  2022 2021/2022   MOH 7…
#>  6    24 Kenya   Negative 55-64     2022-03-01 March     2022 2021/2022   MOH 7…
#>  7     5 Kenya   Negative 55-64     2022-04-01 April     2022 2021/2022   MOH 7…
#>  8     5 Kenya   Negative 45-54     2022-02-01 February  2022 2021/2022   MOH 7…
#>  9    44 Kenya   Negative 45-54     2022-04-01 April     2022 2021/2022   MOH 7…
#> 10    39 Kenya   Positive 55-64     2022-04-01 April     2022 2021/2022   MOH 7…
#> # ℹ 19 more rows

# Get data for those screening for breast cancer using mammogram
breast_screened <- get_breast_mammogram('2022-01-01', end_date = '2022-06-30')
breast_screened
#> # A tibble: 19 × 10
#>    value country element    age_group period     month   year fiscal_year source
#>    <dbl> <chr>   <fct>      <fct>     <date>     <ord>  <dbl> <fct>       <chr> 
#>  1    11 Kenya   BIRADS 0-3 35-39     2022-04-01 April   2022 2021/2022   MOH 7…
#>  2     7 Kenya   BIRADS 0-3 56-74     2022-02-01 Febru…  2022 2021/2022   MOH 7…
#>  3     3 Kenya   BIRADS 0-3 35-39     2022-03-01 March   2022 2021/2022   MOH 7…
#>  4     1 Kenya   BIRADS 5   56-74     2022-04-01 April   2022 2021/2022   MOH 7…
#>  5    16 Kenya   BIRADS 0-3 56-74     2022-03-01 March   2022 2021/2022   MOH 7…
#>  6     1 Kenya   BIRADS 0-3 25-34     2022-05-01 May     2022 2021/2022   MOH 7…
#>  7     3 Kenya   BIRADS 0-3 40-55     2022-05-01 May     2022 2021/2022   MOH 7…
#>  8     6 Kenya   BIRADS 6   35-39     2022-06-01 June    2022 2021/2022   MOH 7…
#>  9     2 Kenya   BIRADS 0-3 40-55     2022-06-01 June    2022 2021/2022   MOH 7…
#> 10     1 Kenya   BIRADS 0-3 40-55     2022-04-01 April   2022 2021/2022   MOH 7…
#> 11     2 Kenya   BIRADS 0-3 25-34     2022-03-01 March   2022 2021/2022   MOH 7…
#> 12     1 Kenya   BIRADS 4   40-55     2022-03-01 March   2022 2021/2022   MOH 7…
#> 13    11 Kenya   BIRADS 0-3 40-55     2022-02-01 Febru…  2022 2021/2022   MOH 7…
#> 14     2 Kenya   BIRADS 0-3 35-39     2022-02-01 Febru…  2022 2021/2022   MOH 7…
#> 15     1 Kenya   BIRADS 4   40-55     2022-04-01 April   2022 2021/2022   MOH 7…
#> 16     1 Kenya   BIRADS 0-3 56-74     2022-06-01 June    2022 2021/2022   MOH 7…
#> 17    11 Kenya   BIRADS 0-3 40-55     2022-03-01 March   2022 2021/2022   MOH 7…
#> 18     6 Kenya   BIRADS 5   35-39     2022-06-01 June    2022 2021/2022   MOH 7…
#> 19     2 Kenya   BIRADS 0-3 56-74     2022-05-01 May     2022 2021/2022   MOH 7…
#> # ℹ 1 more variable: category <fct>

Target Population Functions:

These functions do not require to access the KHIS server the project and calculate the target population guided the Kenya housing and population census 2019 and the Kenya National Cancer Screening guidelines 2019.

The functions include: get_cervical_target_population(), get_colorectal_target_population(), get_breast_cbe_target_population() and get_breast_mammogram_target_population().

If these function do not meet your criteria you can make your target population using the get_filtered_population().

# Get the cervical screening target population for 2022
cervical_target_population <- get_cervical_target_population(2022)
cervical_target_population
#> # A tibble: 1 × 2
#>   country   target
#>   <chr>      <dbl>
#> 1 Kenya   1112735.

# Get the colorectal cancer screening target population for 20223 by county
colorectal_target_population <- get_colorectal_target_population(2023, level = 'county')
colorectal_target_population
#> # A tibble: 47 × 3
#> # Groups:   country [1]
#>    country county          target
#>    <chr>   <fct>            <dbl>
#>  1 Kenya   Baringo          8277.
#>  2 Kenya   Bomet           10887.
#>  3 Kenya   Bungoma         21427.
#>  4 Kenya   Busia           12263.
#>  5 Kenya   Elgeyo Marakwet  6050.
#>  6 Kenya   Embu            12288.
#>  7 Kenya   Garissa          6872.
#>  8 Kenya   Homa Bay        14163.
#>  9 Kenya   Isiolo           2848.
#> 10 Kenya   Kajiado         12606.
#> # ℹ 37 more rows

# Get the population of women 15-49 year for the year 2024
wra_pop <- get_filtered_population(year = 2024, min_age = 15, max_age = 49, pop_sex = 'female')
wra_pop
#> # A tibble: 1 × 2
#>   country    target
#>   <chr>       <dbl>
#> 1 Kenya   13023053.