Я не на 100% уверен, что это то, что вам нужно, но при работе с тепловыми картами иногда может помочь отрегулировать значение radius
.Например, если вы измените это значение с 7 на 10, вы получите более насыщенные цвета и значения.Попробуйте запустить это и посмотреть, что вы ищете.(Я также изменил fillOpacity
на маркерах на .5, чтобы показать тепловую карту немного яснее)
library('leaflet.extras')
kml <- readr::read_file(
system.file("examples/data/kml/crimes.kml.zip", package = "leaflet.extras")
)
leaflet() %>%
setView(-77.0369, 38.9072, 12) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addKMLHeatmap(kml, radius = 10) %>%
addKML(
kml,
markerType = "circleMarker",
stroke = FALSE, fillColor = "black", fillOpacity = .5,
markerOptions = markerOptions(radius = 1))