使用来自具有纬度和经度值的数据框的传单和 rCharts 绘制标记

Question

我正在尝试使用 rCharts 学习传单功能，并希望绘制从 R

中的 data.frame 对象获得的多个标记和弹出窗口

df <- data.frame(location = c("White House", "Impound Lot", "Bush Garden", "Rayburn", "Robertson House", "Beers Elementary"), latitude = c(38.89710, 38.81289, 38.94178, 38.8867787, 38.9053894, 38.86466), longitude = c(-77.036545, -77.0171983, -77.073311, -77.0105317, -77.0616441, -76.95554))
df
          location latitude longitude
1      White House 38.89710 -77.03655
2      Impound Lot 38.81289 -77.01720
3      Bush Garden 38.94178 -77.07331
4          Rayburn 38.88678 -77.01053
5  Robertson House 38.90539 -77.06164
6 Beers Elementary 38.86466 -76.95554

我尝试修改 Ramnanth's rCharts page 上示例中的代码。这是我的修改：

map <- Leaflet$new()
map$setView(c(38.89710, -77.03655), 12)
map$tileLayer(provider = 'Stamen.TonerLite')
map$marker(c(df$latitude, df$longitude), bindPopup = df$location)

此代码不产生任何标记。我正在寻找一种解决方案，借此我可以为每次观察绘制纬度和经度，并有一个标记，其中的弹出窗口由位置列中的值填充。

Answer 1

那是行不通的，因为 df$latitude returns 一个包含数据框中所有纬度的向量：

df$latitude
## [1] 38.89710 38.81289 38.94178 38.88678 38.90539 38.86466
df$longitude
##b[1] -77.03655 -77.01720 -77.07331 -77.01053 -77.06164 -76.95554

您需要在循环中添加标记：

for (i in 1:nrow(df)) {
    map$marker(c(df[i, "latitude"], df[i, "longitude"]), bindPopup = df[i, "location"])
}

注意：快速完成，徒手完成，刚开始使用 R，目前无法测试。

使用来自具有纬度和经度值的数据框的传单和 rCharts 绘制标记

Plotting markers using leaflet and rCharts from a data frame with lat and lon values

r

gis

leaflet

rcharts