Как построить точки вхождения (lon/lat) на карте choropleth, но увеличить масштаб в определенной области?

#r

Вопрос:

Я использую choroplethr для создания карты плотности населения Калифорнии по округам, а затем пытаюсь построить координаты поверх этих данных (пользователи социальных сетей в Калифорнии определенного набора данных).

Я попробовал несколько решений, таких как ограничение конечного вывода широкими/длинными пределами и т. Д., Но на моем последнем (выделенном жирным шрифтом) шаге карта переходит в уменьшенное глобальное представление (и, возможно, отбрасывает мою тепловую карту населения клоро, она слишком мала, чтобы сказать).

Файл «latlon», в котором читается, выглядит как «местоположение lat lon южный Сан-Франциско, калифорния 37.65607071 -122.4141998 Окленд, калифорния 37.80508041 -122.2730713….» и т. Д.

 calicloseup = county_choropleth(df_pop_county,
                            title = "User Locations With California Population Heat Map",
                            legend = "Population",
                            num_colors = 5,
                            state_zoom = c("california")) calicloseup

lat = c(latlon$lat) lon = c(latlon$lon) latlonlayer = data.frame(lat, lon)

ggplot(latlonlayer)      geom_point(mapping = aes(lon, lat), color="red", size = 5, alpha=0.5, ) 

calicloseup      geom_point(data = latlonlayer, mapping = aes(lon, lat), color="red", size = 1, alpha=0.5, inherit.aes = FALSE)