使用rMaps绘制具有不同颜色的多边形

Question

我正在尝试使用rMaps在地图上绘制多边形，并使用不同颜色填充多边形。

我尝试更改'color'和'fillcolor'属性失败：

require(yaml)
library(rCharts)
library(rMaps)
library(plyr)

mk_polygon <- function(lats, lons, poly_color){ 
  stopifnot(length(lats)==length(lons))
  coord_list <- llply(seq_along(lats), function(i) c(lons[[i]], lats[[i]]))
  list(
    type = 'Feature',
    properties = list(color = poly_color,
                      fillcolor = poly_color,
                      name = "station"),
      geometry = list(type = 'Polygon',
                      coordinates = list(coord_list))
  )
}

style <- list()
polygons <- list()
path <- "C:/DataVisualization/polygons/"
files <- list.files(path)
for(i in 1:length(files)){
  poly <- read.csv(paste(path,files[i],sep=""),header=T)
  polygons[[length(polygons)+1]] <- mk_polygon(poly$lat, poly$lon, color[i])
}

NYC <- c(40.7142700, -74.0059700)

map <- Leaflet$new()
map$setView(NYC, zoom = 10)
map$geoJson(polygons)
map

我的代码绘制了所有具有相同颜色的多边形（蓝色，默认颜色）。

有谁知道如何改变它？ 非常感谢任何帮助。