【发布时间】:2015-03-26 01:01:06
【问题描述】:
在仔细阅读Intro to Leaflet 之后,我尝试使用数据集,但是当我尝试使用公式界面时,海带没有为圆圈或标记提供颜色。我重新创建了一个玩具示例,并且如您所见,有些东西不对劲。虽然可能是我!所以:
library("leaflet")
set.seed(100)
pdf <- data.frame(Latitude = runif(100, -90,90), Longitude = runif(100, -180,180))
#just red
leaflet(pdf) %>% addTiles() %>%
addCircleMarkers(lat = ~ Latitude, lng = ~ Longitude, color= "red")
与显示红色圆圈标记的漂亮地图配合使用即可。
但是。添加颜色似乎完全破坏了标记。
#let's add some color!
pdf$Study <- factor(rep(1:10,10))
cols <- rainbow(length(levels(pdf$Study)))
pdf$colors <- cols[unclass(pdf$Study)]
leaflet(pdf) %>% addTiles() %>%
addCircleMarkers(lat = ~ Latitude, lng = ~ Longitude, color= ~ colors)
对 pdf 的颜色列的检查表明,一切都应该是明亮而美丽的,然而,唉。这是怎么回事?
【问题讨论】: