This repository has been archived by the owner on Jul 24, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathlad-cartogram-square-2019.R
182 lines (160 loc) · 54.7 KB
/
lad-cartogram-square-2019.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
#
#
# R code for use with the geofacet library
# https://hafen.github.io/geofacet/
#
#
#
# United Kingdom
#
united_kingdom <- data.frame(
row = c(1, 2, 2, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 33, 33, 33, 33, 34, 34),
col = c(11, 9, 11, 10, 10, 11, 12, 10, 11, 12, 9, 10, 11, 7, 8, 9, 10, 6, 7, 8, 9, 10, 11, 12, 13, 14, 8, 9, 10, 11, 1, 2, 3, 8, 9, 10, 11, 12, 1, 2, 3, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 6, 7, 8, 9, 10, 11, 12, 13, 2, 3, 7, 8, 9, 10, 11, 12, 6, 7, 8, 9, 10, 11, 12, 13, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 21, 22, 23, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 3, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 4, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 5, 6, 7, 9, 12, 13, 14, 15, 16, 17, 18, 3, 4, 5, 6, 17, 2, 13),
code = c("S12000027", "S12000013", "S12000023", "S12000017", "S12000020", "S12000034", "S12000033", "S12000048", "S12000042", "S12000041", "S12000030", "S12000005", "S12000047", "S12000035", "S12000039", "S12000045", "S12000014", "S12000018", "S12000038", "S12000011", "S12000049", "S12000050", "S12000040", "S12000036", "S12000019", "S12000010", "S12000021", "S12000008", "S12000029", "E08000022", "N09000005", "N09000004", "N09000008", "S12000028", "S12000006", "S12000026", "E08000023", "E08000024", "N09000006", "N09000009", "N09000001", "E07000029", "E07000026", "E07000028", "E06000057", "E08000021", "E08000037", "E06000001", "N09000002", "N09000007", "N09000003", "E07000027", "E07000031", "E07000030", "E06000047", "E06000005", "E06000004", "E06000002", "E06000003", "N09000010", "N09000011", "E07000121", "E07000122", "E07000163", "E07000166", "E07000164", "E07000168", "E07000128", "E07000123", "E07000124", "E07000117", "E08000032", "E07000165", "E06000014", "E07000167", "E06000009", "E07000126", "E06000008", "E07000120", "E08000005", "E08000033", "E08000035", "E07000169", "E06000011", "E06000010", "E06000012", "E07000119", "E07000118", "E08000001", "E07000125", "E08000004", "E08000034", "E08000016", "E08000036", "E08000017", "E06000013", "E07000142", "E07000137", "E07000127", "E08000013", "E08000010", "E08000006", "E08000002", "E08000008", "E08000019", "E08000018", "E07000034", "E07000033", "E07000138", "E07000136", "E08000014", "E08000011", "E08000009", "E08000003", "E08000007", "E07000032", "E07000038", "E07000170", "E07000174", "E07000171", "E07000139", "E07000140", "E07000147", "E07000144", "E07000145", "E08000012", "E06000006", "E06000007", "E07000037", "E06000015", "E07000036", "E07000172", "E06000018", "E07000173", "E07000141", "E06000031", "E07000010", "E07000146", "E07000149", "E07000148", "E08000015", "E06000050", "E06000049", "E06000021", "E07000035", "E07000134", "E07000039", "E07000176", "E07000175", "E06000017", "E07000011", "E07000012", "E07000008", "E07000009", "E07000143", "E07000203", "E07000244", "W06000001", "E07000195", "E07000197", "E07000198", "E07000132", "E06000016", "E07000130", "E07000133", "E06000055", "E06000056", "E06000032", "E07000099", "E07000242", "E07000245", "E07000200", "E07000202", "W06000003", "W06000004", "W06000005", "E06000051", "E06000020", "E07000192", "E07000193", "E07000129", "E07000135", "E07000150", "E07000153", "E07000096", "E07000240", "E07000243", "E07000095", "E07000073", "E07000077", "E07000067", "E07000071", "E07000076", "W06000002", "W06000008", "W06000006", "E08000031", "E07000196", "E08000030", "E07000194", "E07000199", "E07000131", "E07000154", "E07000152", "E07000103", "E07000098", "E07000241", "E09000010", "E07000072", "E07000068", "E07000070", "E07000074", "W06000010", "W06000024", "W06000018", "W06000023", "E08000027", "E07000234", "E08000028", "E08000025", "E07000218", "E07000151", "E07000155", "E07000156", "E07000102", "E09000015", "E09000003", "E09000014", "E09000031", "E09000026", "E09000016", "E07000066", "E07000075", "W06000009", "W06000011", "W06000012", "W06000016", "W06000020", "W06000019", "E07000235", "E07000239", "E07000236", "E08000029", "E08000026", "E07000219", "E06000042", "E09000017", "E09000009", "E09000005", "E09000007", "E09000019", "E09000012", "E09000025", "E09000002", "E06000034", "E07000069", "E06000033", "W06000013", "W06000015", "W06000022", "W06000021", "E06000019", "E07000237", "E07000238", "E07000222", "E07000220", "E07000177", "E07000004", "E07000006", "E09000018", "E09000013", "E09000020", "E09000033", "E09000001", "E09000030", "E07000107", "E07000109", "E06000035", "W06000014", "E07000080", "E07000081", "E07000083", "E07000221", "E07000181", "E07000178", "E07000005", "E06000039", "E09000027", "E09000032", "E09000022", "E09000028", "E09000023", "E09000011", "E07000111", "E07000115", "E07000113", "E07000106", "E07000114", "E07000082", "E07000078", "E07000079", "E07000180", "E07000179", "E07000007", "E06000040", "E07000213", "E09000021", "E09000024", "E09000008", "E09000006", "E09000004", "E07000116", "E07000110", "E07000105", "E07000112", "E07000108", "E06000024", "E06000023", "E06000025", "E06000030", "E06000037", "E06000038", "E06000041", "E06000036", "E07000212", "E07000207", "E09000029", "E07000208", "E07000211", "E07000215", "E07000065", "E07000064", "E07000043", "E07000246", "E07000188", "E06000022", "E07000187", "E06000054", "E07000084", "E07000089", "E07000092", "E07000214", "E07000217", "E07000209", "E07000210", "E07000226", "E07000228", "E07000061", "E07000062", "E07000046", "E07000042", "E07000040", "E07000189", "E06000058", "E07000091", "E07000093", "E07000086", "E07000094", "E07000090", "E07000085", "E07000216", "E07000227", "E06000043", "E07000063", "E07000047", "E07000045", "E07000041", "E06000059", "E06000045", "E07000087", "E07000088", "E06000044", "E07000225", "E07000229", "E07000223", "E06000052", "E06000026", "E07000044", "E06000027", "E07000224", "E06000053", "E06000046"),
name = c("Shetland Islands", "Na h-Eileanan Siar", "Orkney Islands", "Highland", "Moray", "Aberdeenshire", "Aberdeen City", "Perth and Kinross", "Dundee City", "Angus", "Stirling", "Clackmannanshire", "Fife", "Argyll and Bute", "West Dunbartonshire", "East Dunbartonshire", "Falkirk", "Inverclyde", "Renfrewshire", "East Renfrewshire", "Glasgow City", "North Lanarkshire", "West Lothian", "City of Edinburgh", "Midlothian", "East Lothian", "North Ayrshire", "East Ayrshire", "South Lanarkshire", "North Tyneside", "Derry City and Strabane", "Causeway Coast and Glens", "Mid and East Antrim", "South Ayrshire", "Dumfries and Galloway", "Scottish Borders", "South Tyneside", "Sunderland", "Fermanagh and Omagh", "Mid Ulster", "Antrim and Newtownabbey", "Copeland", "Allerdale", "Carlisle", "Northumberland", "Newcastle upon Tyne", "Gateshead", "Hartlepool", "Armagh City, Banbridge and Craigavon", "Lisburn and Castlereagh", "Belfast", "Barrow-in-Furness", "South Lakeland", "Eden", "County Durham", "Darlington", "Stockton-on-Tees", "Middlesbrough", "Redcar and Cleveland", "Newry, Mourne and Down", "Ards and North Down", "Lancaster", "Pendle", "Craven", "Richmondshire", "Hambleton", "Scarborough", "Wyre", "Preston", "Ribble Valley", "Burnley", "Bradford", "Harrogate", "York", "Ryedale", "Blackpool", "South Ribble", "Blackburn with Darwen", "Hyndburn", "Rochdale", "Calderdale", "Leeds", "Selby", "East Riding of Yorkshire", "Kingston upon Hull, City of", "North East Lincolnshire", "Fylde", "Chorley", "Bolton", "Rossendale", "Oldham", "Kirklees", "Barnsley", "Wakefield", "Doncaster", "North Lincolnshire", "West Lindsey", "East Lindsey", "West Lancashire", "St. Helens", "Wigan", "Salford", "Bury", "Tameside", "Sheffield", "Rotherham", "Chesterfield", "Bolsover", "Lincoln", "Boston", "Sefton", "Knowsley", "Trafford", "Manchester", "Stockport", "Amber Valley", "North East Derbyshire", "Ashfield", "Mansfield", "Bassetlaw", "North Kesteven", "South Holland", "North Norfolk", "Broadland", "Great Yarmouth", "Liverpool", "Halton", "Warrington", "High Peak", "Derby", "Erewash", "Broxtowe", "Nottingham", "Gedling", "South Kesteven", "Peterborough", "Fenland", "King's Lynn and West Norfolk", "South Norfolk", "Norwich", "Wirral", "Cheshire West and Chester", "Cheshire East", "Stoke-on-Trent", "Derbyshire Dales", "North West Leicestershire", "South Derbyshire", "Rushcliffe", "Newark and Sherwood", "Rutland", "Huntingdonshire", "South Cambridgeshire", "Cambridge", "East Cambridgeshire", "Breckland", "Mid Suffolk", "East Suffolk", "Isle of Anglesey", "Newcastle-under-Lyme", "Stafford", "Staffordshire Moorlands", "Hinckley and Bosworth", "Leicester", "Charnwood", "Melton", "Bedford", "Central Bedfordshire", "Luton", "North Hertfordshire", "East Hertfordshire", "West Suffolk", "Babergh", "Ipswich", "Conwy", "Denbighshire", "Flintshire", "Shropshire", "Telford and Wrekin", "Cannock Chase", "East Staffordshire", "Blaby", "Oadby and Wigston", "Corby", "Kettering", "Dacorum", "St Albans", "Stevenage", "Broxbourne", "Harlow", "Uttlesford", "Braintree", "Colchester", "Tendring", "Gwynedd", "Ceredigion", "Wrexham", "Wolverhampton", "South Staffordshire", "Walsall", "Lichfield", "Tamworth", "Harborough", "Northampton", "East Northamptonshire", "Watford", "Hertsmere", "Welwyn Hatfield", "Enfield", "Epping Forest", "Brentwood", "Chelmsford", "Maldon", "Carmarthenshire", "Merthyr Tydfil", "Caerphilly", "Powys", "Dudley", "Bromsgrove", "Sandwell", "Birmingham", "North Warwickshire", "Daventry", "South Northamptonshire", "Wellingborough", "Three Rivers", "Harrow", "Barnet", "Haringey", "Waltham Forest", "Redbridge", "Havering", "Basildon", "Rochford", "Pembrokeshire", "Swansea", "Neath Port Talbot", "Rhondda Cynon Taf", "Torfaen", "Blaenau Gwent", "Malvern Hills", "Wyre Forest", "Redditch", "Solihull", "Coventry", "Nuneaton and Bedworth", "Milton Keynes", "Hillingdon", "Ealing", "Brent", "Camden", "Islington", "Hackney", "Newham", "Barking and Dagenham", "Thurrock", "Castle Point", "Southend-on-Sea", "Bridgend", "Cardiff", "Newport", "Monmouthshire", "Herefordshire, County of", "Worcester", "Wychavon", "Warwick", "Rugby", "Cherwell", "Aylesbury Vale", "South Bucks", "Hounslow", "Hammersmith and Fulham", "Kensington and Chelsea", "Westminster", "City of London", "Tower Hamlets", "Dartford", "Gravesham", "Medway", "Vale of Glamorgan", "Forest of Dean", "Gloucester", "Tewkesbury", "Stratford-on-Avon", "West Oxfordshire", "Oxford", "Chiltern", "Slough", "Richmond upon Thames", "Wandsworth", "Lambeth", "Southwark", "Lewisham", "Greenwich", "Sevenoaks", "Tonbridge and Malling", "Swale", "Canterbury", "Thanet", "Stroud", "Cheltenham", "Cotswold", "Vale of White Horse", "South Oxfordshire", "Wycombe", "Windsor and Maidenhead", "Spelthorne", "Kingston upon Thames", "Merton", "Croydon", "Bromley", "Bexley", "Tunbridge Wells", "Maidstone", "Ashford", "Folkestone and Hythe", "Dover", "North Somerset", "Bristol, City of", "South Gloucestershire", "Swindon", "West Berkshire", "Reading", "Wokingham", "Bracknell Forest", "Runnymede", "Elmbridge", "Sutton", "Epsom and Ewell", "Reigate and Banstead", "Tandridge", "Wealden", "Rother", "North Devon", "Somerset West and Taunton", "Sedgemoor", "Bath and North East Somerset", "Mendip", "Wiltshire", "Basingstoke and Deane", "Hart", "Rushmoor", "Surrey Heath", "Woking", "Guildford", "Mole Valley", "Crawley", "Mid Sussex", "Eastbourne", "Hastings", "Torridge", "Mid Devon", "East Devon", "South Somerset", "Bournemouth, Christchurch and Poole", "New Forest", "Test Valley", "Eastleigh", "Winchester", "Havant", "East Hampshire", "Waverley", "Horsham", "Brighton and Hove", "Lewes", "West Devon", "Teignbridge", "Exeter", "Dorset", "Southampton", "Fareham", "Gosport", "Portsmouth", "Chichester", "Worthing", "Adur", "Cornwall", "Plymouth", "South Hams", "Torbay", "Arun", "Isles of Scilly", "Isle of Wight"),
stringsAsFactors = FALSE
)
#
# Great Britain
#
great_britain <- data.frame(
row = c(1, 2, 2, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 33, 33, 33, 33, 34, 34),
col = c(11, 9, 11, 10, 10, 11, 12, 10, 11, 12, 9, 10, 11, 7, 8, 9, 10, 6, 7, 8, 9, 10, 11, 12, 13, 14, 8, 9, 10, 11, 8, 9, 10, 11, 12, 6, 7, 8, 9, 10, 11, 12, 6, 7, 8, 9, 10, 11, 12, 13, 7, 8, 9, 10, 11, 12, 6, 7, 8, 9, 10, 11, 12, 13, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 21, 22, 23, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 3, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 4, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 5, 6, 7, 9, 12, 13, 14, 15, 16, 17, 18, 3, 4, 5, 6, 17, 2, 13),
code = c("S12000027", "S12000013", "S12000023", "S12000017", "S12000020", "S12000034", "S12000033", "S12000048", "S12000042", "S12000041", "S12000030", "S12000005", "S12000047", "S12000035", "S12000039", "S12000045", "S12000014", "S12000018", "S12000038", "S12000011", "S12000049", "S12000050", "S12000040", "S12000036", "S12000019", "S12000010", "S12000021", "S12000008", "S12000029", "E08000022", "S12000028", "S12000006", "S12000026", "E08000023", "E08000024", "E07000029", "E07000026", "E07000028", "E06000057", "E08000021", "E08000037", "E06000001", "E07000027", "E07000031", "E07000030", "E06000047", "E06000005", "E06000004", "E06000002", "E06000003", "E07000121", "E07000122", "E07000163", "E07000166", "E07000164", "E07000168", "E07000128", "E07000123", "E07000124", "E07000117", "E08000032", "E07000165", "E06000014", "E07000167", "E06000009", "E07000126", "E06000008", "E07000120", "E08000005", "E08000033", "E08000035", "E07000169", "E06000011", "E06000010", "E06000012", "E07000119", "E07000118", "E08000001", "E07000125", "E08000004", "E08000034", "E08000016", "E08000036", "E08000017", "E06000013", "E07000142", "E07000137", "E07000127", "E08000013", "E08000010", "E08000006", "E08000002", "E08000008", "E08000019", "E08000018", "E07000034", "E07000033", "E07000138", "E07000136", "E08000014", "E08000011", "E08000009", "E08000003", "E08000007", "E07000032", "E07000038", "E07000170", "E07000174", "E07000171", "E07000139", "E07000140", "E07000147", "E07000144", "E07000145", "E08000012", "E06000006", "E06000007", "E07000037", "E06000015", "E07000036", "E07000172", "E06000018", "E07000173", "E07000141", "E06000031", "E07000010", "E07000146", "E07000149", "E07000148", "E08000015", "E06000050", "E06000049", "E06000021", "E07000035", "E07000134", "E07000039", "E07000176", "E07000175", "E06000017", "E07000011", "E07000012", "E07000008", "E07000009", "E07000143", "E07000203", "E07000244", "W06000001", "E07000195", "E07000197", "E07000198", "E07000132", "E06000016", "E07000130", "E07000133", "E06000055", "E06000056", "E06000032", "E07000099", "E07000242", "E07000245", "E07000200", "E07000202", "W06000003", "W06000004", "W06000005", "E06000051", "E06000020", "E07000192", "E07000193", "E07000129", "E07000135", "E07000150", "E07000153", "E07000096", "E07000240", "E07000243", "E07000095", "E07000073", "E07000077", "E07000067", "E07000071", "E07000076", "W06000002", "W06000008", "W06000006", "E08000031", "E07000196", "E08000030", "E07000194", "E07000199", "E07000131", "E07000154", "E07000152", "E07000103", "E07000098", "E07000241", "E09000010", "E07000072", "E07000068", "E07000070", "E07000074", "W06000010", "W06000024", "W06000018", "W06000023", "E08000027", "E07000234", "E08000028", "E08000025", "E07000218", "E07000151", "E07000155", "E07000156", "E07000102", "E09000015", "E09000003", "E09000014", "E09000031", "E09000026", "E09000016", "E07000066", "E07000075", "W06000009", "W06000011", "W06000012", "W06000016", "W06000020", "W06000019", "E07000235", "E07000239", "E07000236", "E08000029", "E08000026", "E07000219", "E06000042", "E09000017", "E09000009", "E09000005", "E09000007", "E09000019", "E09000012", "E09000025", "E09000002", "E06000034", "E07000069", "E06000033", "W06000013", "W06000015", "W06000022", "W06000021", "E06000019", "E07000237", "E07000238", "E07000222", "E07000220", "E07000177", "E07000004", "E07000006", "E09000018", "E09000013", "E09000020", "E09000033", "E09000001", "E09000030", "E07000107", "E07000109", "E06000035", "W06000014", "E07000080", "E07000081", "E07000083", "E07000221", "E07000181", "E07000178", "E07000005", "E06000039", "E09000027", "E09000032", "E09000022", "E09000028", "E09000023", "E09000011", "E07000111", "E07000115", "E07000113", "E07000106", "E07000114", "E07000082", "E07000078", "E07000079", "E07000180", "E07000179", "E07000007", "E06000040", "E07000213", "E09000021", "E09000024", "E09000008", "E09000006", "E09000004", "E07000116", "E07000110", "E07000105", "E07000112", "E07000108", "E06000024", "E06000023", "E06000025", "E06000030", "E06000037", "E06000038", "E06000041", "E06000036", "E07000212", "E07000207", "E09000029", "E07000208", "E07000211", "E07000215", "E07000065", "E07000064", "E07000043", "E07000246", "E07000188", "E06000022", "E07000187", "E06000054", "E07000084", "E07000089", "E07000092", "E07000214", "E07000217", "E07000209", "E07000210", "E07000226", "E07000228", "E07000061", "E07000062", "E07000046", "E07000042", "E07000040", "E07000189", "E06000058", "E07000091", "E07000093", "E07000086", "E07000094", "E07000090", "E07000085", "E07000216", "E07000227", "E06000043", "E07000063", "E07000047", "E07000045", "E07000041", "E06000059", "E06000045", "E07000087", "E07000088", "E06000044", "E07000225", "E07000229", "E07000223", "E06000052", "E06000026", "E07000044", "E06000027", "E07000224", "E06000053", "E06000046"),
name = c("Shetland Islands", "Na h-Eileanan Siar", "Orkney Islands", "Highland", "Moray", "Aberdeenshire", "Aberdeen City", "Perth and Kinross", "Dundee City", "Angus", "Stirling", "Clackmannanshire", "Fife", "Argyll and Bute", "West Dunbartonshire", "East Dunbartonshire", "Falkirk", "Inverclyde", "Renfrewshire", "East Renfrewshire", "Glasgow City", "North Lanarkshire", "West Lothian", "City of Edinburgh", "Midlothian", "East Lothian", "North Ayrshire", "East Ayrshire", "South Lanarkshire", "North Tyneside", "South Ayrshire", "Dumfries and Galloway", "Scottish Borders", "South Tyneside", "Sunderland", "Copeland", "Allerdale", "Carlisle", "Northumberland", "Newcastle upon Tyne", "Gateshead", "Hartlepool", "Barrow-in-Furness", "South Lakeland", "Eden", "County Durham", "Darlington", "Stockton-on-Tees", "Middlesbrough", "Redcar and Cleveland", "Lancaster", "Pendle", "Craven", "Richmondshire", "Hambleton", "Scarborough", "Wyre", "Preston", "Ribble Valley", "Burnley", "Bradford", "Harrogate", "York", "Ryedale", "Blackpool", "South Ribble", "Blackburn with Darwen", "Hyndburn", "Rochdale", "Calderdale", "Leeds", "Selby", "East Riding of Yorkshire", "Kingston upon Hull, City of", "North East Lincolnshire", "Fylde", "Chorley", "Bolton", "Rossendale", "Oldham", "Kirklees", "Barnsley", "Wakefield", "Doncaster", "North Lincolnshire", "West Lindsey", "East Lindsey", "West Lancashire", "St. Helens", "Wigan", "Salford", "Bury", "Tameside", "Sheffield", "Rotherham", "Chesterfield", "Bolsover", "Lincoln", "Boston", "Sefton", "Knowsley", "Trafford", "Manchester", "Stockport", "Amber Valley", "North East Derbyshire", "Ashfield", "Mansfield", "Bassetlaw", "North Kesteven", "South Holland", "North Norfolk", "Broadland", "Great Yarmouth", "Liverpool", "Halton", "Warrington", "High Peak", "Derby", "Erewash", "Broxtowe", "Nottingham", "Gedling", "South Kesteven", "Peterborough", "Fenland", "King's Lynn and West Norfolk", "South Norfolk", "Norwich", "Wirral", "Cheshire West and Chester", "Cheshire East", "Stoke-on-Trent", "Derbyshire Dales", "North West Leicestershire", "South Derbyshire", "Rushcliffe", "Newark and Sherwood", "Rutland", "Huntingdonshire", "South Cambridgeshire", "Cambridge", "East Cambridgeshire", "Breckland", "Mid Suffolk", "East Suffolk", "Isle of Anglesey", "Newcastle-under-Lyme", "Stafford", "Staffordshire Moorlands", "Hinckley and Bosworth", "Leicester", "Charnwood", "Melton", "Bedford", "Central Bedfordshire", "Luton", "North Hertfordshire", "East Hertfordshire", "West Suffolk", "Babergh", "Ipswich", "Conwy", "Denbighshire", "Flintshire", "Shropshire", "Telford and Wrekin", "Cannock Chase", "East Staffordshire", "Blaby", "Oadby and Wigston", "Corby", "Kettering", "Dacorum", "St Albans", "Stevenage", "Broxbourne", "Harlow", "Uttlesford", "Braintree", "Colchester", "Tendring", "Gwynedd", "Ceredigion", "Wrexham", "Wolverhampton", "South Staffordshire", "Walsall", "Lichfield", "Tamworth", "Harborough", "Northampton", "East Northamptonshire", "Watford", "Hertsmere", "Welwyn Hatfield", "Enfield", "Epping Forest", "Brentwood", "Chelmsford", "Maldon", "Carmarthenshire", "Merthyr Tydfil", "Caerphilly", "Powys", "Dudley", "Bromsgrove", "Sandwell", "Birmingham", "North Warwickshire", "Daventry", "South Northamptonshire", "Wellingborough", "Three Rivers", "Harrow", "Barnet", "Haringey", "Waltham Forest", "Redbridge", "Havering", "Basildon", "Rochford", "Pembrokeshire", "Swansea", "Neath Port Talbot", "Rhondda Cynon Taf", "Torfaen", "Blaenau Gwent", "Malvern Hills", "Wyre Forest", "Redditch", "Solihull", "Coventry", "Nuneaton and Bedworth", "Milton Keynes", "Hillingdon", "Ealing", "Brent", "Camden", "Islington", "Hackney", "Newham", "Barking and Dagenham", "Thurrock", "Castle Point", "Southend-on-Sea", "Bridgend", "Cardiff", "Newport", "Monmouthshire", "Herefordshire, County of", "Worcester", "Wychavon", "Warwick", "Rugby", "Cherwell", "Aylesbury Vale", "South Bucks", "Hounslow", "Hammersmith and Fulham", "Kensington and Chelsea", "Westminster", "City of London", "Tower Hamlets", "Dartford", "Gravesham", "Medway", "Vale of Glamorgan", "Forest of Dean", "Gloucester", "Tewkesbury", "Stratford-on-Avon", "West Oxfordshire", "Oxford", "Chiltern", "Slough", "Richmond upon Thames", "Wandsworth", "Lambeth", "Southwark", "Lewisham", "Greenwich", "Sevenoaks", "Tonbridge and Malling", "Swale", "Canterbury", "Thanet", "Stroud", "Cheltenham", "Cotswold", "Vale of White Horse", "South Oxfordshire", "Wycombe", "Windsor and Maidenhead", "Spelthorne", "Kingston upon Thames", "Merton", "Croydon", "Bromley", "Bexley", "Tunbridge Wells", "Maidstone", "Ashford", "Folkestone and Hythe", "Dover", "North Somerset", "Bristol, City of", "South Gloucestershire", "Swindon", "West Berkshire", "Reading", "Wokingham", "Bracknell Forest", "Runnymede", "Elmbridge", "Sutton", "Epsom and Ewell", "Reigate and Banstead", "Tandridge", "Wealden", "Rother", "North Devon", "Somerset West and Taunton", "Sedgemoor", "Bath and North East Somerset", "Mendip", "Wiltshire", "Basingstoke and Deane", "Hart", "Rushmoor", "Surrey Heath", "Woking", "Guildford", "Mole Valley", "Crawley", "Mid Sussex", "Eastbourne", "Hastings", "Torridge", "Mid Devon", "East Devon", "South Somerset", "Bournemouth, Christchurch and Poole", "New Forest", "Test Valley", "Eastleigh", "Winchester", "Havant", "East Hampshire", "Waverley", "Horsham", "Brighton and Hove", "Lewes", "West Devon", "Teignbridge", "Exeter", "Dorset", "Southampton", "Fareham", "Gosport", "Portsmouth", "Chichester", "Worthing", "Adur", "Cornwall", "Plymouth", "South Hams", "Torbay", "Arun", "Isles of Scilly", "Isle of Wight"),
stringsAsFactors = FALSE
)
#
# Country
#
# England
england <- data.frame(
row = c(1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 26, 26),
col = c(10, 10, 11, 5, 6, 7, 8, 9, 10, 11, 5, 6, 7, 8, 9, 10, 11, 12, 6, 7, 8, 9, 10, 11, 5, 6, 7, 8, 9, 10, 11, 12, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 20, 21, 22, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 19, 20, 21, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 4, 5, 6, 8, 11, 12, 13, 14, 15, 16, 17, 2, 3, 4, 5, 16, 1, 12),
code = c("E08000022", "E08000023", "E08000024", "E07000029", "E07000026", "E07000028", "E06000057", "E08000021", "E08000037", "E06000001", "E07000027", "E07000031", "E07000030", "E06000047", "E06000005", "E06000004", "E06000002", "E06000003", "E07000121", "E07000122", "E07000163", "E07000166", "E07000164", "E07000168", "E07000128", "E07000123", "E07000124", "E07000117", "E08000032", "E07000165", "E06000014", "E07000167", "E06000009", "E07000126", "E06000008", "E07000120", "E08000005", "E08000033", "E08000035", "E07000169", "E06000011", "E06000010", "E06000012", "E07000119", "E07000118", "E08000001", "E07000125", "E08000004", "E08000034", "E08000016", "E08000036", "E08000017", "E06000013", "E07000142", "E07000137", "E07000127", "E08000013", "E08000010", "E08000006", "E08000002", "E08000008", "E08000019", "E08000018", "E07000034", "E07000033", "E07000138", "E07000136", "E08000014", "E08000011", "E08000009", "E08000003", "E08000007", "E07000032", "E07000038", "E07000170", "E07000174", "E07000171", "E07000139", "E07000140", "E07000147", "E07000144", "E07000145", "E08000012", "E06000006", "E06000007", "E07000037", "E06000015", "E07000036", "E07000172", "E06000018", "E07000173", "E07000141", "E06000031", "E07000010", "E07000146", "E07000149", "E07000148", "E08000015", "E06000050", "E06000049", "E06000021", "E07000035", "E07000134", "E07000039", "E07000176", "E07000175", "E06000017", "E07000011", "E07000012", "E07000008", "E07000009", "E07000143", "E07000203", "E07000244", "E07000195", "E07000197", "E07000198", "E07000132", "E06000016", "E07000130", "E07000133", "E06000055", "E06000056", "E06000032", "E07000099", "E07000242", "E07000245", "E07000200", "E07000202", "E06000051", "E06000020", "E07000192", "E07000193", "E07000129", "E07000135", "E07000150", "E07000153", "E07000096", "E07000240", "E07000243", "E07000095", "E07000073", "E07000077", "E07000067", "E07000071", "E07000076", "E08000031", "E07000196", "E08000030", "E07000194", "E07000199", "E07000131", "E07000154", "E07000152", "E07000103", "E07000098", "E07000241", "E09000010", "E07000072", "E07000068", "E07000070", "E07000074", "E08000027", "E07000234", "E08000028", "E08000025", "E07000218", "E07000151", "E07000155", "E07000156", "E07000102", "E09000015", "E09000003", "E09000014", "E09000031", "E09000026", "E09000016", "E07000066", "E07000075", "E07000235", "E07000239", "E07000236", "E08000029", "E08000026", "E07000219", "E06000042", "E09000017", "E09000009", "E09000005", "E09000007", "E09000019", "E09000012", "E09000025", "E09000002", "E06000034", "E07000069", "E06000033", "E06000019", "E07000237", "E07000238", "E07000222", "E07000220", "E07000177", "E07000004", "E07000006", "E09000018", "E09000013", "E09000020", "E09000033", "E09000001", "E09000030", "E07000107", "E07000109", "E06000035", "E07000080", "E07000081", "E07000083", "E07000221", "E07000181", "E07000178", "E07000005", "E06000039", "E09000027", "E09000032", "E09000022", "E09000028", "E09000023", "E09000011", "E07000111", "E07000115", "E07000113", "E07000106", "E07000114", "E07000082", "E07000078", "E07000079", "E07000180", "E07000179", "E07000007", "E06000040", "E07000213", "E09000021", "E09000024", "E09000008", "E09000006", "E09000004", "E07000116", "E07000110", "E07000105", "E07000112", "E07000108", "E06000024", "E06000023", "E06000025", "E06000030", "E06000037", "E06000038", "E06000041", "E06000036", "E07000212", "E07000207", "E09000029", "E07000208", "E07000211", "E07000215", "E07000065", "E07000064", "E07000043", "E07000246", "E07000188", "E06000022", "E07000187", "E06000054", "E07000084", "E07000089", "E07000092", "E07000214", "E07000217", "E07000209", "E07000210", "E07000226", "E07000228", "E07000061", "E07000062", "E07000046", "E07000042", "E07000040", "E07000189", "E06000058", "E07000091", "E07000093", "E07000086", "E07000094", "E07000090", "E07000085", "E07000216", "E07000227", "E06000043", "E07000063", "E07000047", "E07000045", "E07000041", "E06000059", "E06000045", "E07000087", "E07000088", "E06000044", "E07000225", "E07000229", "E07000223", "E06000052", "E06000026", "E07000044", "E06000027", "E07000224", "E06000053", "E06000046"),
name = c("North Tyneside", "South Tyneside", "Sunderland", "Copeland", "Allerdale", "Carlisle", "Northumberland", "Newcastle upon Tyne", "Gateshead", "Hartlepool", "Barrow-in-Furness", "South Lakeland", "Eden", "County Durham", "Darlington", "Stockton-on-Tees", "Middlesbrough", "Redcar and Cleveland", "Lancaster", "Pendle", "Craven", "Richmondshire", "Hambleton", "Scarborough", "Wyre", "Preston", "Ribble Valley", "Burnley", "Bradford", "Harrogate", "York", "Ryedale", "Blackpool", "South Ribble", "Blackburn with Darwen", "Hyndburn", "Rochdale", "Calderdale", "Leeds", "Selby", "East Riding of Yorkshire", "Kingston upon Hull, City of", "North East Lincolnshire", "Fylde", "Chorley", "Bolton", "Rossendale", "Oldham", "Kirklees", "Barnsley", "Wakefield", "Doncaster", "North Lincolnshire", "West Lindsey", "East Lindsey", "West Lancashire", "St. Helens", "Wigan", "Salford", "Bury", "Tameside", "Sheffield", "Rotherham", "Chesterfield", "Bolsover", "Lincoln", "Boston", "Sefton", "Knowsley", "Trafford", "Manchester", "Stockport", "Amber Valley", "North East Derbyshire", "Ashfield", "Mansfield", "Bassetlaw", "North Kesteven", "South Holland", "North Norfolk", "Broadland", "Great Yarmouth", "Liverpool", "Halton", "Warrington", "High Peak", "Derby", "Erewash", "Broxtowe", "Nottingham", "Gedling", "South Kesteven", "Peterborough", "Fenland", "King's Lynn and West Norfolk", "South Norfolk", "Norwich", "Wirral", "Cheshire West and Chester", "Cheshire East", "Stoke-on-Trent", "Derbyshire Dales", "North West Leicestershire", "South Derbyshire", "Rushcliffe", "Newark and Sherwood", "Rutland", "Huntingdonshire", "South Cambridgeshire", "Cambridge", "East Cambridgeshire", "Breckland", "Mid Suffolk", "East Suffolk", "Newcastle-under-Lyme", "Stafford", "Staffordshire Moorlands", "Hinckley and Bosworth", "Leicester", "Charnwood", "Melton", "Bedford", "Central Bedfordshire", "Luton", "North Hertfordshire", "East Hertfordshire", "West Suffolk", "Babergh", "Ipswich", "Shropshire", "Telford and Wrekin", "Cannock Chase", "East Staffordshire", "Blaby", "Oadby and Wigston", "Corby", "Kettering", "Dacorum", "St Albans", "Stevenage", "Broxbourne", "Harlow", "Uttlesford", "Braintree", "Colchester", "Tendring", "Wolverhampton", "South Staffordshire", "Walsall", "Lichfield", "Tamworth", "Harborough", "Northampton", "East Northamptonshire", "Watford", "Hertsmere", "Welwyn Hatfield", "Enfield", "Epping Forest", "Brentwood", "Chelmsford", "Maldon", "Dudley", "Bromsgrove", "Sandwell", "Birmingham", "North Warwickshire", "Daventry", "South Northamptonshire", "Wellingborough", "Three Rivers", "Harrow", "Barnet", "Haringey", "Waltham Forest", "Redbridge", "Havering", "Basildon", "Rochford", "Malvern Hills", "Wyre Forest", "Redditch", "Solihull", "Coventry", "Nuneaton and Bedworth", "Milton Keynes", "Hillingdon", "Ealing", "Brent", "Camden", "Islington", "Hackney", "Newham", "Barking and Dagenham", "Thurrock", "Castle Point", "Southend-on-Sea", "Herefordshire, County of", "Worcester", "Wychavon", "Warwick", "Rugby", "Cherwell", "Aylesbury Vale", "South Bucks", "Hounslow", "Hammersmith and Fulham", "Kensington and Chelsea", "Westminster", "City of London", "Tower Hamlets", "Dartford", "Gravesham", "Medway", "Forest of Dean", "Gloucester", "Tewkesbury", "Stratford-on-Avon", "West Oxfordshire", "Oxford", "Chiltern", "Slough", "Richmond upon Thames", "Wandsworth", "Lambeth", "Southwark", "Lewisham", "Greenwich", "Sevenoaks", "Tonbridge and Malling", "Swale", "Canterbury", "Thanet", "Stroud", "Cheltenham", "Cotswold", "Vale of White Horse", "South Oxfordshire", "Wycombe", "Windsor and Maidenhead", "Spelthorne", "Kingston upon Thames", "Merton", "Croydon", "Bromley", "Bexley", "Tunbridge Wells", "Maidstone", "Ashford", "Folkestone and Hythe", "Dover", "North Somerset", "Bristol, City of", "South Gloucestershire", "Swindon", "West Berkshire", "Reading", "Wokingham", "Bracknell Forest", "Runnymede", "Elmbridge", "Sutton", "Epsom and Ewell", "Reigate and Banstead", "Tandridge", "Wealden", "Rother", "North Devon", "Somerset West and Taunton", "Sedgemoor", "Bath and North East Somerset", "Mendip", "Wiltshire", "Basingstoke and Deane", "Hart", "Rushmoor", "Surrey Heath", "Woking", "Guildford", "Mole Valley", "Crawley", "Mid Sussex", "Eastbourne", "Hastings", "Torridge", "Mid Devon", "East Devon", "South Somerset", "Bournemouth, Christchurch and Poole", "New Forest", "Test Valley", "Eastleigh", "Winchester", "Havant", "East Hampshire", "Waverley", "Horsham", "Brighton and Hove", "Lewes", "West Devon", "Teignbridge", "Exeter", "Dorset", "Southampton", "Fareham", "Gosport", "Portsmouth", "Chichester", "Worthing", "Adur", "Cornwall", "Plymouth", "South Hams", "Torbay", "Arun", "Isles of Scilly", "Isle of Wight"),
stringsAsFactors = FALSE
)
# Northern Ireland
northern_ireland <- data.frame(
row = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4),
col = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3),
code = c("N09000005", "N09000004", "N09000008", "N09000006", "N09000009", "N09000001", "N09000002", "N09000007", "N09000003", "N09000010", "N09000011"),
name = c("Derry City and Strabane", "Causeway Coast and Glens", "Mid and East Antrim", "Fermanagh and Omagh", "Mid Ulster", "Antrim and Newtownabbey", "Armagh City, Banbridge and Craigavon", "Lisburn and Castlereagh", "Belfast", "Newry, Mourne and Down", "Ards and North Down"),
stringsAsFactors = FALSE
)
# Scotland
scotland <- data.frame(
row = c(1, 2, 2, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 10, 10, 10),
col = c(6, 4, 6, 5, 5, 6, 7, 5, 6, 7, 4, 5, 6, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 3, 4, 5, 3, 4, 5),
code = c("S12000027", "S12000013", "S12000023", "S12000017", "S12000020", "S12000034", "S12000033", "S12000048", "S12000042", "S12000041", "S12000030", "S12000005", "S12000047", "S12000035", "S12000039", "S12000045", "S12000014", "S12000018", "S12000038", "S12000011", "S12000049", "S12000050", "S12000040", "S12000036", "S12000019", "S12000010", "S12000021", "S12000008", "S12000029", "S12000028", "S12000006", "S12000026"),
name = c("Shetland Islands", "Na h-Eileanan Siar", "Orkney Islands", "Highland", "Moray", "Aberdeenshire", "Aberdeen City", "Perth and Kinross", "Dundee City", "Angus", "Stirling", "Clackmannanshire", "Fife", "Argyll and Bute", "West Dunbartonshire", "East Dunbartonshire", "Falkirk", "Inverclyde", "Renfrewshire", "East Renfrewshire", "Glasgow City", "North Lanarkshire", "West Lothian", "City of Edinburgh", "Midlothian", "East Lothian", "North Ayrshire", "East Ayrshire", "South Lanarkshire", "South Ayrshire", "Dumfries and Galloway", "Scottish Borders"),
stringsAsFactors = FALSE
)
# Wales
wales <- data.frame(
row = c(1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 7),
col = c(3, 4, 5, 6, 4, 5, 6, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 3, 4, 5, 6, 4),
code = c("W06000001", "W06000003", "W06000004", "W06000005", "W06000002", "W06000008", "W06000006", "W06000010", "W06000024", "W06000018", "W06000023", "W06000009", "W06000011", "W06000012", "W06000016", "W06000020", "W06000019", "W06000013", "W06000015", "W06000022", "W06000021", "W06000014"),
name = c("Isle of Anglesey", "Conwy", "Denbighshire", "Flintshire", "Gwynedd", "Ceredigion", "Wrexham", "Carmarthenshire", "Merthyr Tydfil", "Caerphilly", "Powys", "Pembrokeshire", "Swansea", "Neath Port Talbot", "Rhondda Cynon Taf", "Torfaen", "Blaenau Gwent", "Bridgend", "Cardiff", "Newport", "Monmouthshire", "Vale of Glamorgan"),
stringsAsFactors = FALSE
)
#
# Region
#
# East Midlands
east_midlands <- data.frame(
row = c(1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9),
col = c(7, 8, 5, 6, 7, 8, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 3, 4, 5, 6, 3, 4, 5, 6, 4, 5, 6, 4, 5, 6),
code = c("E07000142", "E07000137", "E07000034", "E07000033", "E07000138", "E07000136", "E07000032", "E07000038", "E07000170", "E07000174", "E07000171", "E07000139", "E07000140", "E07000037", "E06000015", "E07000036", "E07000172", "E06000018", "E07000173", "E07000141", "E07000035", "E07000134", "E07000039", "E07000176", "E07000175", "E06000017", "E07000132", "E06000016", "E07000130", "E07000133", "E07000129", "E07000135", "E07000150", "E07000153", "E07000131", "E07000154", "E07000152", "E07000151", "E07000155", "E07000156"),
name = c("West Lindsey", "East Lindsey", "Chesterfield", "Bolsover", "Lincoln", "Boston", "Amber Valley", "North East Derbyshire", "Ashfield", "Mansfield", "Bassetlaw", "North Kesteven", "South Holland", "High Peak", "Derby", "Erewash", "Broxtowe", "Nottingham", "Gedling", "South Kesteven", "Derbyshire Dales", "North West Leicestershire", "South Derbyshire", "Rushcliffe", "Newark and Sherwood", "Rutland", "Hinckley and Bosworth", "Leicester", "Charnwood", "Melton", "Blaby", "Oadby and Wigston", "Corby", "Kettering", "Harborough", "Northampton", "East Northamptonshire", "Daventry", "South Northamptonshire", "Wellingborough"),
stringsAsFactors = FALSE
)
# East of England
east_of_england <- data.frame(
row = c(1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 8, 8),
col = c(7, 8, 9, 2, 3, 6, 7, 8, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 5, 6, 7, 8, 1, 8, 9, 8, 9, 10),
code = c("E07000147", "E07000144", "E07000145", "E06000031", "E07000010", "E07000146", "E07000149", "E07000148", "E07000011", "E07000012", "E07000008", "E07000009", "E07000143", "E07000203", "E07000244", "E06000055", "E06000056", "E06000032", "E07000099", "E07000242", "E07000245", "E07000200", "E07000202", "E07000096", "E07000240", "E07000243", "E07000095", "E07000073", "E07000077", "E07000067", "E07000071", "E07000076", "E07000103", "E07000098", "E07000241", "E07000072", "E07000068", "E07000070", "E07000074", "E07000102", "E07000066", "E07000075", "E06000034", "E07000069", "E06000033"),
name = c("North Norfolk", "Broadland", "Great Yarmouth", "Peterborough", "Fenland", "King's Lynn and West Norfolk", "South Norfolk", "Norwich", "Huntingdonshire", "South Cambridgeshire", "Cambridge", "East Cambridgeshire", "Breckland", "Mid Suffolk", "East Suffolk", "Bedford", "Central Bedfordshire", "Luton", "North Hertfordshire", "East Hertfordshire", "West Suffolk", "Babergh", "Ipswich", "Dacorum", "St Albans", "Stevenage", "Broxbourne", "Harlow", "Uttlesford", "Braintree", "Colchester", "Tendring", "Watford", "Hertsmere", "Welwyn Hatfield", "Epping Forest", "Brentwood", "Chelmsford", "Maldon", "Three Rivers", "Basildon", "Rochford", "Thurrock", "Castle Point", "Southend-on-Sea"),
stringsAsFactors = FALSE
)
# London
london <- data.frame(
row = c(1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7),
col = c(5, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 3, 4, 5, 6, 7, 4),
code = c("E09000010", "E09000015", "E09000003", "E09000014", "E09000031", "E09000026", "E09000016", "E09000017", "E09000009", "E09000005", "E09000007", "E09000019", "E09000012", "E09000025", "E09000002", "E09000018", "E09000013", "E09000020", "E09000033", "E09000001", "E09000030", "E09000027", "E09000032", "E09000022", "E09000028", "E09000023", "E09000011", "E09000021", "E09000024", "E09000008", "E09000006", "E09000004", "E09000029"),
name = c("Enfield", "Harrow", "Barnet", "Haringey", "Waltham Forest", "Redbridge", "Havering", "Hillingdon", "Ealing", "Brent", "Camden", "Islington", "Hackney", "Newham", "Barking and Dagenham", "Hounslow", "Hammersmith and Fulham", "Kensington and Chelsea", "Westminster", "City of London", "Tower Hamlets", "Richmond upon Thames", "Wandsworth", "Lambeth", "Southwark", "Lewisham", "Greenwich", "Kingston upon Thames", "Merton", "Croydon", "Bromley", "Bexley", "Sutton"),
stringsAsFactors = FALSE
)
# North East
north_east <- data.frame(
row = c(1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4),
col = c(3, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 5),
code = c("E08000022", "E08000023", "E08000024", "E06000057", "E08000021", "E08000037", "E06000001", "E06000047", "E06000005", "E06000004", "E06000002", "E06000003"),
name = c("North Tyneside", "South Tyneside", "Sunderland", "Northumberland", "Newcastle upon Tyne", "Gateshead", "Hartlepool", "County Durham", "Darlington", "Stockton-on-Tees", "Middlesbrough", "Redcar and Cleveland"),
stringsAsFactors = FALSE
)
# North West
north_west <- data.frame(
row = c(1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 10, 10, 10),
col = c(2, 3, 4, 2, 3, 4, 3, 4, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 2, 3, 4, 2, 3, 4),
code = c("E07000029", "E07000026", "E07000028", "E07000027", "E07000031", "E07000030", "E07000121", "E07000122", "E07000128", "E07000123", "E07000124", "E07000117", "E06000009", "E07000126", "E06000008", "E07000120", "E08000005", "E07000119", "E07000118", "E08000001", "E07000125", "E08000004", "E07000127", "E08000013", "E08000010", "E08000006", "E08000002", "E08000008", "E08000014", "E08000011", "E08000009", "E08000003", "E08000007", "E08000012", "E06000006", "E06000007", "E08000015", "E06000050", "E06000049"),
name = c("Copeland", "Allerdale", "Carlisle", "Barrow-in-Furness", "South Lakeland", "Eden", "Lancaster", "Pendle", "Wyre", "Preston", "Ribble Valley", "Burnley", "Blackpool", "South Ribble", "Blackburn with Darwen", "Hyndburn", "Rochdale", "Fylde", "Chorley", "Bolton", "Rossendale", "Oldham", "West Lancashire", "St. Helens", "Wigan", "Salford", "Bury", "Tameside", "Sefton", "Knowsley", "Trafford", "Manchester", "Stockport", "Liverpool", "Halton", "Warrington", "Wirral", "Cheshire West and Chester", "Cheshire East"),
stringsAsFactors = FALSE
)
# Northern Ireland
northern_ireland <- data.frame(
row = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4),
col = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3),
code = c("N09000005", "N09000004", "N09000008", "N09000006", "N09000009", "N09000001", "N09000002", "N09000007", "N09000003", "N09000010", "N09000011"),
name = c("Derry City and Strabane", "Causeway Coast and Glens", "Mid and East Antrim", "Fermanagh and Omagh", "Mid Ulster", "Antrim and Newtownabbey", "Armagh City, Banbridge and Craigavon", "Lisburn and Castlereagh", "Belfast", "Newry, Mourne and Down", "Ards and North Down"),
stringsAsFactors = FALSE
)
# Scotland
scotland <- data.frame(
row = c(1, 2, 2, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 10, 10, 10),
col = c(6, 4, 6, 5, 5, 6, 7, 5, 6, 7, 4, 5, 6, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 3, 4, 5, 3, 4, 5),
code = c("S12000027", "S12000013", "S12000023", "S12000017", "S12000020", "S12000034", "S12000033", "S12000048", "S12000042", "S12000041", "S12000030", "S12000005", "S12000047", "S12000035", "S12000039", "S12000045", "S12000014", "S12000018", "S12000038", "S12000011", "S12000049", "S12000050", "S12000040", "S12000036", "S12000019", "S12000010", "S12000021", "S12000008", "S12000029", "S12000028", "S12000006", "S12000026"),
name = c("Shetland Islands", "Na h-Eileanan Siar", "Orkney Islands", "Highland", "Moray", "Aberdeenshire", "Aberdeen City", "Perth and Kinross", "Dundee City", "Angus", "Stirling", "Clackmannanshire", "Fife", "Argyll and Bute", "West Dunbartonshire", "East Dunbartonshire", "Falkirk", "Inverclyde", "Renfrewshire", "East Renfrewshire", "Glasgow City", "North Lanarkshire", "West Lothian", "City of Edinburgh", "Midlothian", "East Lothian", "North Ayrshire", "East Ayrshire", "South Lanarkshire", "South Ayrshire", "Dumfries and Galloway", "Scottish Borders"),
stringsAsFactors = FALSE
)
# South East
south_east <- data.frame(
row = c(1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 9, 10),
col = c(3, 2, 3, 4, 11, 12, 13, 1, 2, 3, 4, 11, 12, 13, 14, 15, 1, 2, 3, 4, 5, 11, 12, 13, 14, 15, 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 7, 3),
code = c("E06000042", "E07000177", "E07000004", "E07000006", "E07000107", "E07000109", "E06000035", "E07000181", "E07000178", "E07000005", "E06000039", "E07000111", "E07000115", "E07000113", "E07000106", "E07000114", "E07000180", "E07000179", "E07000007", "E06000040", "E07000213", "E07000116", "E07000110", "E07000105", "E07000112", "E07000108", "E06000037", "E06000038", "E06000041", "E06000036", "E07000212", "E07000207", "E07000208", "E07000211", "E07000215", "E07000065", "E07000064", "E07000084", "E07000089", "E07000092", "E07000214", "E07000217", "E07000209", "E07000210", "E07000226", "E07000228", "E07000061", "E07000062", "E07000091", "E07000093", "E07000086", "E07000094", "E07000090", "E07000085", "E07000216", "E07000227", "E06000043", "E07000063", "E06000045", "E07000087", "E07000088", "E06000044", "E07000225", "E07000229", "E07000223", "E07000224", "E06000046"),
name = c("Milton Keynes", "Cherwell", "Aylesbury Vale", "South Bucks", "Dartford", "Gravesham", "Medway", "West Oxfordshire", "Oxford", "Chiltern", "Slough", "Sevenoaks", "Tonbridge and Malling", "Swale", "Canterbury", "Thanet", "Vale of White Horse", "South Oxfordshire", "Wycombe", "Windsor and Maidenhead", "Spelthorne", "Tunbridge Wells", "Maidstone", "Ashford", "Folkestone and Hythe", "Dover", "West Berkshire", "Reading", "Wokingham", "Bracknell Forest", "Runnymede", "Elmbridge", "Epsom and Ewell", "Reigate and Banstead", "Tandridge", "Wealden", "Rother", "Basingstoke and Deane", "Hart", "Rushmoor", "Surrey Heath", "Woking", "Guildford", "Mole Valley", "Crawley", "Mid Sussex", "Eastbourne", "Hastings", "New Forest", "Test Valley", "Eastleigh", "Winchester", "Havant", "East Hampshire", "Waverley", "Horsham", "Brighton and Hove", "Lewes", "Southampton", "Fareham", "Gosport", "Portsmouth", "Chichester", "Worthing", "Adur", "Arun", "Isle of Wight"),
stringsAsFactors = FALSE
)
# South West
south_west <- data.frame(
row = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8),
col = c(6, 7, 8, 7, 8, 9, 6, 7, 8, 9, 5, 6, 7, 8, 9, 10, 5, 6, 7, 8, 9, 4, 5, 6, 8, 2, 3, 4, 5, 1),
code = c("E07000080", "E07000081", "E07000083", "E07000082", "E07000078", "E07000079", "E06000024", "E06000023", "E06000025", "E06000030", "E07000043", "E07000246", "E07000188", "E06000022", "E07000187", "E06000054", "E07000046", "E07000042", "E07000040", "E07000189", "E06000058", "E07000047", "E07000045", "E07000041", "E06000059", "E06000052", "E06000026", "E07000044", "E06000027", "E06000053"),
name = c("Forest of Dean", "Gloucester", "Tewkesbury", "Stroud", "Cheltenham", "Cotswold", "North Somerset", "Bristol, City of", "South Gloucestershire", "Swindon", "North Devon", "Somerset West and Taunton", "Sedgemoor", "Bath and North East Somerset", "Mendip", "Wiltshire", "Torridge", "Mid Devon", "East Devon", "South Somerset", "Bournemouth, Christchurch and Poole", "West Devon", "Teignbridge", "Exeter", "Dorset", "Cornwall", "Plymouth", "South Hams", "Torbay", "Isles of Scilly"),
stringsAsFactors = FALSE
)
# Wales
wales <- data.frame(
row = c(1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 7),
col = c(3, 4, 5, 6, 4, 5, 6, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 3, 4, 5, 6, 4),
code = c("W06000001", "W06000003", "W06000004", "W06000005", "W06000002", "W06000008", "W06000006", "W06000010", "W06000024", "W06000018", "W06000023", "W06000009", "W06000011", "W06000012", "W06000016", "W06000020", "W06000019", "W06000013", "W06000015", "W06000022", "W06000021", "W06000014"),
name = c("Isle of Anglesey", "Conwy", "Denbighshire", "Flintshire", "Gwynedd", "Ceredigion", "Wrexham", "Carmarthenshire", "Merthyr Tydfil", "Caerphilly", "Powys", "Pembrokeshire", "Swansea", "Neath Port Talbot", "Rhondda Cynon Taf", "Torfaen", "Blaenau Gwent", "Bridgend", "Cardiff", "Newport", "Monmouthshire", "Vale of Glamorgan"),
stringsAsFactors = FALSE
)
# West Midlands
west_midlands <- data.frame(
row = c(1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8),
col = c(3, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 4),
code = c("E06000021", "E07000195", "E07000197", "E07000198", "E06000051", "E06000020", "E07000192", "E07000193", "E08000031", "E07000196", "E08000030", "E07000194", "E07000199", "E08000027", "E07000234", "E08000028", "E08000025", "E07000218", "E07000235", "E07000239", "E07000236", "E08000029", "E08000026", "E07000219", "E06000019", "E07000237", "E07000238", "E07000222", "E07000220", "E07000221"),
name = c("Stoke-on-Trent", "Newcastle-under-Lyme", "Stafford", "Staffordshire Moorlands", "Shropshire", "Telford and Wrekin", "Cannock Chase", "East Staffordshire", "Wolverhampton", "South Staffordshire", "Walsall", "Lichfield", "Tamworth", "Dudley", "Bromsgrove", "Sandwell", "Birmingham", "North Warwickshire", "Malvern Hills", "Wyre Forest", "Redditch", "Solihull", "Coventry", "Nuneaton and Bedworth", "Herefordshire, County of", "Worcester", "Wychavon", "Warwick", "Rugby", "Stratford-on-Avon"),
stringsAsFactors = FALSE
)
# Yorkshire and The Humber
yorkshire_and_the_humber <- data.frame(
row = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5),
col = c(1, 2, 3, 4, 2, 3, 4, 5, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 3, 4),
code = c("E07000163", "E07000166", "E07000164", "E07000168", "E08000032", "E07000165", "E06000014", "E07000167", "E08000033", "E08000035", "E07000169", "E06000011", "E06000010", "E06000012", "E08000034", "E08000016", "E08000036", "E08000017", "E06000013", "E08000019", "E08000018"),
name = c("Craven", "Richmondshire", "Hambleton", "Scarborough", "Bradford", "Harrogate", "York", "Ryedale", "Calderdale", "Leeds", "Selby", "East Riding of Yorkshire", "Kingston upon Hull, City of", "North East Lincolnshire", "Kirklees", "Barnsley", "Wakefield", "Doncaster", "North Lincolnshire", "Sheffield", "Rotherham"),
stringsAsFactors = FALSE
)