• Show All Code
  • Hide All Code

Sub-national orthopaedic trends in independent sector provision of elective care

Alexander Lawless

1 Regional and Local trends: Orthopaedics

1.1 Region

1.1.1 Volume

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…

1.1.2 Independent sector share

stp_data_ortho %>% 
  wrangle_function(., nhser20nm) %>% 
  wrangle_england_reference(.) %>%  
  graph_function_england_ref(.)

create_dt(stp_data_ortho %>% 
  wrangle_function(., nhser20nm) %>% 
  wrangle_england_reference(.))

Graph desc…

Section desc

1.2 ICB

ICB_graph_function(stp_data_ortho, "Orthopaedic")

1.2.1 ICB variation by procedure

1.2.1.1 Elbow

ICB_graph_function(stp_data_ortho %>% 
                     filter(procedure_desc_short == "Elbow"), 
                   "Orthopaedic - Elbow")

Graph desc…

1.2.1.2 Hand

ICB_graph_function(stp_data_ortho %>% 
                     filter(procedure_desc_short == "Hand"), 
                   "Orthopaedic - Hand")

Graph desc…

1.2.1.3 Foot

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…

1.2.1.4 Hip

ICB_graph_function(stp_data_ortho %>% 
                     filter(procedure_desc_short == "Hip"), 
                   "Orthopaedic - Hip")

Graph desc…

1.2.1.5 Knee

ICB_graph_function(stp_data_ortho %>% 
                     filter(procedure_desc_short == "Knee"), 
                   "Orthopaedic - Knee")

Graph desc…

1.2.1.6 Shoulder

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

1.2.2 ICB variation by deprivation

1.2.2.1 Quintile 1

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…

1.2.2.2 Quintile 2

ICB_graph_function(stp_data_ortho %>% 
                     filter(imd_quintile == 2), 
                   "Orthopaedic - IMD quintile 2")

Graph desc…

1.2.2.3 Quintile 3

ICB_graph_function(stp_data_ortho %>% 
                     filter(imd_quintile == 3), 
                   "Orthopaedic - IMD quintile 3")

Graph desc…

1.2.2.4 Quintile 4

ICB_graph_function(stp_data_ortho %>% 
                     filter(imd_quintile == 4), 
                   "Orthopaedic - IMD quintile 4")

Graph desc…

1.2.2.5 Quintile 5

ICB_graph_function(stp_data_ortho %>% 
                     filter(imd_quintile == 5), 
                   "Orthopaedic - IMD quintile 5")

Graph desc…