Нарисуйте точки на карте, используя R

Question

Привет, я строю несколько точек в наборе данных.Мне нужно увеличить карту до Северной Америки, чтобы точки отображались правильно.Ниже приведен код, который я использовал

cleanup <-
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_rect(fill = 'white', colour = 'white'),
        axis.line = element_line(colour = "white"), legend.position="none",
        axis.ticks=element_blank(), axis.text.x=element_blank(),
        axis.text.y=element_blank())

base_world <- base_world_messy + cleanup

#Add simple data points to map
map_data <-
  base_world +
  geom_point(data=House,
             aes(x=long, y=lat), colour="Deep Pink",
             fill="Pink",pch=21, size=5, alpha=I(0.7))

map_data

Что мне нужно, чтобы увеличить карту и отобразить.Ниже приведена карта, которую я получил