Question

我想用leafleat创建一个假地图。这个想法是有一个圆心，中心在0,0和半径2，并在里面显示一些标记。这就是我生成圆圈的方法（非常欢迎有关如何改进代码的评论！）

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

感谢您的帮助！

Answer 1

数据框中的列表示为公式，公式以旋转~开头：

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

使用R

1 个答案: