时间戳

首页 > 解决方案 > 根据地图中列的值绘制条形图

r - 根据地图中列的值绘制条形图

问题描述

我正在使用地图甲板绘制近 100K 点，是否可以代替点，根据安装的列的值显示条形

library(mapdeck)
library(htmlwidgets)
dataset =data.frame(stringsAsFactors=FALSE,
           x = c(143.4865219, 143.4865241, 143.4865264, 143.4865286,
                 143.4865305, 143.4865327),
           y = c(-34.7560602, -34.7561332, -34.7562088, -34.7562818,
                 -34.7563453, -34.7564183),
   installed = c("yes", "yes", "yes", "no", "no", "no")
)
MAPBOX_API_KEY = "xxxxxxxxxx"
test = mapdeck( token = MAPBOX_API_KEY ) %>%
      add_scatterplot(dataset,lon="x",lat="y")%>%
      mapdeck_view(location=center,pitch = 45,zoom=13)
#saveWidget(test, file="C:/Users/mimoune.djouallah/mapdeck.html")
test

我也熟悉传单，所以我也可以使用它，如果它可以做到的话。

标签： rr-leafletdeck.glmapdeck

解决方案

使用 mapdeck 的开发版

library(mapdeck)
library(dplyr)
dataset =data.frame(stringsAsFactors=FALSE,
                    x = c(143.4865219, 143.4865241, 143.4865264, 143.4865286,
                          143.4865305, 143.4865327),
                    y = c(-34.7560602, -34.7561332, -34.7562088, -34.7562818,
                          -34.7563453, -34.7564183),
                    installed = c("yes", "yes", "yes", "no", "no", "no")
)
center=c(mean(dataset$x),mean(dataset$y))

MAPBOX_API_KEY ="xxxxxxx"
test = mapdeck( token = MAPBOX_API_KEY ) %>%
  add_column(filter(dataset,installed=="yes"),
             lon="x",
             lat="y",
             elevation = 3,
             disk_resolution = 5
             , radius = 0.9)%>%
  add_scatterplot(filter(dataset,installed=="no"),
                  lon="x",
                  lat="y")%>%
  mapdeck_view(location=center,pitch = 45,zoom=14)
test

推荐阅读