时间戳

首页 > 解决方案 > 在 R 中将颜色插入谷歌地图

r - 在 R 中将颜色插入谷歌地图

问题描述

我可以在谷歌地图上绘制房产的位置。但正如你所见，我把它分成了几组。所以，我需要来自相同集群的点具有相同的颜色。你能帮助我吗？

非常感谢你！

library(googleway)
library(geosphere)

set_key( "API_KEY" )

swf1<-structure(list(Properties = c(1,2,3,4,5,6), Lat = c(-24.781624,-24.775017,-24.769196,-24.761741,-24.752019,-24.748008), 
                     Lon = c(-49.937369,-49.950576,-49.927608,-49.92762,-49.920608,-49.927707)), 
                    class="data.frame",row.names = c(NA, -6L))

#clusters
d<-as.dist(distm(swf1[,2:1]))
fit.average<-hclust(d,method="average") 
clusters<-cutree(fit.average, 5) 
swf1$cluster<-clusters

google_map() %>%
  add_markers(
    data = swf1, lon = "Lon", lat = "Lat")

在此处输入图像描述

标签： rgoogle-maps

解决方案

只有 4 种可能的颜色 - 红色、蓝色、绿色和淡紫色。

以下代码基于模 4 将其中一种颜色分配给每个集群。

marker_colors<-c("red", "blue", "green", "lavender")
swf1$color <- marker_colors[swf1$cluster%% 4 +1]

google_map() %>%
  add_markers(
    data = swf1, lon = "Lon", lat = "Lat", colour="color")

推荐阅读