Update ggcounty.R