EVOLUTION-MANAGER

Edit File: .Rhistory

"PAJÁN", "BOLÍVAR") #Lectura del archivo con los datos datos <- read.table('./data/datos_cantones.csv', sep=",", header = TRUE) #Se lo convierte a data frame df <- data.frame(datos) vias <- st_read("./data/Vialidad_estatal.geojson", quiet = T) mnb$region <- ifelse(test = mnb$DPA_DESCAN %in% rss, yes = "Cantones objetivo", no = "Resto de cantones") mnb$datos_cantones <- ifelse(test = mnb$DPA_CANTON %in% df$dpa_canton, yes = "Cabeceras", no = "Nada") popup_cantones <- paste0("<strong>Cabecera cantonal</strong><br />", df$cabecera, "<br /> Poblaci&oacute;n: ", df$poblacion ) # Cantones mnb$edoMultiple <- case_when(mnb$region == "Cantones objetivo" ~ str_to_title(mnb$DPA_DESCAN), mnb$region != "Cantones objetivo" ~ "Resto de cantones") # Paleta pal2 <- colorFactor(palette = c( "yellow", #Portoviejo "#6d5f99", #Rocafuerte "#9f8f12", #Santa Ana "#3691a4", #Jama "#ccb22b", #Pedernales "#27697b", #El Carmen "gray", #Resto de cantones "#5faa85", #Chone "#87c6c6", #Puerto López "#c0a521", #Jipijapa "#34aabc", #Montecristi "yellow", #24 de Mayo "blue", #Pichincha "red", #Sucre "green", #Manta "#4f887a", #Jaramijó "#924aab", #Tosagua "#8a8a8a", #Junín "#4a4a4a", #San Vicente "#454f4f", #Olmedo "#2a2a2a", #Flavio alfaro "#1f4f2f", #Paján "#42fa32"), #Bolívar domain = mnb$edoMultiple) etiquetas <- sprintf( "<strong>%s</strong>", mnb$edoMultiple ) %>% lapply(htmltools::HTML) iconos <- awesomeIcons( icon = 'road', iconColor = "orange", markerColor = "lightgray", library = 'fa' ) #puentes$DESCRIPCIÓN.DEL.PROYECTO vias mnb <- addPolylines(mnb, lng =1, lat=1, data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolylines( data = vias)%>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)#%>% setwd('~/solinf/proyectos/gpm/mapplet-r-gpm/Manabi_vias_estatales') mnb <- st_read("./data/Manabi.geojson", quiet = T) rss <- c("PORTOVIEJO", "ROCAFUERTE", "SANTA ANA", "JAMA", "PEDERNALES", "EL CARMEN", "CHONE", "PUERTO LÓPEZ", "JIPIJAPA", "MONTECRISTI", "24 DE MAYO", "PICHINCHA", "SUCRE", "MANTA", "JARAMIJÓ", "TOSAGUA", "JUNÍN", "SAN VICENTE", "OLMEDO", "FLAVIO ALFARO", "PAJÁN", "BOLÍVAR") #Lectura del archivo con los datos datos <- read.table('./data/datos_cantones.csv', sep=",", header = TRUE) #Se lo convierte a data frame df <- data.frame(datos) vias <- st_read("./data/Vialidad_estatal.geojson", quiet = T) mnb$region <- ifelse(test = mnb$DPA_DESCAN %in% rss, yes = "Cantones objetivo", no = "Resto de cantones") mnb$datos_cantones <- ifelse(test = mnb$DPA_CANTON %in% df$dpa_canton, yes = "Cabeceras", no = "Nada") popup_cantones <- paste0("<strong>Cabecera cantonal</strong><br />", df$cabecera, "<br /> Poblaci&oacute;n: ", df$poblacion ) # Cantones mnb$edoMultiple <- case_when(mnb$region == "Cantones objetivo" ~ str_to_title(mnb$DPA_DESCAN), mnb$region != "Cantones objetivo" ~ "Resto de cantones") # Paleta pal2 <- colorFactor(palette = c( "yellow", #Portoviejo "#6d5f99", #Rocafuerte "#9f8f12", #Santa Ana "#3691a4", #Jama "#ccb22b", #Pedernales "#27697b", #El Carmen "gray", #Resto de cantones "#5faa85", #Chone "#87c6c6", #Puerto López "#c0a521", #Jipijapa "#34aabc", #Montecristi "yellow", #24 de Mayo "blue", #Pichincha "red", #Sucre "green", #Manta "#4f887a", #Jaramijó "#924aab", #Tosagua "#8a8a8a", #Junín "#4a4a4a", #San Vicente "#454f4f", #Olmedo "#2a2a2a", #Flavio alfaro "#1f4f2f", #Paján "#42fa32"), #Bolívar domain = mnb$edoMultiple) etiquetas <- sprintf( "<strong>%s</strong>", mnb$edoMultiple ) %>% lapply(htmltools::HTML) iconos <- awesomeIcons( icon = 'road', iconColor = "orange", markerColor = "lightgray", library = 'fa' ) #puentes$DESCRIPCIÓN.DEL.PROYECTO vias leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolylines( data = vias)%>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)#%>% leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines( data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "#42fa32", weight = 20, data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "#42fa32", weight = 5, data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "#42fa32", weight = 5, options = pathOptions(pane = "ames_lines") data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "#42fa32", weight = 5, options = pathOptions(pane = "ames_lines"), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "#42fa32", weight = 5, options = pathOptions(pane = "ames_circles", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 5, options = pathOptions(pane = "ames_circles", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 15, options = pathOptions(pane = "ames_circles", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 20, options = pathOptions(pane = "ames_circles", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 20, options = pathOptions(pane = "ames_lines", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines( weight = 20, options = pathOptions(pane = "ames_lines", clickable = TRUE), data = vias) #puentes$DESCRIPCIÓN.DEL.PROYECTO vias leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines( weight = 20, options = pathOptions(pane = "ames_lines", clickable = TRUE), data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 20, data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 10, data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 2, data = vias) rm(list=ls) rm(list(ls)) rm(list=ls()) popup_vias <- paste0("<strong>",vias$descripcio,"<br />Monto: </strong>", vias$CASAS, "<br /><strong>Longitud: </strong>", vias$Tipo, " km<br /><strong>Cant&oacute;n: </strong>", vias$mes, "<br/><strong>Parroquia: </strong>", vias$PARROQUIA) vias <- st_read("./data/Vialidad_estatal.geojson", quiet = T) popup_vias <- paste0("<strong>",vias$descripcio,"<br />Monto: </strong>", vias$CASAS, "<br /><strong>Longitud: </strong>", vias$Tipo, " km<br /><strong>Cant&oacute;n: </strong>", vias$mes, "<br/><strong>Parroquia: </strong>", vias$PARROQUIA) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 2, popup = ~popup_vias data = vias) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 2, popup = ~popup_vias, data = vias) setwd('~/solinf/proyectos/gpm/mapplet-r-gpm/Manabi_vias_estatales') mnb <- st_read("./data/Manabi.geojson", quiet = T) rss <- c("PORTOVIEJO", "ROCAFUERTE", "SANTA ANA", "JAMA", "PEDERNALES", "EL CARMEN", "CHONE", "PUERTO LÓPEZ", "JIPIJAPA", "MONTECRISTI", "24 DE MAYO", "PICHINCHA", "SUCRE", "MANTA", "JARAMIJÓ", "TOSAGUA", "JUNÍN", "SAN VICENTE", "OLMEDO", "FLAVIO ALFARO", "PAJÁN", "BOLÍVAR") #Lectura del archivo con los datos datos <- read.table('./data/datos_cantones.csv', sep=",", header = TRUE) #Se lo convierte a data frame df <- data.frame(datos) vias <- st_read("./data/Vialidad_estatal.geojson", quiet = T) mnb$region <- ifelse(test = mnb$DPA_DESCAN %in% rss, yes = "Cantones objetivo", no = "Resto de cantones") mnb$datos_cantones <- ifelse(test = mnb$DPA_CANTON %in% df$dpa_canton, yes = "Cabeceras", no = "Nada") popup_cantones <- paste0("<strong>Cabecera cantonal</strong><br />", df$cabecera, "<br /> Poblaci&oacute;n: ", df$poblacion ) # Cantones mnb$edoMultiple <- case_when(mnb$region == "Cantones objetivo" ~ str_to_title(mnb$DPA_DESCAN), mnb$region != "Cantones objetivo" ~ "Resto de cantones") # Paleta pal2 <- colorFactor(palette = c( "yellow", #Portoviejo "#6d5f99", #Rocafuerte "#9f8f12", #Santa Ana "#3691a4", #Jama "#ccb22b", #Pedernales "#27697b", #El Carmen "gray", #Resto de cantones "#5faa85", #Chone "#87c6c6", #Puerto López "#c0a521", #Jipijapa "#34aabc", #Montecristi "yellow", #24 de Mayo "blue", #Pichincha "red", #Sucre "green", #Manta "#4f887a", #Jaramijó "#924aab", #Tosagua "#8a8a8a", #Junín "#4a4a4a", #San Vicente "#454f4f", #Olmedo "#2a2a2a", #Flavio alfaro "#1f4f2f", #Paján "#42fa32"), #Bolívar domain = mnb$edoMultiple) etiquetas <- sprintf( "<strong>%s</strong>", mnb$edoMultiple ) %>% lapply(htmltools::HTML) iconos <- awesomeIcons( icon = 'road', iconColor = "orange", markerColor = "lightgray", library = 'fa' ) popup_vias <- paste0("<strong>",vias$descripcio,"<br />Monto: </strong>", vias$CASAS, "<br /><strong>Longitud: </strong>", vias$Tipo, " km<br /><strong>Cant&oacute;n: </strong>", vias$mes, "<br/><strong>Parroquia: </strong>", vias$PARROQUIA) leaflet(mnb, options = leafletOptions(zoomControl = TRUE)) %>% addProviderTiles("CartoDB.Positron") %>% addPolygons(stroke = TRUE, color = "white", dashArray = c(1,1), label = etiquetas, fillOpacity = 0.95, weight = 2, fillColor = "lightgray", #pal2(mnb$edoMultiple), popup = ~popup_cantones)%>% addPolylines(color = "blue", weight = 2, popup = ~popup_vias, data = vias)