actualizo ref receptivo

d4t4tur · Jan 29, 2024 · 61a1d95 · 61a1d95
1 parent e6deaeb
commit 61a1d95
Show file tree

Hide file tree

Showing 7 changed files with 27 additions and 22 deletions.
diff --git a/docs/outputs/graph_receptivo.rds b/docs/outputs/graph_receptivo.rds
diff --git a/docs/receptivo.html b/docs/receptivo.html
diff --git a/docs/scripts/receptivo.R b/docs/scripts/receptivo.R
@@ -3,6 +3,7 @@ library(plotly)
 library(crosstalk)
 library(DT)
 library(d4t4tur)
+library(lubridate)
 
 visitantes_dnm <-  read_rds("/srv/DataDNMYE/turismo_internacional/turismo_internacional_visitantes.rds")
 
@@ -59,7 +60,7 @@ dt_rec <- datatable(data_rec, extensions = 'Buttons',
 gg_rec <- ggplot(data_rec) + 
   geom_line(aes(anio, visitantes, color = paso_publ)) +
   geom_point(aes(anio, visitantes, color = paso_publ,
-                text = paste0(paso_publ,": ", visitantes, " visitantes"))) +
+                text = paste0(paso_publ,": ", visitantes, " viajes de visitantes"))) +
   scale_color_dnmye() +
   theme_minimal() +
   theme(legend.position = "none",
@@ -77,7 +78,7 @@ graph_receptivo <- withr::with_options(
          htmltools::br(),
          ggplotly(gg_rec, dynamicTicks = TRUE, tooltip = "text") %>%
            layout(xaxis=list(type='category')) %>% 
-           layout(title = 'Evolución del volumen de visitantes por paso internacional'))
+           layout(title = 'Evolución del volumen de viajes de visitantes por paso internacional'))
 )
 
 write_rds(graph_receptivo, "outputs/graph_receptivo.rds")
diff --git a/docs/search.json b/docs/search.json
diff --git a/outputs/graph_receptivo.rds b/outputs/graph_receptivo.rds
diff --git a/receptivo.Rmd b/receptivo.Rmd
@@ -11,7 +11,9 @@ knitr::opts_chunk$set(echo = FALSE, message = F)
 receptivo_data <- readRDS("outputs/graph_receptivo.rds")
 ```
 
-## Visitantes No Residentes por Paso
+La datos por provincia no reflejan la estimación del turismo receptivo de cada provincia, sino sólo los viajes de turistas contabilizados en los pasos fronterizos de la misma.
+
+## Viajes de Visitantes No Residentes por Paso
 
 ```{r}
 receptivo_data

diff --git a/scripts/receptivo.R b/scripts/receptivo.R
@@ -3,6 +3,7 @@ library(plotly)
 library(crosstalk)
 library(DT)
 library(d4t4tur)
+library(lubridate)
 
 visitantes_dnm <-  read_rds("/srv/DataDNMYE/turismo_internacional/turismo_internacional_visitantes.rds")
 
@@ -59,7 +60,7 @@ dt_rec <- datatable(data_rec, extensions = 'Buttons',
 gg_rec <- ggplot(data_rec) + 
   geom_line(aes(anio, visitantes, color = paso_publ)) +
   geom_point(aes(anio, visitantes, color = paso_publ,
-                text = paste0(paso_publ,": ", visitantes, " visitantes"))) +
+                text = paste0(paso_publ,": ", visitantes, " viajes de visitantes"))) +
   scale_color_dnmye() +
   theme_minimal() +
   theme(legend.position = "none",
@@ -77,7 +78,7 @@ graph_receptivo <- withr::with_options(
          htmltools::br(),
          ggplotly(gg_rec, dynamicTicks = TRUE, tooltip = "text") %>%
            layout(xaxis=list(type='category')) %>% 
-           layout(title = 'Evolución del volumen de visitantes por paso internacional'))
+           layout(title = 'Evolución del volumen de viajes de visitantes por paso internacional'))
 )
 
 write_rds(graph_receptivo, "outputs/graph_receptivo.rds")