ggplot(loc, aes(lon, lat, color = country, fill = country)) + geom_polygon(data = filter(loc, !is.na(hull)), alpha = 0.5) + geom_point() + guides(color = FALSE, fill = FALSE) + theme_bw() + theme(axis.text = element_blank())