R确定五大湖沿岸国家的形状

我引用这篇文章是为了绘制一幅州轮廓图。然而，与五大湖接壤的州是我认为每个州“拥有”的地区边界，而不是陆地边界

有人知道我如何绘制各州的陆地边界吗？下面是我的代码，它目前做什么

编辑：我遇到的后续问题是试图在此地图上绘制点。我得到的误差必须是长度1或与数据（1113691）相同：x，y。我在下面添加了绘制我的观点所需的代码作为注释Fix：我想我必须在使用aes方法的两个位置指定数据字段，因此我将经度和纬度向量组合到一个数据帧中。错误不再发生，但仍不会打印点。有人知道问题是什么吗

library(raster)
library(ggplot2)

states    <- c('Maine', 'New Hampshire', 'Vermont', 
             'New York', 'Connecticut', 'Rhode Island', 'Pennsylvania', 
             'New Jersey', 'Maryland', 'District of Columbia', 'West Virginia', 'Virginia', 
             'North Carolina', 'South Carolina', 'Georgia', 'Florida', 'Alabama', 'Mississippi',
             'Louisiana', 'Texas', 'Arkansas', 'Oklahoma', 'Kansas', 'Nebraska', 'South Dakota', 'North Dakota',
             'Minnesota', 'Iowa', 'Missouri', 'Wisconsin', 'Illinois', 'Indiana', 'Michigan', 'Ohio', 'Kentucky',
             'Tennessee', 'Massachusetts', 'Delaware')
us <- getData("GADM",country="USA",level=1)

us.states <- us[us$NAME_1 %in% states,]

#longitudes <- c(-75.5, -75.2, -76.5, -77.7, -78.5, -79.4, -81.0, -83.5, -86.0)
#latitudes <- c(23.2, 23.0, 24.0, 25.0, 25.7, 26.0, 26.3, 26.5, 27.5)
#hurricane_rows <- data.frame(longitudes, latitudes)
ggplot(data=us.states,aes(x=long,y=lat,group=group)) +
    geom_path() +
    coord_map() # +
    #geom_point(data=hurricane_rows,aes(x=longitudes, y=latitudes), color="blue", size=1)

库（光栅）
图书馆（GG2）
州您可以尝试使用
地图
软件包中的
州
地图，该软件包已打印出五大湖：

library(ggplot2)
library(maps)

states    <- c('Maine', 'New Hampshire', 'Vermont', 
             'New York', 'Connecticut', 'Rhode Island', 'Pennsylvania', 
             'New Jersey', 'Maryland', 'District of Columbia', 'West Virginia', 'Virginia', 
             'North Carolina', 'South Carolina', 'Georgia', 'Florida', 'Alabama', 'Mississippi',
             'Louisiana', 'Texas', 'Arkansas', 'Oklahoma', 'Kansas', 'Nebraska', 'South Dakota', 'North Dakota',
             'Minnesota', 'Iowa', 'Missouri', 'Wisconsin', 'Illinois', 'Indiana', 'Michigan', 'Ohio', 'Kentucky',
             'Tennessee', 'Massachusetts', 'Delaware')
us.states <- map_data("state", region=states)

#longitudes <- c(-75.5, -75.2, -76.5, -77.7, -78.5, -79.4, -81.0, -83.5, -86.0)
#latitudes <- c(23.2, 23.0, 24.0, 25.0, 25.7, 26.0, 26.3, 26.5, 27.5)
#hurricane_rows <- data.frame(longitudes, latitudes)
ggplot(data=us.states,aes(x=long,y=lat,group=group)) +
    geom_path() +
    coord_map() # +
    #geom_point(data=hurricane_rows,aes(x=longitudes, y=latitudes), color="blue", size=1)

库（ggplot2）
图书馆（地图）
州