actualizo 2022

d4t4tur · Dec 20, 2023 · bb79756 · bb79756
1 parent f5e9b53
commit bb79756
Show file tree

Hide file tree

Showing 44 changed files with 1,206 additions and 626 deletions.
diff --git a/_site.yml b/_site.yml
@@ -49,5 +49,5 @@ output:
   distill::distill_article:
     css: styles.css
     toc: true
-    code_folding: hide
+    code_folding: false
 
diff --git a/aereo.Rmd b/aereo.Rmd
@@ -39,5 +39,7 @@ plot_internacional
 
 - Tablero: https://tableros.yvera.tur.ar/conectividad/
 
+- Reporte: https://tableros.yvera.tur.ar/conectividad.html
+
 - [Metodología](metodologia.html#conectividad-aérea)
 
diff --git a/docs/aereo.html b/docs/aereo.html
diff --git a/docs/empresas.html b/docs/empresas.html
diff --git a/docs/interno.html b/docs/interno.html
diff --git a/docs/outputs/alojamiento.rds b/docs/outputs/alojamiento.rds
diff --git a/docs/outputs/edad.rds b/docs/outputs/edad.rds
diff --git a/docs/outputs/empresas.rds b/docs/outputs/empresas.rds
diff --git a/docs/outputs/graph_cabotaje.rds b/docs/outputs/graph_cabotaje.rds
diff --git a/docs/outputs/graph_internacional.rds b/docs/outputs/graph_internacional.rds
diff --git a/docs/outputs/graph_parques.rds b/docs/outputs/graph_parques.rds
diff --git a/docs/outputs/graph_puna.rds b/docs/outputs/graph_puna.rds
diff --git a/docs/outputs/graph_receptivo.rds b/docs/outputs/graph_receptivo.rds
diff --git a/docs/outputs/interno_ppales.rds b/docs/outputs/interno_ppales.rds
diff --git a/docs/outputs/motivo.rds b/docs/outputs/motivo.rds
diff --git a/docs/outputs/tipo_turismo.rds b/docs/outputs/tipo_turismo.rds
diff --git a/docs/outputs/transporte.rds b/docs/outputs/transporte.rds
diff --git a/docs/padron.html b/docs/padron.html
diff --git a/docs/parques.html b/docs/parques.html
diff --git a/docs/receptivo.html b/docs/receptivo.html
diff --git a/docs/scripts/aereo.R b/docs/scripts/aereo.R
@@ -8,66 +8,115 @@ library(d4t4tur)
 library(DT)
 library(crosstalk)
 
+
 # Data por por clasificacion
-cabotaje <- read_rds("/srv/DataDNMYE/aerocomercial/anac/base_anac_agrupada.rds") %>% 
-  filter(ClasificaciónVuelo == "Cabotaje",
+cabotaje <- arrow::read_parquet("/srv/DataDNMYE/aerocomercial/anac/base_anac_agrupada_diaria.parquet") %>% 
+  filter(clasificacion_vuelo == "Cabotaje",
          reg_no_reg == "Empresa de vuelos regulares") %>% 
-  select(Año_Local, TipodeMovimiento,
+  select(anio_local, #TipodeMovimiento,
          origen_aeropuerto_etiqueta, origen_localidad_etiqueta, origen_provincia_etiqueta,
          destino_aeropuerto_etiqueta, destino_localidad_etiqueta, destino_provincia_etiqueta,
-         pasajeros, pax) %>% 
-  mutate(aero_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_aeropuerto_etiqueta,
-                             TipodeMovimiento == "Despegue" ~ origen_aeropuerto_etiqueta),
-         prov_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_provincia_etiqueta,
-                             TipodeMovimiento == "Despegue" ~ origen_provincia_etiqueta),
-         loc_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_localidad_etiqueta,
-                             TipodeMovimiento == "Despegue" ~ origen_localidad_etiqueta),
-         prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
-                                 "Tierra del Fuego"))
-
-
-internacional <- read_rds("/srv/DataDNMYE/aerocomercial/anac/base_anac_agrupada.rds") %>% 
-  filter(ClasificaciónVuelo == "Internacional",
+         pasajeros = pax_ad) 
+
+cabotaje <- bind_rows(
+  cabotaje %>% 
+    group_by(anio_local,
+             prov_ad = destino_provincia_etiqueta, 
+             loc_ad = destino_localidad_etiqueta,
+             aero_ad = destino_aeropuerto_etiqueta) %>% 
+    summarise(pasajeros = sum(pasajeros)),
+
+  cabotaje %>% 
+    group_by(anio_local,
+             prov_ad = origen_provincia_etiqueta, 
+             loc_ad = origen_localidad_etiqueta,
+             aero_ad = origen_aeropuerto_etiqueta) %>% 
+    summarise(pasajeros = sum(pasajeros))
+) %>%
+  group_by(anio_local, prov_ad, loc_ad, aero_ad) %>% 
+  summarise(pasajeros = round(sum(pasajeros))) %>% 
+  ungroup() %>% 
+  mutate(prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
+                                                    "Tierra del Fuego"))
+
+
+  #mutate(
+    # aero_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_aeropuerto_etiqueta,
+    #                          TipodeMovimiento == "Despegue" ~ origen_aeropuerto_etiqueta),
+    #      prov_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_provincia_etiqueta,
+    #                          TipodeMovimiento == "Despegue" ~ origen_provincia_etiqueta),
+    #      loc_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_localidad_etiqueta,
+    #                          TipodeMovimiento == "Despegue" ~ origen_localidad_etiqueta),
+         # prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
+         #                         "Tierra del Fuego"))
+
+
+internacional <- arrow::read_parquet("/srv/DataDNMYE/aerocomercial/anac/base_anac_agrupada_diaria.parquet") %>% 
+  filter(clasificacion_vuelo == "Internacional",
          reg_no_reg == "Empresa de vuelos regulares") %>% 
