0

我在 R 中创建了印第安纳州的等值线地图。该地图已构建为一个闪亮的应用程序——地图本身的代码如下：

if(var() == "Social Vulnerability Indicator (SVI) Score"){
  x <- ggplot(data = counties.regions.df,
              mapping = aes(x = long,
                            y = lat,
                            group = group)) +
    coord_fixed(1.3) +
    geom_polygon(color = "black") +
    geom_polygon(data = IndianaPlotting_V3, mapping = aes(fill = SVI_Score,
                                                          text = paste("Location:",
                                                                       paste(county, region, sep = ", "),
                                                                       sep = " ")),
                 color = "black") +
    theme_nothing() +
    scale_fill_viridis(direction = -1) +
    theme(legend.position = "right")
  
  ggplotly(x, tooltip = c("text", "fill")) %>%
    layout(width = 600, height = 600)
}

上述代码的输出如下所示：Indiana State Choropleth。

我之前已经对此运行了 kmeans 聚类，并将所述聚类添加到代码片段中引用的 IndianaPlotting_V3 数据帧中。我需要为这个等值线分配一个调色板，它根据每个县分配到的集群来缩放颜色。关于如何做到这一点的任何想法？我尝试了各种在线资源，但都没有取得任何成功。

4

0 回答 0