stp_data_ophthal %>%
wrangle_function(., nhser20nm) %>%
filter(!is.nan(prop)) %>%
pivot_longer(cols = c(`Independent Sector`, NHS),
names_to = "sector") %>%
ggplot(aes(x = der_activity_month, y = value, colour = var_1)) +
geom_smooth(method = 'loess', span = 0.4, se = FALSE, size = 1.25) +
facet_grid(name~sector, scales = "free") +
scale_color_SU() +
scale_y_continuous(labels = comma) +
theme(strip.text = element_text(face = "bold"),
strip.background = element_rect(fill = NA, colour = "grey"),
axis.title.x = element_blank()
) +
labs(y = "Activity",
colour = "NHSE region",
title = "Regional activity volumes by care type and sector: Ophthalmology",
subtitle = "Monthly elective activity counts | NHSE region | 2018-22")
create_dt(
stp_data_ophthal %>%
wrangle_function(., nhser20nm) %>%
filter(!is.nan(prop)) %>%
pivot_longer(cols = c(`Independent Sector`, NHS),
names_to = "sector")
)
Graph desc…
Section desc
ICB_graph_function(stp_data_ophthal, "Ophthalmology")
ICB_graph_function(stp_data_ophthal %>%
filter(procedure_desc_short == "Cataract"),
"Ophthalmology - Cataract")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(procedure_desc_short == "Vitreous Retinal"),
"Ophthalmology - Vitreous Retinal")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(procedure_desc_short == "Glaucoma"),
"Ophthalmology - Glaucoma")
Graph desc…
Section desc
ICB_graph_function(stp_data_ophthal %>%
filter(imd_quintile == 1),
"Ophthalmology - IMD quintile 1")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(imd_quintile == 2),
"Ophthalmology - IMD quintile 2")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(imd_quintile == 3),
"Ophthalmology - IMD quintile 3")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(imd_quintile == 4),
"Ophthalmology - IMD quintile 4")
Graph desc…
ICB_graph_function(stp_data_ophthal %>%
filter(imd_quintile == 5),
"Ophthalmology - IMD quintile 5")
Graph desc…
Section desc
Sub-national orthopaedic results: https://alexanderlawless.github.io/Independent_sector_provision/markdown_regional_local_results_orthopaedic.html