-  select(Año_Local, TipodeMovimiento,
+  select(anio_local, #TipodeMovimiento,
          origen_aeropuerto_etiqueta, origen_localidad_etiqueta, origen_provincia_etiqueta,
          destino_aeropuerto_etiqueta, destino_localidad_etiqueta, destino_provincia_etiqueta,
-         pasajeros) %>% 
-  mutate(aero_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_aeropuerto_etiqueta,
-                             TipodeMovimiento == "Despegue" ~ origen_aeropuerto_etiqueta),
-         prov_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_provincia_etiqueta,
-                             TipodeMovimiento == "Despegue" ~ origen_provincia_etiqueta),
-         loc_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_localidad_etiqueta,
-                            TipodeMovimiento == "Despegue" ~ origen_localidad_etiqueta),
-         prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
+         pasajeros = pax_ad) 
+
+
+internacional <- bind_rows(
+  internacional %>% 
+    group_by(anio_local, 
+             prov_ad = destino_provincia_etiqueta, 
+             loc_ad = destino_localidad_etiqueta,
+             aero_ad = destino_aeropuerto_etiqueta) %>% 
+    summarise(pasajeros = sum(pasajeros)),
+
+  internacional %>% 
+    group_by(anio_local,
+             prov_ad = origen_provincia_etiqueta, 
+             loc_ad = origen_localidad_etiqueta,
+             aero_ad = origen_aeropuerto_etiqueta) %>% 
+    summarise(pasajeros = sum(pasajeros))
+) %>%
+  group_by(anio_local, prov_ad, loc_ad, aero_ad) %>% 
+  summarise(pasajeros = round(sum(pasajeros))) %>% 
+  ungroup() %>% 
+  mutate(prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
                                "Tierra del Fuego"))
 
+#%>% 
+  # mutate(aero_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_aeropuerto_etiqueta,
+  #                            TipodeMovimiento == "Despegue" ~ origen_aeropuerto_etiqueta),
+  #        prov_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_provincia_etiqueta,
+  #                            TipodeMovimiento == "Despegue" ~ origen_provincia_etiqueta),
+  #        loc_ad = case_when(TipodeMovimiento == "Aterrizaje" ~ destino_localidad_etiqueta,
+  #                           TipodeMovimiento == "Despegue" ~ origen_localidad_etiqueta),
+  #        prov_ad = str_replace(prov_ad, "Tierra del Fuego, Antártida e Islas del Atlántico Sur",
+  #                              "Tierra del Fuego"))
+
 # DT idioma
 options(DT.options = list(language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')))
 
 
 ## TABLAS
 
 tabla_cabotaje <- cabotaje %>% 
-  filter(Año_Local >= 2017 & Año_Local < 2022) %>% 
-  group_by(Año_Local, prov_ad, loc_ad) %>%
+  filter(anio_local >= 2017 & anio_local <= 2022) %>% 
+  group_by(anio_local, prov_ad, loc_ad) %>%
   summarise(pasajeros = sum(pasajeros, na.rm = T)) %>% 
   ungroup() %>% 
-  arrange(desc(Año_Local), prov_ad) %>% 
-  rename(Año = Año_Local,
+  arrange(desc(anio_local), prov_ad) %>% 
+  rename(Año = anio_local,
          Provincia = prov_ad,
          Localidad = loc_ad,
          Pasajeros = pasajeros) %>% 
   drop_na()
 
 
 tabla_internacional <- internacional %>% 
-  filter(Año_Local >= 2017 & Año_Local < 2022) %>% 
-  group_by(Año_Local, prov_ad, loc_ad) %>%
+  filter(anio_local >= 2017 & anio_local <= 2022) %>% 
+  group_by(anio_local, prov_ad, loc_ad) %>%
   summarise(pasajeros = sum(pasajeros, na.rm = T)) %>% 
   ungroup() %>% 
-  arrange(desc(Año_Local), prov_ad) %>% 
-  rename(Año = Año_Local,
+  arrange(desc(anio_local), prov_ad) %>% 
+  rename(Año = anio_local,
          Provincia = prov_ad,
          Localidad = loc_ad,
          Pasajeros = pasajeros) %>%
Original file line number	Diff line number	Diff line change
Expand Up		@@ -39,5 +39,7 @@ plot_internacional

		- Tablero: https://tableros.yvera.tur.ar/conectividad/

		- Reporte: https://tableros.yvera.tur.ar/conectividad.html

		- [Metodología](metodologia.html#conectividad-aérea)