在 R 中将颜色插入谷歌地图答案

【问题标题】：Insert color into Google Maps in R在 R 中将颜色插入谷歌地图
【发布时间】：2021-08-19 20:20:43
【问题描述】：

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

非常感谢！

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")

【问题讨论】：

标签： r google-maps

【解决方案1】：

只有 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")

【讨论】：

感谢您的回答。有一些方法可以为颜色创建一个通用函数，你知道吗？因为会有多达 20 个集群的案例。
我发布的代码适用于有多少集群 - 每个集群都将被分配 4 种可用颜色中的一种。
集群 5 的颜色与集群 1 相同（在本例中为蓝色）。这是我想避免的。在这种情况下，我希望每个集群只有一种颜色。
只有 4 种可用颜色。
我可以插入更多吗？