Los 5 estados con mejor y peor recuperación económica después del COVID-19
Axel Saidt Rodriguez Poblano, Benjamín Cedillo Arias, Esteban Barron Romero
Los 5 estados con mejor recuperación económica
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Campeche", Actividad_Principal = "Minería petrolera", longitud = -90.5237, latitud = 19.8454)
lugar2 <- c(Nombre = "Chiapas", Actividad_Principal = "Comercio", longitud = -93.1167, latitud = 16.74)
lugar3 <- c(Nombre = "Oaxaca", Actividad_Principal = "Alquiler de biene e inmuebles", longitud = -96.7203, latitud = 17.0669)
lugar4 <- c(Nombre = "Veracruz", Actividad_Principal = "Comercio", longitud = -96.1333, latitud = 19.1727)
lugar5 <- c(Nombre = "Guerrero", Actividad_Principal = "Comercio", longitud = -99.90891, latitud = 16.84942)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Nombre:", lugares$Nombre, "Actividad Principal:", lugares$Actividad_Principal))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) Estados con mejor recuperación económica y su aportación al PIB
| Estados | Actividad Principal | Porcentaje que agrega en el PIB (del estado) |
|---|---|---|
| Campeche | Minería petrolera | 79% |
| Veracruz | Comercio/Turismo | 35% |
| Guerrero | Comercio/Turismo | 32% |
| Chiapas | Comercio | 19% |
| Oaxaca | Alquiler de bienes muebles e inmuebles | 18% |
Alquiler de inmuebles
Industria Petroquimica
Turismo
Los 5 estados con peor recuperación económica
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Sonora", Actividad_Principal = "Industria Manufacturera", longitud = -110.6666, latitud = 29.3333300)
lugar2 <- c(Nombre = "Baja California", Actividad_Principal = "Fabricación de maquinaria", longitud = -117.00371, latitud = 32.5027)
lugar3 <- c(Nombre = "Colima", Actividad_Principal = "Construcción", longitud = -103.72714, latitud = 19.24)
lugar4 <- c(Nombre = "Morelos", Actividad_Principal = "Industria Manufacturera", longitud = -99.23075, latitud = 18.9261)
lugar5 <- c(Nombre = "Baja California Sur", Actividad_Principal = "Turismo", longitud = -110.3, latitud = 24.13333)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -110, lat = 25.7, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Nombre:", lugares$Nombre, "Actividad Principal:", lugares$Actividad_Principal))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))Estados con peor recuperación económica y su aportación al PIB
| Estados | Actividad Principal | Porcentaje que agrega en el PIB (del estado) |
|---|---|---|
| Morelos | Manufactura | 67% |
| Colima | Construcción | 43% |
| Sonora | Manufactura | 43% |
| Baja California Sur | Turismo | 32% |
| Baja California Norte | Fabricación de maquinaria | 29% |
Construcción
Manufactura
Construcción de maquinaria
