нарисовать бар на основе значения столбца на карте - PullRequest
Новая
       26

нарисовать бар на основе значения столбца на карте

2 голосов
/ 07 апреля 2019

Я использую колоду карт, чтобы нарисовать почти 100 тыс. Точек, возможно ли вместо точки показать столбец на основе значения установленного столбца 

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

Я тоже знаком с листовкой, поэтомуЯ тоже могу это использовать, если это возможно.

1 Ответ

1 голос
/ 10 апреля 2019

используя версию карты 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
...