stp_data_ortho %>%
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: Orthopaedic",
subtitle = "Monthly elective activity counts | NHSE region | 2018-22")
create_dt(
stp_data_ortho %>%
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_ortho, "Orthopaedic")
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Elbow"),
"Orthopaedic - Elbow")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Hand"),
"Orthopaedic - Hand")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Foot"),
"Orthopaedic - Foot")
## Warning: Removed 2 rows containing non-finite values (stat_smooth).
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Hip"),
"Orthopaedic - Hip")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Knee"),
"Orthopaedic - Knee")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(procedure_desc_short == "Shoulder"),
"Orthopaedic - Shoulder")
## Warning: Removed 2 rows containing non-finite values (stat_smooth).
Graph desc…
Section desc
ICB_graph_function(stp_data_ortho %>%
filter(imd_quintile == 1),
"Orthopaedic - IMD quintile 1")
## Warning: Removed 2 rows containing non-finite values (stat_smooth).
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(imd_quintile == 2),
"Orthopaedic - IMD quintile 2")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(imd_quintile == 3),
"Orthopaedic - IMD quintile 3")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(imd_quintile == 4),
"Orthopaedic - IMD quintile 4")
Graph desc…
ICB_graph_function(stp_data_ortho %>%
filter(imd_quintile == 5),
"Orthopaedic - IMD quintile 5")
Graph desc…