https://www.england.nhs.uk/statistics/statistical-work-areas/ae-waiting-times-and-activity/ae-attendances-and-emergency-admissions-2020-21/
A and E waiting times and activity
library(readxl)
library(lubridate)
d <- read_excel("Adjusted-Monthly-AE-Time-Series-September-2020.xls",
skip = 17)
d$Period<-ymd(d$Period)
Total attendances
df<-xts(d$`Total Attendances`, order.by = d$Period)
dygraph(df,main="Total Attendances")
Total Emergency Admissions via A&E
df<-xts(d$`Total Emergency Admissions via A&E`, order.by = d$Period)
dygraph(df,main="Total Emergency Admissions via A&E")
Total Emergency Admissions
df<-xts(d$`Total Emergency Admissions`, order.by = d$Period)
dygraph(df,main="Total Emergency Admissions")
Spending >12 hours from decision to admit to admission
df<-xts(d$`Number of patients spending >12 hours from decision to admit to admission`, order.by = d$Period)
dygraph(df,main="Patients spending >12 hours waiting")
Spending >4 hours from decision to admit to admission
df<-xts(d$`Number of patients spending >4 hours from decision to admit to admission`, order.by = d$Period)
dygraph(df,main="Patients spending >4 hours waiting")
By month
d$month<-month(d$Period)
d$Month<-as-factor(d$month)
d$year<-year(d$Period)
d$Year<-as.factor(d$year)
theme_set(theme_bw())
Total Attendances
d %>% filter(year>2017) %>%
ggplot(aes(x=month,y=`Total Attendances`, col=Year) ) + geom_point() + geom_line() + scale_x_continuous(breaks=1:12) + ggtitle("Total Attendances")
Total Emergency Admissions
d %>% filter(year>2017) %>%
ggplot(aes(x=month,y=`Total Emergency Admissions`, col=Year) ) + geom_point() + geom_line() + scale_x_continuous(breaks=1:12) + ggtitle("`Total Emergency Admissions`")
Total Emergency Admissions via A&E
d %>% filter(year>2017) %>%
ggplot(aes(x=month,y=`Total Emergency Admissions via A&E`, col=Year) ) + geom_point() + geom_line() + scale_x_continuous(breaks=1:12) + ggtitle("Total Emergency Admissions via A&E")
>4 hours from decision to admit to admission
d %>% filter(year>2017) %>%
ggplot(aes(x=month,y=`Number of patients spending >4 hours from decision to admit to admission`, col=Year) ) + geom_point() + geom_line() + scale_x_continuous(breaks=1:12) + ggtitle("Patients spending >4 hours from decision to admit to admission")
