¿Cómo un modelo de análisis de cobertura se puede implementar en un proceso de recolección de residuos de café en cafeterías de Lima en el entorno de la economía circular?.

setwd("D:/EMPRESA TAQUIAGUTIERREZ/asignacionDemandaAplicacionEnLinea")
demandaGrupo1 <- read_excel("demandaGrupo1.xlsx")
demandaGrupo2 <- read_excel("demandaGrupo2.xlsx")
dataLocales<- read_excel("geolocalizacion.xlsx")
rows1<-length(na.omit(demandaGrupo2$Address))
rows2<-length(na.omit(dataLocales$Address))

myList <- list()
# set de lists
for(i in 1:rows1){
  element<-c(demandaGrupo2$Longitud[i],demandaGrupo2$Latitud[i])
  myList[[length(myList)+1]] <- list(element)
}

• Bullet 1
• Bullet 2
• Bullet 3

Breakpoint

lst2 <- unlist(asignacion, use.names = FALSE)
hist(lst2)

# definir el centro del mapa
lat_center<-mean(dataLocales$lat) 
long_center <- mean(dataLocales$lng) 

# Creamos el mapa de calor para la intensidad 
viz_map_cafe <-locales_alcance %>%leaflet() %>% 
  addTiles() %>% 
  addProviderTiles(providers$OpenStreetMap.DE) %>% 
  setView(long_center,lat_center,14) %>% addHeatmap(lng=~locales_alcance$lng,lat=~locales_alcance$lat, intensity= locales_alcance$intensidad,max=20,radius=20,blur=10)

viz_map_cafe