From 8ba8d7e6c00e707c3e7e6a4b1bb85e906da94f18 Mon Sep 17 00:00:00 2001 From: Matthew Gwynfryn Thomas Date: Fri, 19 Jul 2024 19:56:27 +0100 Subject: [PATCH] Use only England totals --- data-raw/england_mental_health_performance.R | 3 +++ data/england_mental_health_performance.rda | Bin 1239 -> 1181 bytes 2 files changed, 3 insertions(+) diff --git a/data-raw/england_mental_health_performance.R b/data-raw/england_mental_health_performance.R index 207e3c1..fa7056b 100644 --- a/data-raw/england_mental_health_performance.R +++ b/data-raw/england_mental_health_performance.R @@ -35,6 +35,7 @@ raw_historical <- read_csv(file.path(tempdir(), "MHSDS Time_Series_data_Apr_2016 mh_historical <- raw_historical |> + filter(BREAKDOWN == "England") |> filter(MEASURE_NAME %in% measures_to_keep) |> select( date = REPORTING_PERIOD_END, @@ -54,6 +55,7 @@ raw_2023 <- read_csv(file.path(tempdir(), "MHSDS Time_Series_data_Apr_2023_MarFi mh_2023 <- raw_2023 |> + filter(BREAKDOWN == "England") |> filter(MEASURE_NAME %in% measures_to_keep) |> select( date = REPORTING_PERIOD_END, @@ -72,6 +74,7 @@ raw_2024 <- read_csv(file.path(tempdir(), "MHSDS Time_Series_data_Apr_2024.csv") mh_2024 <- raw_2024 |> + filter(BREAKDOWN == "England") |> filter(MEASURE_NAME %in% measures_to_keep) |> select( date = REPORTING_PERIOD_END, diff --git a/data/england_mental_health_performance.rda b/data/england_mental_health_performance.rda index 8570734ea3011217fb65c700fbba6ac40eec674c..d1c896c6a71e6c09bf68096b16b9b75cfa65e50a 100644 GIT binary patch literal 1181 zcmV;O1Y-L_T4*^jL0KkKSuN86TmS|2|NsB@|Ns3fU;o{g|LOnt-`;Ki`}elhz59Pl ze%9>o%iqugx#srtyV<}yC_+?d4Kx4%0009(000000000000000&;SEKGzNn~>J0{w zPYIHmndL#X8ayeWWB@c8G}Az64H^SOL(~8b0MN*227np>XaHzv&@|BX05WOn5l{6h zqeDha0WxU9X{IKcWW-@KX@VIB0WxG@h9-tgKx7!28fm5@1Z2QNMnR@c28^0y0OT42 zO#?$rjDQ(54GamRKx6|$K+pl83;_c{pa3*9007aG2mk;BKq8cyG$_=2NE#*tW|~dv zm?nXN4GfwXn3))u1U)CIh`>e=#L&@z5X5A_CYm(U0vG~l$WB-ns;CO8stBr}D2ga3 zfU2sXimC#LqJoMj3aTA0_qEP5iA!B=hmn~BHO=dIaB?$$4-n2SOdy4g$Rt#}MGM^W z!tDrX{n$I*>1iN@APm&1=gJlnBG|#;!&yR4w@)VK07cMMnkI=PlSdYy0nkhVatNdV z2!N0PD9ae3%5$(PYDz8{nP#5~fxnW@vAoaW*<)XF+$W*=^RXgf4sIkla%9HUcM|Wo z%dSt@GA`Nr>9Ppwm~LE}@|e%o$yqB%Ehua5wYi-OLD*|-|80k3AFbp5wCiQ|I&dha zq7^IBF%bVzXn~diM#2HeueDMj7R15YlYm4Dl+<&_gTIz)1a`In7=N+GL9Bp9D+*G8 z8gPuTB|nxxbudwcC_>Mnlk8zcY`hyV+4mtfe_OUqfE znhudlIt@M^TtwzkjEZ`<^%vNt_KV_%?Pd_04HBHTLa9U zAOqu3Kp4HC4@CfNGz12|!xw0+;8#wzpbaDefdQXbfH_$-$OAF}^n?c@fHIWO2IXz2 zfHQ0>kOwCfpn?@KT{HoxfHI&B6amK|4PHIQ%bRf4+_1-TDZ3;;|09|P~fh`lng&%$ZOQ;dP7YxG@3I(JsMBS29%LJ!YQNEMuKlrG|17Q(@#@q(qdsVMD&d^WYOv{ zCQO({6A_aEpd$c=2xu}e5Za!mCTe8DZ3dpDNwTMudVm4y06jp+0iXZ?27mwn0qOt% z0000q8USeZ00T_})HDPcG|8aE8UWA$8X5y3h-shz$%&?bG-zl6pv2QdKpFr500RWj z8Z2>(W#9zjEqc!O)>z`G8!5H#LH2 z%cAnq&9dEVmDWgPab+?_1s2&V?1naoc%97-ClaeLg%Bl+IX>}0Di%!EkyM6}1L<~; z$r4PNrOv`aJHEiHB$8=xpl%?FFaZz}2m%VF_q^5_zZ2Ffgzw?gPO@mP6;?9Ic5f>W zfIrXOg0aW2`>mOi=u)G2WSigGa{1TUFE=faSV6=H0Dxz$?Vu0<0hqNieiIvIkNO0N zfCrIF{Nxk*)8iWy_HH0Do%a~=XRVw{A|Y|PG|Fs1vxqSyEP&I3Ov#*P-`L$P?t$lq zOv$;j9zDkqgO3$?GSi$|d&Nj>X5R^7t3D5hW{R+Av2AT_SF3}+x4qNApA-q&piLwR zvVkdqG!Q3k0%PDxAWS{qBhm8pCBS(~=+PD7O$da|k0o;!4ZhWRE$};VY0!c~B*Ju& zD+l0Eh$Atu2tn7RctoR$jA#U|MLD9&`I`u z{}k4~&6B}0s@BQpum}?aFeU^D7!V*p48WKWAYed&2ta`)@-!qtl1YhAG-;F)qFM+= zKVo=1hs!w z1PMh@B|knQ1g5kJcLH3%m7q-)8U(F|_B1zE@Fm0vW(2iyg|7lsf>-${fhj>R=s_xh zE|=HTz?V=Z6rh@Y)n%v?A#Q;!KqYDvHxK|4M)CjxabUGm702^6+U(4>`?US7`fM+% zgIe^jS#9R)PHV+o(w?t@I)}B(mMH$SLvDn|WoRQnU15ev>=#8oW~*IOeGiM1Ch?r$ zdwhd(rRQcayF_b=xDR{rt-j3TO*Dm(1zAxCc~#e_;cHHk{OF!7cC=sr7N$l1a(&oU zNTSu{7A;csI2>fCo}n|*05Z%V0NyZwIKlw4j37vwdA&Bw&abxeDLH}sGg(+M*fv%# zL1G8oyVRV$a+h