正在尝试在R中创建立面图

我对使用R非常陌生，目前我正在尝试使用以下代码创建研究场地的立面图：

library(rnaturalearth)
library(rnaturalearthhires)
library(mapview)
library(mapedit)
library(elevatr)
library(tidyverse)
library(raster)

countries<-ne_countries(scale = 110, type = "countries", continent = NULL,
                        country = NULL, geounit = NULL, sovereignty = NULL,
                        returnclass = c("sf"))

admin<-ne_states(country = NULL, geounit = NULL, iso_a2 = NULL, spdf = NULL,
                 returnclass = c("sf"))

admin %>% filter(name=="Áncash") -> Áncash
countries %>% filter(name=="Peru") -> PER

mapview(Áncash) %>% editMap() -> d  

poly<-d$drawn
elev1 <- get_elev_raster(poly, z = 14,clip="bbox")

库（rnaturalearth）
图书馆（RNATuralLearthHires）
图书馆（地图视图）
库（地图编辑）
图书馆
图书馆（tidyverse）
图书馆（光栅）
国家Áncash
国家%>%过滤器（名称=“秘鲁”）->每
地图视图（Áncash）%>%editMap（）->d
poly-poly-elev1一旦我下载了运行它所需的所有R包，您的代码实际上为我工作（最终）：

library(rnaturalearth)
library(rnaturalearthhires)
library(mapview)
library(mapedit)
library(elevatr)
library(tidyverse)
library(raster)

运行
editMap
时，您似乎遇到了一个错误，它启动了一个闪亮的应用程序，允许您在地图上绘制直线和多边形。您的问题中已包含您的IP地址，但此IP地址应为您的家庭地址，即
http://127.0.0.1

我认为您可能只需要更改正在运行Shining的端口，因此请尝试以下操作：

options(shiny.port = 7775)

那么当你这么做的时候

mapview(Áncash) %>% editMap() -> d

poly<-d$drawn
elev1 <- get_elev_raster(poly, z = 14, clip="bbox")

应该说

#> Listening on http://127.0.0.1:7775

您的查看器应显示以下内容：


然后，您应该能够在地图上绘制多边形。我建议您只绘制一个小多边形，否则高程数据将需要小时才能下载

当您对多边形满意时，停止应用程序，
d
将包含您的多边形。那么现在当你这么做的时候

mapview(Áncash) %>% editMap() -> d

poly<-d$drawn
elev1 <- get_elev_raster(poly, z = 14, clip="bbox")

您正在使用哪些软件包？该错误似乎发生在创建tcp服务器时。哪个函数创建tcpserver？您好t33ling，欢迎使用SO。您能通过提供一个最小的可复制示例来帮助我们吗？你会发现如何做到这一点。你好cbo，谢谢你发送的链接！我以后一定会遵守的。我是在咖啡因引发的恐慌状态下输入的，显然遗漏了一些重要信息。啊，这很有效！我想可能是因为我没有设置正确的端口。非常感谢你！