Orizaba

Efecto de la epidemia de COVID-19 en las actividades turísticas del pueblo mágico de Orizaba.

• Objetivo general: Evaluar el efecto del covid19 en los actores del turismo del pueblo mágico de Orizaba

Importar paquetes (bibliotecas)

library(pacman)
p_load("readr", "DT", "tidyverse", "plotly","prettydoc")

Importar datos

**Datos descargados de “google trends” del 03 de Enero de 2016 al 27 de Septiembre de 2020

datostrends <- read_csv("datostrends.csv", 
    col_types = cols(fecha = col_date(format = "%d/%m/%Y"), 
        cerro = col_number(), museo = col_number(), 
        pico = col_number(), palacio = col_number()))
View(datostrends)

Tabla interactiva de datos

datatable(datostrends)

Visualización de la serie de tiempo

# Gráfica estática
gcov <-ggplot(data=datostrends) +
  geom_line(aes(fecha, cerro, colour='Cerro del Borrego')) + 
  geom_line(aes(fecha, museo, colour='Museo de Arte del Estado')) + 
  geom_line(aes(fecha, pico, colour="Pico de Orizaba"))+
  geom_line(aes(fecha, palacio, colour="Palacio de hierro"))+
  xlab('Fecha') +
  ylab('Número de búsquedas por semana') +
  labs(colour = "Búsquedas") +
  ggtitle("Tendencias de búsqueda en google para México") 
  #scale_y_continuous(labels = comma)
gcov  

Visualización interactiva de la serie de tiempo

ggplotly(gcov)