From 7527b82bdb92d54bf47a8dd8e30c234d1cebc78e Mon Sep 17 00:00:00 2001 From: jennajt Date: Thu, 11 Jul 2024 16:32:17 +0100 Subject: [PATCH] Added IMD UK LAD dataset --- R/data.R | 13 ++ data-raw/imd_uk.csv | 383 ++++++++++++++++++++++++++++++++++++++++ data-raw/imd_uk_lad.R | 33 ++++ data-raw/imd_uk_lad.csv | 383 ++++++++++++++++++++++++++++++++++++++++ data/imd_uk.rda | Bin 0 -> 1134 bytes data/imd_uk_lad.rda | Bin 0 -> 1138 bytes man/imd_uk_lad.Rd | 24 +++ 7 files changed, 836 insertions(+) create mode 100644 data-raw/imd_uk.csv create mode 100644 data-raw/imd_uk_lad.R create mode 100644 data-raw/imd_uk_lad.csv create mode 100644 data/imd_uk.rda create mode 100644 data/imd_uk_lad.rda create mode 100644 man/imd_uk_lad.Rd diff --git a/R/data.R b/R/data.R index 986fb49..9a2d729 100644 --- a/R/data.R +++ b/R/data.R @@ -1077,3 +1077,16 @@ NULL #' } #' @source \url{https://www.gov.uk/} "imd2004_msoa11_england" + +#' Index of Multiple Deprivation (multiple years) for LAD in UK +#' +#' A data set containing IMD deciles for the UK. Each nation deciled separately. +#' +#' @format A data frame of class "tbl" with 382 rows and 2 variables: +#' \describe{ +#' \item{lad_code}{LAD equivalent code} +#' \item{IMD Deciles, 1: most deprived, 10: least deprived}{IMD decile} +#' ... +#' } +#' @source \url{https://www.gov.uk/} +"imd_uk_lad" diff --git a/data-raw/imd_uk.csv b/data-raw/imd_uk.csv new file mode 100644 index 0000000..ee4cc41 --- /dev/null +++ b/data-raw/imd_uk.csv @@ -0,0 +1,383 @@ +lad_code,"IMD Deciles, 1: most deprived, 10: least deprived" +E06000001,1 +E06000002,1 +E06000003,2 +E06000004,3 +E06000005,3 +E06000006,1 +E06000007,5 +E06000008,1 +E06000009,1 +E06000010,1 +E06000011,7 +E06000012,1 +E06000013,4 +E06000014,9 +E06000015,3 +E06000016,2 +E06000017,10 +E06000018,1 +E06000019,5 +E06000020,3 +E06000021,1 +E06000022,9 +E06000023,3 +E06000024,7 +E06000025,9 +E06000026,3 +E06000027,2 +E06000030,5 +E06000031,2 +E06000032,3 +E06000033,4 +E06000034,5 +E06000035,3 +E06000036,10 +E06000037,10 +E06000038,5 +E06000039,4 +E06000040,10 +E06000041,10 +E06000042,6 +E06000043,5 +E06000044,2 +E06000045,2 +E06000046,4 +E06000047,2 +E06000049,7 +E06000050,6 +E06000051,6 +E06000052,4 +E06000053,9 +E06000054,8 +E06000055,5 +E06000056,9 +E06000057,4 +E06000058,6 +E06000059,7 +E07000004,9 +E07000005,10 +E07000006,10 +E07000007,9 +E07000008,7 +E07000009,9 +E07000010,3 +E07000011,8 +E07000012,10 +E07000026,4 +E07000027,1 +E07000028,4 +E07000029,3 +E07000030,6 +E07000031,8 +E07000032,6 +E07000033,3 +E07000034,3 +E07000035,9 +E07000036,5 +E07000037,7 +E07000038,6 +E07000039,7 +E07000040,8 +E07000041,6 +E07000042,6 +E07000043,5 +E07000044,8 +E07000045,7 +E07000046,4 +E07000047,6 +E07000061,4 +E07000062,1 +E07000063,7 +E07000064,5 +E07000065,8 +E07000066,4 +E07000067,7 +E07000068,10 +E07000069,6 +E07000070,8 +E07000071,6 +E07000072,7 +E07000073,4 +E07000074,8 +E07000075,9 +E07000076,2 +E07000077,10 +E07000078,7 +E07000079,9 +E07000080,6 +E07000081,4 +E07000082,9 +E07000083,9 +E07000084,8 +E07000085,9 +E07000086,10 +E07000087,10 +E07000088,5 +E07000089,10 +E07000090,4 +E07000091,8 +E07000092,7 +E07000093,9 +E07000094,10 +E07000095,6 +E07000096,8 +E07000098,8 +E07000099,9 +E07000102,10 +E07000103,7 +E07000105,6 +E07000106,6 +E07000107,5 +E07000108,4 +E07000109,4 +E07000110,6 +E07000111,8 +E07000112,3 +E07000113,2 +E07000114,1 +E07000115,8 +E07000116,9 +E07000117,1 +E07000118,6 +E07000119,7 +E07000120,1 +E07000121,3 +E07000122,2 +E07000123,2 +E07000124,9 +E07000125,3 +E07000126,7 +E07000127,5 +E07000128,5 +E07000129,9 +E07000130,8 +E07000131,10 +E07000132,8 +E07000133,8 +E07000134,7 +E07000135,8 +E07000136,4 +E07000137,2 +E07000138,2 +E07000139,9 +E07000140,6 +E07000141,8 +E07000142,5 +E07000143,5 +E07000144,9 +E07000145,1 +E07000146,4 +E07000147,5 +E07000148,2 +E07000149,8 +E07000150,3 +E07000151,8 +E07000152,8 +E07000153,5 +E07000154,4 +E07000155,10 +E07000156,4 +E07000163,8 +E07000164,9 +E07000165,9 +E07000166,9 +E07000167,7 +E07000168,3 +E07000169,8 +E07000170,3 +E07000171,4 +E07000172,7 +E07000173,7 +E07000174,2 +E07000175,5 +E07000176,10 +E07000177,7 +E07000178,6 +E07000179,10 +E07000180,10 +E07000181,10 +E07000187,6 +E07000188,4 +E07000189,6 +E07000192,5 +E07000193,5 +E07000194,8 +E07000195,5 +E07000196,8 +E07000197,8 +E07000198,7 +E07000199,5 +E07000200,7 +E07000202,3 +E07000203,8 +E07000207,10 +E07000208,10 +E07000209,10 +E07000210,10 +E07000211,9 +E07000212,9 +E07000213,7 +E07000214,10 +E07000215,9 +E07000216,10 +E07000217,9 +E07000218,6 +E07000219,4 +E07000220,8 +E07000221,9 +E07000222,9 +E07000223,6 +E07000224,5 +E07000225,8 +E07000226,5 +E07000227,10 +E07000228,10 +E07000229,6 +E07000234,9 +E07000235,7 +E07000236,4 +E07000237,5 +E07000238,7 +E07000239,4 +E07000240,10 +E07000241,7 +E07000242,10 +E07000243,5 +E07000244,5 +E07000245,6 +E07000246,5 +E08000001,2 +E08000002,4 +E08000003,1 +E08000004,1 +E08000005,1 +E08000006,1 +E08000007,5 +E08000008,1 +E08000009,7 +E08000010,3 +E08000011,1 +E08000012,1 +E08000013,1 +E08000014,2 +E08000015,2 +E08000016,2 +E08000017,2 +E08000018,2 +E08000019,2 +E08000021,2 +E08000022,4 +E08000023,1 +E08000024,2 +E08000025,1 +E08000026,3 +E08000027,3 +E08000028,1 +E08000029,6 +E08000030,1 +E08000031,1 +E08000032,1 +E08000033,3 +E08000034,3 +E08000035,2 +E08000036,2 +E08000037,2 +E09000001,7 +E09000002,1 +E09000003,7 +E09000004,6 +E09000005,3 +E09000006,8 +E09000007,5 +E09000008,4 +E09000009,4 +E09000010,3 +E09000011,3 +E09000012,1 +E09000013,4 +E09000014,2 +E09000015,7 +E09000016,6 +E09000017,6 +E09000018,4 +E09000019,2 +E09000020,4 +E09000021,9 +E09000022,3 +E09000023,3 +E09000024,7 +E09000025,2 +E09000026,6 +E09000027,10 +E09000028,3 +E09000029,8 +E09000030,2 +E09000031,3 +E09000032,6 +E09000033,5 +W06000001,9 +W06000002,10 +W06000003,8 +W06000004,6 +W06000005,9 +W06000006,6 +W06000008,10 +W06000009,8 +W06000010,7 +W06000011,5 +W06000012,2 +W06000013,5 +W06000014,7 +W06000015,3 +W06000016,3 +W06000018,4 +W06000019,1 +W06000020,4 +W06000021,10 +W06000022,1 +W06000023,9 +W06000024,2 +S12000005,3 +S12000006,7 +S12000008,3 +S12000010,8 +S12000011,9 +S12000013,10 +S12000014,5 +S12000017,7 +S12000018,1 +S12000019,6 +S12000020,9 +S12000021,1 +S12000023,10 +S12000026,8 +S12000027,10 +S12000028,4 +S12000029,4 +S12000030,6 +S12000033,6 +S12000034,10 +S12000035,7 +S12000036,5 +S12000038,3 +S12000039,2 +S12000040,5 +S12000041,8 +S12000042,2 +S12000045,9 +S12000047,4 +S12000048,9 +S12000049,1 +S12000050,2 +N09000001,8 +N09000002,6 +N09000003,2 +N09000004,4 +N09000005,1 +N09000006,5 +N09000007,10 +N09000008,7 +N09000009,10 +N09000010,3 +N09000011,9 diff --git a/data-raw/imd_uk_lad.R b/data-raw/imd_uk_lad.R new file mode 100644 index 0000000..b5a550a --- /dev/null +++ b/data-raw/imd_uk_lad.R @@ -0,0 +1,33 @@ +library(tidyverse) +library(IMD) + +# ---- IMD UK ---- +# Higher score = more deprived +# Higher decile = more deprived +# Each nation deciled separately + +imd_eng <- + imd_england_lad |> + select(Code = lad_code, imd_score = Score) |> + mutate(imd_deciles = ntile(imd_score, 10)) + +imd_wales <- imd_wales_lad |> + select(Code = lad_code, imd_score = Extent) |> + mutate(imd_deciles = ntile(imd_score, 10)) + +imd_scotland <- imd_scotland_lad |> + select(Code = lad_code, imd_score = Extent) |> + mutate(imd_deciles = ntile(imd_score, 10)) + +imd_ni <- imd_northern_ireland_lad |> + select(Code = lad_code, imd_score = Extent) |> + mutate(imd_deciles = ntile(imd_score, 10)) + +imd_uk_lad <- rbind(imd_eng, imd_wales, imd_scotland, imd_ni) |> + mutate(`IMD Deciles, 1: most deprived, 10: least deprived` = 11-imd_deciles) |> + select(lad_code = Code, + `IMD Deciles, 1: most deprived, 10: least deprived`) + +# Save output to data/ folder +usethis::use_data(imd_uk_lad, overwrite = TRUE) +readr::write_csv(imd_uk_lad, "data-raw/imd_uk_lad.csv") diff --git a/data-raw/imd_uk_lad.csv b/data-raw/imd_uk_lad.csv new file mode 100644 index 0000000..ee4cc41 --- /dev/null +++ b/data-raw/imd_uk_lad.csv @@ -0,0 +1,383 @@ +lad_code,"IMD Deciles, 1: most deprived, 10: least deprived" +E06000001,1 +E06000002,1 +E06000003,2 +E06000004,3 +E06000005,3 +E06000006,1 +E06000007,5 +E06000008,1 +E06000009,1 +E06000010,1 +E06000011,7 +E06000012,1 +E06000013,4 +E06000014,9 +E06000015,3 +E06000016,2 +E06000017,10 +E06000018,1 +E06000019,5 +E06000020,3 +E06000021,1 +E06000022,9 +E06000023,3 +E06000024,7 +E06000025,9 +E06000026,3 +E06000027,2 +E06000030,5 +E06000031,2 +E06000032,3 +E06000033,4 +E06000034,5 +E06000035,3 +E06000036,10 +E06000037,10 +E06000038,5 +E06000039,4 +E06000040,10 +E06000041,10 +E06000042,6 +E06000043,5 +E06000044,2 +E06000045,2 +E06000046,4 +E06000047,2 +E06000049,7 +E06000050,6 +E06000051,6 +E06000052,4 +E06000053,9 +E06000054,8 +E06000055,5 +E06000056,9 +E06000057,4 +E06000058,6 +E06000059,7 +E07000004,9 +E07000005,10 +E07000006,10 +E07000007,9 +E07000008,7 +E07000009,9 +E07000010,3 +E07000011,8 +E07000012,10 +E07000026,4 +E07000027,1 +E07000028,4 +E07000029,3 +E07000030,6 +E07000031,8 +E07000032,6 +E07000033,3 +E07000034,3 +E07000035,9 +E07000036,5 +E07000037,7 +E07000038,6 +E07000039,7 +E07000040,8 +E07000041,6 +E07000042,6 +E07000043,5 +E07000044,8 +E07000045,7 +E07000046,4 +E07000047,6 +E07000061,4 +E07000062,1 +E07000063,7 +E07000064,5 +E07000065,8 +E07000066,4 +E07000067,7 +E07000068,10 +E07000069,6 +E07000070,8 +E07000071,6 +E07000072,7 +E07000073,4 +E07000074,8 +E07000075,9 +E07000076,2 +E07000077,10 +E07000078,7 +E07000079,9 +E07000080,6 +E07000081,4 +E07000082,9 +E07000083,9 +E07000084,8 +E07000085,9 +E07000086,10 +E07000087,10 +E07000088,5 +E07000089,10 +E07000090,4 +E07000091,8 +E07000092,7 +E07000093,9 +E07000094,10 +E07000095,6 +E07000096,8 +E07000098,8 +E07000099,9 +E07000102,10 +E07000103,7 +E07000105,6 +E07000106,6 +E07000107,5 +E07000108,4 +E07000109,4 +E07000110,6 +E07000111,8 +E07000112,3 +E07000113,2 +E07000114,1 +E07000115,8 +E07000116,9 +E07000117,1 +E07000118,6 +E07000119,7 +E07000120,1 +E07000121,3 +E07000122,2 +E07000123,2 +E07000124,9 +E07000125,3 +E07000126,7 +E07000127,5 +E07000128,5 +E07000129,9 +E07000130,8 +E07000131,10 +E07000132,8 +E07000133,8 +E07000134,7 +E07000135,8 +E07000136,4 +E07000137,2 +E07000138,2 +E07000139,9 +E07000140,6 +E07000141,8 +E07000142,5 +E07000143,5 +E07000144,9 +E07000145,1 +E07000146,4 +E07000147,5 +E07000148,2 +E07000149,8 +E07000150,3 +E07000151,8 +E07000152,8 +E07000153,5 +E07000154,4 +E07000155,10 +E07000156,4 +E07000163,8 +E07000164,9 +E07000165,9 +E07000166,9 +E07000167,7 +E07000168,3 +E07000169,8 +E07000170,3 +E07000171,4 +E07000172,7 +E07000173,7 +E07000174,2 +E07000175,5 +E07000176,10 +E07000177,7 +E07000178,6 +E07000179,10 +E07000180,10 +E07000181,10 +E07000187,6 +E07000188,4 +E07000189,6 +E07000192,5 +E07000193,5 +E07000194,8 +E07000195,5 +E07000196,8 +E07000197,8 +E07000198,7 +E07000199,5 +E07000200,7 +E07000202,3 +E07000203,8 +E07000207,10 +E07000208,10 +E07000209,10 +E07000210,10 +E07000211,9 +E07000212,9 +E07000213,7 +E07000214,10 +E07000215,9 +E07000216,10 +E07000217,9 +E07000218,6 +E07000219,4 +E07000220,8 +E07000221,9 +E07000222,9 +E07000223,6 +E07000224,5 +E07000225,8 +E07000226,5 +E07000227,10 +E07000228,10 +E07000229,6 +E07000234,9 +E07000235,7 +E07000236,4 +E07000237,5 +E07000238,7 +E07000239,4 +E07000240,10 +E07000241,7 +E07000242,10 +E07000243,5 +E07000244,5 +E07000245,6 +E07000246,5 +E08000001,2 +E08000002,4 +E08000003,1 +E08000004,1 +E08000005,1 +E08000006,1 +E08000007,5 +E08000008,1 +E08000009,7 +E08000010,3 +E08000011,1 +E08000012,1 +E08000013,1 +E08000014,2 +E08000015,2 +E08000016,2 +E08000017,2 +E08000018,2 +E08000019,2 +E08000021,2 +E08000022,4 +E08000023,1 +E08000024,2 +E08000025,1 +E08000026,3 +E08000027,3 +E08000028,1 +E08000029,6 +E08000030,1 +E08000031,1 +E08000032,1 +E08000033,3 +E08000034,3 +E08000035,2 +E08000036,2 +E08000037,2 +E09000001,7 +E09000002,1 +E09000003,7 +E09000004,6 +E09000005,3 +E09000006,8 +E09000007,5 +E09000008,4 +E09000009,4 +E09000010,3 +E09000011,3 +E09000012,1 +E09000013,4 +E09000014,2 +E09000015,7 +E09000016,6 +E09000017,6 +E09000018,4 +E09000019,2 +E09000020,4 +E09000021,9 +E09000022,3 +E09000023,3 +E09000024,7 +E09000025,2 +E09000026,6 +E09000027,10 +E09000028,3 +E09000029,8 +E09000030,2 +E09000031,3 +E09000032,6 +E09000033,5 +W06000001,9 +W06000002,10 +W06000003,8 +W06000004,6 +W06000005,9 +W06000006,6 +W06000008,10 +W06000009,8 +W06000010,7 +W06000011,5 +W06000012,2 +W06000013,5 +W06000014,7 +W06000015,3 +W06000016,3 +W06000018,4 +W06000019,1 +W06000020,4 +W06000021,10 +W06000022,1 +W06000023,9 +W06000024,2 +S12000005,3 +S12000006,7 +S12000008,3 +S12000010,8 +S12000011,9 +S12000013,10 +S12000014,5 +S12000017,7 +S12000018,1 +S12000019,6 +S12000020,9 +S12000021,1 +S12000023,10 +S12000026,8 +S12000027,10 +S12000028,4 +S12000029,4 +S12000030,6 +S12000033,6 +S12000034,10 +S12000035,7 +S12000036,5 +S12000038,3 +S12000039,2 +S12000040,5 +S12000041,8 +S12000042,2 +S12000045,9 +S12000047,4 +S12000048,9 +S12000049,1 +S12000050,2 +N09000001,8 +N09000002,6 +N09000003,2 +N09000004,4 +N09000005,1 +N09000006,5 +N09000007,10 +N09000008,7 +N09000009,10 +N09000010,3 +N09000011,9 diff --git a/data/imd_uk.rda b/data/imd_uk.rda new file mode 100644 index 0000000000000000000000000000000000000000..e0df5a66e5ae1c5ceb515c72737cf4b826a9c70c GIT binary patch literal 1134 zcmV-!1d;nfT4*^jL0KkKSq8X$T>uhq|G@uqOhi-#fAGd57{I?T-+@p7KmpJO5FTJ7 zaCy1ZITHy8+j~>qs;K|~00000009$ZWU5aj28ZgJGynhq000`B(Nx<)lz;|?fB*wS zO#lEi{Zv6y{S`C-8Z-a^00w{o5-CQ~C#2eG4Kxif38A12jTki>^O^kS%tcIeIpI}M zHN;Kbt0^QVRHAsSWurL;3wF@e(7UNd5ow`Oi6K*Wk`kQBN z+h5ylw%!f`NhE*(B$7w~000Yi+h%69B#^WK00000Zr!_Z01dX-8rGKPW+VUr%*@OJ zNhE=7w%b5&W@csp000@kz7TH!Z(FTqB$|>;)zp%rOSQal$1Y5nF~=Nn#Hy@u#~k0i z% z2Ge2!Hzbla+il4tl1AHY$s~=o+ikF500041R0U9qs;nd|VJdM55P=D{nr*2Rkw~P8 zw$zG9o5mI~j@ZU9m1(7_s!Lftzc2tm04hlU0t;U9NhMm=lBBh*@rfk>Ow7#8$B9;P1clu<)Br>)3@9u~cR^xHx@~3MHnQ%U z5?#<*OS%gM*ply>?I(l3e+PW-?{}Q%JqC8$YDoQ#@)*lN5h|{N#Fuo~lJ0`WUDInW z=qNCNNCbeuXFIn0^S^#?cYD^Z?(!G5#0&?;D+;M9q^hv02>_4@0e~<7PTT3d@0{ye zyVkXN&T`wf#5O&lm;(S{1Ofv9BC3^D6Slf|h zo_NzNvc@;tUG~N?w%cP}b+xUoGRo1FuEeUTH>-dI&pkHGlY8e|)!p6SF7CrX+HYKa zB$8MPs;a80s;a7`*E5&SbDeKjeAczAyRgt02d6l6mJ$kBs;Z}5yFQ-xzH^(q-nFZ{ zyW3y@@s?ZZB~(iQK(mThX(ZxQkd%-WK`4+VQ79oLA`%rSkqH1KWD-C^L6HIxLO>)y zBxDH@Bv6nOr>kq+ilLLLl;?tv!++VwI4i%ju3b$+x_ap1?bq(kYT=h#Hj>N?EBoEq zoYUTRYG&{=wU)(Zab$8?pcj?UpQ92-@s;C7AZU_MM@0l><_2=RCadGMP@@4?mwXJJf04=uL zYx`}s+rhv|B#;0El1Tsn00C~>Y|PfAk`{mf0000D+qZ520k+!%TGHIi#DD-9nVEn| zB#vgQelTt~Vx{_2$cDu319NBW^#~g9T5~{Js9Cm+G z$GGjp(x?Lw0BdDIsG@{eh{D1OqFqn|jElgCML-9mYJ$ZG?$8Px$3JP#V8lkFuig27 zcHOqyQ9L_vt8VW4*KAynE=i(RwGjy_rHmw!Uaj7jXjG0xBxoZ|wwn+L8*Q}PXaw77 zu>)zb0UMG@8*R4al1U?Nw&apV+ikYkFaQ7ms;UC0MO9W37BH1Kga|-{+f6pqib$kV zMB8dbBu(QB7{_d57)rF#)m0^|p3jf~AOIC4fB^-sc_fmpYe`aC*7!t{fGVo0s;S}g zo&A2&bDka@YdO|)*Ik3HHrj3j^wr%a((_Y>6c`B$x^Jieh*lU-Sd#97#Fup1%erl4 z-8LkvxdGS^$YvbQUDLro@+Y7BcRe zS$9D}gaSY$1_L?Wx8I%n^LxAAwRd-ry|y4=J}FpLNmV6Pg-}QYfJh7hfC6^kP49f? zTGigQtIl(l-L@gI?F_&e0{|cp7y%Vjs;Hf{(|XqT*EhXud)~9Iy59H2?`eFklY1Zl zQ#|v=nPrwSzS{4$F^#s{8tbjCZE==XjIDMhRY|>E0490qwq%>%I^M4C?)i6i8V1vP z00)e+-$^Q>SONu{QoBhf5~PHrfT{^ZfhvhX2`LbesYHlK0V5!i0ul^}5Q-83 zA^{^HNQokZfSo;BIZ;$H^-`SBQTOohY5ms~o!y0U>uVL&*QUwY;O)?4!#2LwqRb2{ z`P;9Y)!b}