使用传单在R中创建一个带有标记的假地图

我想创建一个带leafleat的假地图。这个想法是以0,0和半径2为中心的一个圆，并在里面显示一些标记。这是我如何生成圆（关于如何提高代码中的注释都非常欢迎！）使用传单在R中创建一个带有标记的假地图

library(sp) 
library(leaflet) 
circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){ 
    r = diameter/2 
    tt <- seq(0,2*pi,length.out = npoints) 
    xx <- center[1] + r * cos(tt) 
    yy <- center[2] + r * sin(tt) 
    Sr1 = Polygon(cbind(xx, yy)) 
    Srs1 = Polygons(list(Sr1), "s1") 
    SpP = SpatialPolygons(list(Srs1), 1:1) 
    return(SpP) 
} 
Circle.Town <- circleFun(c(0,0),5,npoints = 100)

我能画圆用下面的代码：

leaflet(height = "400px") %>% addPolygons(data = Circle.Town)

我想使用下面的数据来标记添加到我的地图：

df1 <- data.frame(long=c(0.6,1,1.4), lat=c(-2, -.8, -0.2), other=c('a', 'b', 'c'), Color=c(10,8,6), 
        type=c('Public', 'Public', 'Private'), id=c(1:3))

我想标记的颜色是Color和形状是type。当我将鼠标悬停在标记上时，我还想提供一个显示id和other的工具提示。

我尝试这样做：

leaflet(height = "400px") %>% addPolygons(data = Circle.Town) %>% addMarkers(data = df1, lat = lat, lng =long)

，但我得到一个错误：

Error in inherits(f, "formula") : object 'long' not found

感谢您的帮助！

来源

2015-06-20 Ignacio

我得到'错误多边形（cbind（XX，YY））：环不closed'当我因为由于浮点计算而导致sin（tt [1]）== sin（tt [100]）'为'FALSE'，请尝试并创建'Circle.Town'。 – Spacedman

'leaflet（height =“400px”）％> addPolygons（data = Circle.Town）'适用于我...我不能做的是添加标记:( – Ignacio

在数据帧中的列表示为公式和公式开始与玩弄~：

leaflet(height = "400px") %>% 
     addPolygons(data = Circle.Town) %>% 
     addMarkers(data = df1, lat = ~lat, lng =~long)

来源

2015-06-20 21:58:09 Spacedman

谢谢！这让我更接近我想要的东西（颜色，形状和工具提示） – Ignacio

我认为你只能用'icon'参数改变标记，所以你需要为每个颜色和形状制作一个图标，并使用它，它不是微不足道的。 – Spacedman

使用传单在R中创建一个带有标记的假地图

回答

相关问题