Interactive maps

Epidemiology of epilepsy surgery in USA 2006-2019

In the following maps we present state-specific data on the proportion of patients who underwent resective epilepsy surgery

# install.packages("ggplot2")
library(ggplot2)

# install.packages("plotly")
library(plotly)

# install.packages("maps")
library(maps)

Interactive Figure 1

Proportion = Number of patients who underwent resective epilepsy surgery / Number of patients with refractory epilepsy

# Interactive map patient resective epilepsy surgery versus refractory epilepsy
interactive_map_resective_epilepsy_surgery_over_refractory_epilepsy <- ggplot(geolocation_data_interactive, aes(long, lat, group=group)) +
  geom_polygon(aes(fill=resective_epilepsy_surgery_over_refractory_epilepsy), color="white") +
  scale_fill_distiller(palette="Purples", direction="horizontal", limits=c(0, 0.17), name="Proportion") +
    theme(panel.background=element_blank(), panel.grid.major=element_blank(),        panel.grid.minor=element_blank(), panel.border=element_blank(), axis.ticks=element_blank(), axis.text=element_blank(), axis.title=element_blank())
interactive_map_resective_epilepsy_surgery_over_refractory_epilepsy <- ggplotly(interactive_map_resective_epilepsy_surgery_over_refractory_epilepsy)
interactive_map_resective_epilepsy_surgery_over_refractory_epilepsy

The map above shows the proportion of patients with refractory epilepsy who underwent resective epilepsy surgery. Hover over the map to see the state-specific data.

Interactive Figure 2

Proportion = Number of patients who underwent resective epilepsy surgery / Number of patients with refractory focal epilepsy

# Interactive map patient resective epilepsy surgery versus refractory focal epilepsy
interactive_map_resective_epilepsy_surgery_over_refractory_focal_epilepsy <- ggplot(geolocation_data_interactive, aes(long, lat, group=group)) +
  geom_polygon(aes(fill=resective_epilepsy_surgery_over_refractory_focal_epilepsy), color="white") +
  scale_fill_distiller(palette="Purples", direction="horizontal", limits=c(0, 0.17), name="Proportion") +
    theme(panel.background=element_blank(), panel.grid.major=element_blank(),        panel.grid.minor=element_blank(), panel.border=element_blank(), axis.ticks=element_blank(), axis.text=element_blank(), axis.title=element_blank())
interactive_map_resective_epilepsy_surgery_over_refractory_focal_epilepsy <- ggplotly(interactive_map_resective_epilepsy_surgery_over_refractory_focal_epilepsy)
interactive_map_resective_epilepsy_surgery_over_refractory_focal_epilepsy

The map above shows the proportion of patients with refractory focal epilepsy who underwent resective epilepsy surgery. Hover over the map to see the state-specific data.