Problema al hacer el zoom a unos municipios con la funcion renderLeaflet
Alejandro Ponce-mendoza
Hola Diego!!
Espero que estes muy bien...
Estoy haciendo un Shiny con los datos de SADER y uso la función mxmunicipios_leaflet. me gustaría que al momento de seleccionar una serie de municipios (e.g. de aguascalientes) el mapa se hiciera un Zoom a estos...sin embargo no lo logro :(
Aquí el mapa con todos los datos
Cuando hago un filtro:
No hace el Zoom hacia Aguascalientes en este caso :/
Aquí como pido la función:
#############
output$mymap2
<- renderLeaflet({
MxMunicipios3 <- points1() %>%
as.data.frame()
HHH <-
c("white",brewer.pal(6, "Reds"))
pal <- colorNumeric(HHH, domain =
MxMunicipios3$value)
mxmunicipio_leaflet(MxMunicipios3,
pal,
~ pal(value),
zoom = MxMunicipios3$region,
~ sprintf("Estado: %s<br/> Municipio: %s<br/> Agricultores:
%s<br/>Sup. apoyada (ha): %s",
state_name, municipio_name, Agricultor,value)) %>%
addLegend(position =
"topright", pal = pal, values = MxMunicipios3$value,
title = "Superficie<br>Sembrada (ha)") %>%
addProviderTiles("CartoDB.Positron")
})
##############
NOTA:
points1 = mi base de datos interactiva.
Aqui mi sessionInfo()
#######
R version 4.1.0 (2021-05-18)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Big Sur 11.4
Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.1/Resources/lib/libRlapack.dylib
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] stats graphics grDevices
utils datasets methods
base
other attached packages:
[1] RColorBrewer_1.1-2
xlsx_0.6.5
leaflet_2.0.4.1
[4] plotly_4.9.4.1
shinyWidgets_0.6.0 shinydashboard_0.7.1
[7] patchwork_1.1.1
ghibli_0.3.2.9000 ggthemes_4.2.4
[10] mxmaps_2020.1.0
openxlsx_4.2.4
readxl_1.3.1
[13] forcats_0.5.1
stringr_1.4.0
dplyr_1.0.7
[16] purrr_0.3.4
readr_1.4.0
tidyr_1.1.3
[19] tibble_3.1.3
ggplot2_3.3.5
tidyverse_1.3.1
[22] shiny_1.6.0
testthat_3.0.4 devtools_2.4.2
[25] usethis_2.0.1
########
Saludos
Alex
Diego Valle-Jones
Alejandro Ponce-mendoza
library(scales)
library(leaflet)
library(mxmaps)
data(df_mxstate)
df_mxstate$value <- df_mxstate$afromexican / df_mxstate$pop
pal1 <- colorNumeric("Blues", domain = df_mxstate$value)
mxstate_leaflet(df = df_mxstate,
pal = pal1,
pal(df_mxstate$value),
fillOpacity = 0.8,
mapzoom = 5,
popup = sprintf("State: %s<br/>Value: %s",
df_mxstate$state_name, comma(df_mxstate$value))
) %>%
addLegend(position = "bottomright", pal = pal, values = df_mxstate$value) %>%
addProviderTiles("CartoDB.Positron")
## End(Not run)
argument "fillOpacity" is missing, with no default
datos_prueba <- df_mxmunicipio %>%
as.data.frame() %>%
filter(state_name == "Yucatán")
datos_prueba$value <- datos_prueba$indigenous /datos_prueba$pop
HHH <- c("white",brewer.pal(6, "Reds"))
#pal <- colorNumeric(magma, domain = datos_prueba$value)
mxmunicipio_leaflet(datos_prueba,
pal,
~ pal(value),
opacity = 0.8,
fillOpacity = 0.8,
mapzoom = 6,
zoom = datos_prueba$region,
popup = sprintf("State: %s<br/>Municipio : %s<br/>Value: %s%%",
datos_prueba$state_name,
datos_prueba$municipio_name,
round(datos_prueba$value * 100, 1))) %>%
addLegend(position = "bottomright", pal = pal,
values = datos_prueba$value) %>%
addProviderTiles("CartoDB.Positron")
## End(Not run)
Diego Valle-Jones
Alejandro Ponce-mendoza
library(shiny)
library(leaflet)
library(mxmaps)
library(tidyverse)
library(RColorBrewer)
datos_prueba1 <- df_mxmunicipio %>%
as.data.frame() %>%
filter(state_name == "Oaxaca")
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Mapa Prueba"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
selectInput(
inputId = "mun_estado",
label = h6("Estado"),
choices = c("Casi", "All", levels(as.factor(df_mxmunicipio$state_name)))
)
),
# Show a plot of the generated distribution
fluidRow(leafletOutput(outputId = "mymap3"))
)
)
# Define server logic required to draw a histogram
server <- function(input, output, session) {
points1 <- reactive({
if(input$mun_estado != "All"){
TTabla <- df_mxmunicipio %>%
dplyr::filter(state_name %in% input$mun_estado) %>%
distinct(region, .keep_all = T)
} else {
TTabla <- df_mxmunicipio
}
})
output$mymap3 <- renderLeaflet({
datos_prueba <- points1() %>%
as.data.frame() %>%
mutate(value = indigenous / pop)
HHH <- c("blue","white",brewer.pal(6, "Reds"))
pal <- colorNumeric(HHH, domain = datos_prueba$value)
pal,
~ pal(value),
opacity = 0.8,
fillOpacity = 0.8,
lat = 23.8,
#mapzoom = 6,
zoom = datos_prueba$region,
popup = sprintf("State: %s<br/>Municipio : %s<br/>Value: %s%%",
datos_prueba$state_name,
datos_prueba$municipio_name,
round(datos_prueba$value * 100, 1))) %>%
addLegend(position = "bottomright", pal = pal,
values = datos_prueba$value) %>%
addProviderTiles("CartoDB.Positron")
}
# Run the application
shinyApp(ui = ui, server = server)
