factor(health$region, labels = c("Highlands & Islands", "Grampian & Tayside",
"Lothian & Fife", "Borders, Dumfries & Galloway", "Glagow",
"Lanarkshire,Ayrshire & Arran", "Forth Valley, Argyll & Clyde"))