如何使用传单

问题描述

我正在尝试创建一张带有传单的按县显示发电能力的地图。每个县可以有多个发电机组，但我认为这不会成为绘制县容量的问题。我从 tidycensus 中提取了县的几何形状，并将它们与县发电能力的数据集结合起来。我在下面包含了我的代码。任何帮助/见解将不胜感激！

  Texas_counties <- get_acs(state = "TX",geography = "county",variables = c(totalpop = "B01003_001"),geometry = TRUE)

  Texas_counties <- Texas_counties %>%
  mutate(NAME = gsub(" County,Texas","",NAME))

  Texas_counties <- Texas_counties %>%
    mutate(NAME = toupper(NAME))
  Texas_counties$GEOID <- NULL
  Texas_counties$variable <- NULL
  Texas_counties$estimate <- NULL
  Texas_counties$moe <- NULL

  colnames(Texas_counties)[1] <- "COUNTY"

  ERCOT_counties <- left_join(ERCOT_report,Texas_counties,by = "COUNTY")

  pal <- colorNumeric("viridis",NULL)

 leaflet(ERCOT_counties) %>%
 addTiles() %>%
 addpolygons(data = geometry,stroke = FALSE,smoothFactor = 0.3,fillOpacity = 1,fillColor = ~pal(COUNTY_CAPACITY))

Error in polygonData.default(data) : Don't kNow how to get path data from object of class standardGeneric

解决方法

由于我们没有您的 ERGOT_report 数据框的内容，所以很难知道，但我的猜测是您收到该错误是因为您使用的是一个简单的数据框而不是 { {1}} 或 sf 调用中的空间数据框。

只要有可能，我发现将我的数据和空间特征放在一个 leaflet() 对象中是最容易的。因此，这里有一个示例，说明如何从 tigris 获取县几何，将其与非空间数据框连接（我只是在这里制作了一些数据），然后制作地图。请注意，当您连接空间数据框和非空间数据框时，连接的顺序很重要。因此，如果您希望连接的输出为空间数据，则第一个数据框必须是 sf 对象，第二个是非空间数据框。

sf

geospatial leaflet r r