Update subset_ukip.R