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

1 Regional and Local trends: Opthalmology

---

1.1 Region

1.1.1 Volume

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…

1.1.2 Independent sector share

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

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

Graph desc…

Section desc

---

1.2 ICB

ICB_graph_function(stp_data_ophthal, "Ophthalmology")

1.2.1 ICB variation by procedure

1.2.1.1 Cataract

ICB_graph_function(stp_data_ophthal %>% 
                     filter(procedure_desc_short == "Cataract"), 
                   "Ophthalmology - Cataract")

Graph desc…

1.2.1.2 Vitreous Retinal

ICB_graph_function(stp_data_ophthal %>% 
                     filter(procedure_desc_short == "Vitreous Retinal"), 
                   "Ophthalmology - Vitreous Retinal")

Graph desc…

1.2.1.3 Glaucoma

ICB_graph_function(stp_data_ophthal %>% 
                     filter(procedure_desc_short == "Glaucoma"), 
                   "Ophthalmology - Glaucoma")

Graph desc…

Section desc

1.2.2 ICB variation by deprivation

1.2.2.1 Quintile 1

ICB_graph_function(stp_data_ophthal %>% 
                     filter(imd_quintile == 1), 
                   "Ophthalmology - IMD quintile 1")

Graph desc…

1.2.2.2 Quintile 2

ICB_graph_function(stp_data_ophthal %>% 
                     filter(imd_quintile == 2), 
                   "Ophthalmology - IMD quintile 2")

Graph desc…

1.2.2.3 Quintile 3

ICB_graph_function(stp_data_ophthal %>% 
                     filter(imd_quintile == 3), 
                   "Ophthalmology - IMD quintile 3")

Graph desc…

1.2.2.4 Quintile 4

ICB_graph_function(stp_data_ophthal %>% 
                     filter(imd_quintile == 4), 
                   "Ophthalmology - IMD quintile 4")

Graph desc…

1.2.2.5 Quintile 5

ICB_graph_function(stp_data_ophthal %>% 
                     filter(imd_quintile == 5), 
                   "Ophthalmology - IMD quintile 5")

Graph desc…

Section desc

2 Next: Local findings

Sub-national orthopaedic results: https://alexanderlawless.github.io/Independent_sector_provision/markdown_regional_local_results_orthopaedic.html