library(dplyr)
library(sf)
#Import Cambodia country border
<- st_read("data_cambodia/cambodia.gpkg", layer = "country", quiet = TRUE)
country #Import provincial administrative border of Cambodia
<- st_read("data_cambodia/cambodia.gpkg", layer = "education", quiet = TRUE)
education #Import district administrative border of Cambodia
<- st_read("data_cambodia/cambodia.gpkg", layer = "district", quiet = TRUE)
district
# Import locations of cases from an imaginary disease
<- st_read("data_cambodia/cambodia.gpkg", layer = "cases", quiet = TRUE)
cases <- subset(cases, Disease == "W fever") cases
7 Basic statistics for spatial analysis
This section aims at providing some basic statistical tools to study the spatial distribution of epidemiological data.
7.1 Import and visualize epidemiological data
In this section, we load data that reference the cases of an imaginary disease throughout Cambodia. Each point correspond to the geolocalisation of a case.
The first step of any statistical analysis always consists on visualizing the data to check they were correctly loaded and to observe general pattern of the cases.
# View the cases object
head(cases)
Simple feature collection with 6 features and 2 fields
Geometry type: MULTIPOINT
Dimension: XY
Bounding box: xmin: 255891 ymin: 1179092 xmax: 506647.4 ymax: 1467441
Projected CRS: WGS 84 / UTM zone 48N
id Disease geom
1 0 W fever MULTIPOINT ((280036.2 12841...
2 1 W fever MULTIPOINT ((451859.5 11790...
3 2 W fever MULTIPOINT ((255891 1467441))
4 5 W fever MULTIPOINT ((506647.4 12322...
5 6 W fever MULTIPOINT ((440668 1197958))
6 7 W fever MULTIPOINT ((481594.5 12714...
# Map the cases
library(mapsf)
mf_map(x = district, border = "white")
mf_map(x = country,lwd = 2, col = NA, add = TRUE)
mf_map(x = cases, lwd = .5, col = "#990000", pch = 20, add = TRUE)
In epidemiology, the true meaning of point is very questionable. If it usually gives the location of an observation, its not clear if this observation represents an event of interest (e.g. illness, death, …) or a person at risk (e.g. a participant that may or may not experience the disease). Considering a ratio of event compared to a population at risk is often more informative than just considering cases. Administrative divisions of countries appears as great areal units for cases aggregation since they make available data on population count and structures. In this study, we will use the district as the areal unit of the study.
# Aggregate cases over districts
$cases <- lengths(st_intersects(district, cases)) district
The incidence (\(\frac{cases}{population}\)) is commonly use to represent cases distribution related to population density but other indicators exists. As example, the standardized incidence ratios (SIRs) represents the deviation of observed and expected number of cases and is expressed as \(SIR = \frac{Y_i}{E_i}\) with \(Y_i\), the observed number of cases and \(E_i\), the expected number of cases. In this study, we computed the expected number of cases in each district by assuming infections are homogeneously distributed across Cambodia, i.e. the incidence is the same in each district. The SIR therefore represents the deviation of incidence compared to the averaged average incidence across Cambodia.
# Compute incidence in each district (per 100 000 population)
$incidence <- district$cases/district$T_POP * 100000
district
# Compute the global risk
<- sum(district$cases)/sum(district$T_POP)
rate
# Compute expected number of cases
$expected <- district$T_POP * rate
district
# Compute SIR
$SIR <- district$cases / district$expected district
par(mfrow = c(1, 3))
# Plot number of cases using proportional symbol
mf_map(x = district)
mf_map(
x = district,
var = "cases",
val_max = 50,
type = "prop",
col = "#990000",
leg_title = "Cases")
mf_layout(title = "Number of cases of W Fever")
# Plot incidence
mf_map(x = district,
var = "incidence",
type = "choro",
pal = "Reds 3",
leg_title = "Incidence \n(per 100 000)")
mf_layout(title = "Incidence of W Fever")
# Plot SIRs
# create breaks and associated color palette
<- c(0, exp(mf_get_breaks(log(district$SIR), nbreaks = 8, breaks = "pretty")))
break_SIR <- c("#273871", "#3267AD", "#6496C8", "#9BBFDD", "#CDE3F0", "#FFCEBC", "#FF967E", "#F64D41", "#B90E36")
col_pal
mf_map(x = district,
var = "SIR",
type = "choro",
breaks = break_SIR,
pal = col_pal,
cex = 2,
leg_title = "SIR")
mf_layout(title = "Standardized Incidence Ratio of W Fever")
These maps illustrates the spatial heterogenity of the cases. The incidence shows how the disease vary from one district to another while the SIR highlight districts that have :
higher risk than average (SIR > 1) when standardized for population
lower risk than average (SIR < 1) when standardized for population
average risk (SIR ~ 1) when standardized for population
In this example, we standardized the cases distribution for population count. This simple standardization assume that the risk of contracting the disease is similar for each person. However, assumption does not hold for all diseases and for all observed events since confounding effects can create nuisance into the interpretations (e.g. the number of childhood illness and death outcomes in a district are usually related to the age pyramid) and you should keep in mind that other standardization can be performed based on variables known to have an effect but that you don’t want to analyze (e.g. sex ratio, occupations, age pyramid).
7.2 Cluster analysis
Since this W fever seems to have a heterogeneous distribution across Cambodia, it would be interesting to study where excess of cases appears, i.e. to identify clusters of the disease. The definition of clusters emcompass many XXXXXXX
The first question is to wonder if data are auto correlated or spatially independent, i.e. study if neighboring districts are likely to have similar incidence.
7.2.1 Test for spatial autocorrelation (Moran’s I test)
A popular test for spatial autocorrelation is the Moran’s test. This test tells us whether nearby units tend to exhibit similar incidences. It ranges from -1 to +1. A value of -1 denote that units with low rates are located near other units with high rates, while a Moran’s I value of +1 indicates a concentration of spatial units exhibiting similar rates.
In statistics, problems are usually expressed by defining two hypothesis : the null hypothesis (H0), i.e. an a priori hypothesis of the studied phenomenon (e.g. the situation is a random) and the alternative hypothesis (HA), e.g. the situation is not random. The main principle is to measure how likely the observed situation belong to the ensemble of situation that are possible under the H0 hypothesis.
The Moran’s statistics is :
\[I = \frac{N}{\sum_{i=1}^N\sum_{j=1}^Nw_{ij}}\frac{\sum_{i=1}^N\sum_{j=1}^Nw_{ij}(Y_i-\bar{Y})(Y_j - \bar{Y})}{\sum_{i=1}^N(Y_i-\bar{Y})^2}\] with :
\(N\): the number of polygons,
\(w_{ij}\): is a matrix of spatial weight with zeroes on the diagonal (i.e., \(w_{ii}=0\)). For example, if polygons are neighbors, the weight takes the value \(1\) otherwise it take the value \(0\).
\(Y_i\): the variable of interest,
\(\bar{Y}\): the mean value of \(Y\).
Under the Moran’s test, the statistics hypothesis are :
H0 : the distribution of cases is spatially independent, i.e. \(I=0\).
H1: the distribution of cases is spatially autocorrelated, i.e. \(I\ne0\).
We will compute the Moran’s statistics using spdep
and Dcluster
packages. spdep
package provides a collection of functions to analyze spatial correlations of polygons and works with sp objects. In this example, we use poly2nb()
and nb2listw()
. These function respectively detect the neighboring polygons and assign weight corresponding to \(1/\#\ of\ neighbors\). Dcluster
package provides a set of functions for the detection of spatial clusters of disease using count data.
library(spdep) # Functions for creating spatial weight, spatial analysis
library(DCluster) # Package with functions for spatial cluster analysis
<- poly2nb(district) # Neighbors according to queen case
queen_nb <- nb2listw(queen_nb, style = 'W') # row-standardized weights
q_listw
# Moran's I test
<- moranI.test(cases ~ offset(log(expected)),
m_test data = district,
model = 'poisson',
R = 499,
listw = q_listw,
n = length(district$cases), # number of regions
S0 = Szero(q_listw)) # Global sum of weights
print(m_test)
Moran's I test of spatial autocorrelation
Type of boots.: parametric
Model used when sampling: Poisson
Number of simulations: 499
Statistic: 0.1566449
p-value : 0.01
plot(m_test)
The Moran’s statistics is here \(I =\) 0.16. When comparing its value to the H0 distribution (built under 499 simulations), the probability of observing such a I value under the null hypothesis, i.e. the distribution of cases is spatially independent, is \(p_{value} =\) 0.01. We therefore reject H0 with error risk of \(\alpha = 5\%\). The distribution of cases is therefore autocorrelated across districts in Cambodia.
In mathematics, a probability distribution is a mathematical expression that represents what we would expect due to random chance. The choice of the probability distribution relies on the type of data you use (continuous, count, binary). In general, three distribution a used while studying disease rates, the binomial, the poisson and the Poisson-gamma mixture (a.k.a negative binomial) distributions.
The default Global Moran’s I test assume data are normally distributed. It implies that the mean However, in epidemiology, rates and count values are usually not normally distributed and their variance is not homogeneous across the districts since the size of population at risk differs. to be the same since more variability occurs when we study smaller populations.
While many measures may be appropriately assessed under the normality assumptions of the previous Global Moran’s I, in general disease rates are not best assessed this way. This is because the rates themselves may not be normally distributed, but also because the variance of each rate likely differs because of different size population at risk. For example the previous test assumed that we had the same level of certainty about the rate in each county, when in fact some counties have very sparse data (with high variance) and others have adequate data (with relatively lower variance).
# dataset statistics
<- mean(district$cases)
m_cases <- sd(district$cases)
sd_cases
curve(dnorm(x, m_cases, sd_cases), from = -5, to = 16, ylim = c(0, 0.4), col = "blue", lwd = 1,
xlab = "Number of cases", ylab = "Probability", main = "Histogram of observed data compared\nto Normal and Poisson distributions")
points(0:max(district$cases), dpois(0:max(district$cases), m_cases),type = 'b ', pch = 20, col = "red", ylim = c(0, 0.6), lty = 2)
hist(district$cases, add = TRUE, probability = TRUE)
legend("topright", legend = c("Normal distribution", "Poisson distribution", "Observed distribution"), col = c("blue", "red", "black"),pch = c(NA, 20, NA), lty = c(1, 2, 1))
7.2.2 Spatial scan statistics
While Moran’s indice focuses on testing for autocorrelation between neighboring polygons (under the null assumption of spatial independance), the spatial scan statistic aims at identifying an abnormal higher risk in a given region compared to the risk outside of this region (under the null assumption of homogeneous distribution). The conception of a cluster is therefore different between the two methods.
The function kulldorf
from the package SpatialEpi
is a simple tool to implement spatial-only scan statistics. Briefly, the kulldorf scan statistics scan the area for clusters using several steps:
It create a circular window of observation by defining a single location and an associated radius of the windows varying from 0 to a large number that depends on population distribution (largest radius could includes 50% of the population).
It aggregates the count of events and the population at risk (or an expected count of events) inside and outside the window of observation.
Finally, it computes the likelihood ratio to test whether the risk is equal inside versus outside the windows (H0) or greater inside the observed window
These 3 steps are repeted for each location and each possible windows-radii.
library("SpatialEpi")
The use of R spatial object is not implementes in kulldorf()
function. It uses instead matrix of xy coordinates that represents the centroids of the districts. A given district is included into the observed circular window if its centroids falls into the circle.
<- st_centroid(district) %>%
district_xy st_coordinates()
head(district_xy)
X Y
1 330823.3 1464560
2 749758.3 1541787
3 468384.0 1277007
4 494548.2 1215261
5 459644.2 1194615
6 360528.3 1516339
We can then call kulldorff function (you are strongly encourage to call ?kulldorf
to properly call the function). The alpha.level
threshold filter for the secondary clusters that will be retained. The most-likely cluster will be saved whatever its significance.
<- kulldorff(district_xy,
kd_Wfever cases = district$cases,
population = district$T_POP,
expected.cases = district$expected,
pop.upper.bound = 0.5, # include maximum 50% of the population in a windows
n.simulations = 499,
alpha.level = 0.2)
All outputs are saved into the R object kd_Wfever
. Unfortunately the package did not developed any summary and visualization of the results but we can explore the output object.
names(kd_Wfever)
[1] "most.likely.cluster" "secondary.clusters" "type"
[4] "log.lkhd" "simulated.log.lkhd"
First, we can focus on the most likely cluster and explore its characteristics.
# We can see which districts (r number) belong to this cluster
$most.likely.cluster$location.IDs.included kd_Wfever
[1] 48 93 66 180 133 29 194 118 50 144 31 141 3 117 22 43 142
# standardized incidence ratio
$most.likely.cluster$SMR kd_Wfever
[1] 2.303106
# number of observed and expected cases in this cluster
$most.likely.cluster$number.of.cases kd_Wfever
[1] 122
$most.likely.cluster$expected.cases kd_Wfever
[1] 52.97195
17 districts belong to the cluster and its number of cases is 2.3 times higher than the expected number of case.
Similarly, we could study the secondary clusters. Results are saved in a list.
# We can see which districts (r number) belong to this cluster
length(kd_Wfever$secondary.clusters)
[1] 1
# retrieve data for all secondary clusters into a table
<- data.frame(SMR = sapply(kd_Wfever$secondary.clusters, '[[', 5),
df_secondary_clusters number.of.cases = sapply(kd_Wfever$secondary.clusters, '[[', 3),
expected.cases = sapply(kd_Wfever$secondary.clusters, '[[', 4),
p.value = sapply(kd_Wfever$secondary.clusters, '[[', 8))
print(df_secondary_clusters)
SMR number.of.cases expected.cases p.value
1 3.767698 16 4.246625 0.012
We only have one secondary cluster composed of one district.
# create empty column to store cluster informations
$k_cluster <- NA
district
# save cluster informations from kulldorff outputs
$k_cluster[kd_Wfever$most.likely.cluster$location.IDs.included] <- 'Most likely cluster'
district
for(i in 1:length(kd_Wfever$secondary.clusters)){
$k_cluster[kd_Wfever$secondary.clusters[[i]]$location.IDs.included] <- paste(
district'Secondary cluster ', i, sep = '')
}
# create map
mf_map(x = district,
var = "k_cluster",
type = "typo",
cex = 2,
leg_title = "Clusters")
mf_layout(title = "Cluster using kulldorf scan statistic")
This cluster analysis was performed solely using the spatial