[英]R Leaflet: Add a Range Slider to Filter Markers without Shiny
我有一個如下所示的數據集。 Is there a way without shiny (eg any javascript code or leaflet plugins) to add a range slider to filter the points based on the values in a column (eg a Date variable)? 類似於下面的代碼,預期的 output 類似於下圖。 同樣,我需要此功能而不使用 shiny。
data <- data.frame(id = c(1,2,3,4,5),
lat= c(50.9, 50.8, 50.5, 50.5, 51),
lon = c(-0.7, -0.92, -1, -0.8, -0.9),
date = c("2020-06-01", "2020-05-07", "2020-03-24", "2020-04-01", "2020-05-26"))
data %>%
leaflet() %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addMarkers(lat=~lat, lng=~lon) %>%
addRangeSlider(~date)
預期 Output 格式:
根據@user2554330 的評論,這里有一個crosstalk
解決方案。
---
title: "crossover test"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library( crosstalk )
library( leaflet )
library( dplyr )
```
```{r load data }
data <- data.frame(id = c(1,2,3,4,5),
lat= c(50.9, 50.8, 50.5, 50.5, 51),
lon = c(-0.7, -0.92, -1, -0.8, -0.9),
date = c("2020-06-01", "2020-05-07", "2020-03-24", "2020-04-01", "2020-05-26"))
data <- data %>% dplyr::mutate( date2 = as.numeric( as.Date( date ) ),
date3 = as.Date( date )
)
```
```{r maak shared data object}
shared_data <- SharedData$new( data )
```
```{r genereer output}
filter_slider("date", "Date", shared_data, ~date3, width = "100%")
leaflet(shared_data, width = "100%", height = 800) %>%
leaflet::addTiles() %>%
leaflet::addMarkers()
```
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.