Análisis Semántico de las social Media en El Camino de Santiago

Hacia una perspectiva integrada. Aportaciones de las Geografías Económica, Regional y de los Servicios para la cohesión y la competitividad territorial

Autor: Julio César Gómez García

Tutor: Dr. Javier Gutiérrez Puebla

fecha: 06/05/2021

1. Introducción

2. Objetivo General

2.1. Objetivos específicos

3. Metodología

enlace en línea

4. Datos

4.1. Twitter

4.1.1. Análisis espacial - temporal

4.1.2. Análisis de semántico

4.2. Flickr

4.3 Área de estudio

El Camino de Santiago es una serie de rutas recorridas que atraviesan toda la península Ibérica, transitada por peregrinos de todo el mundo, cuyo destino final es la ciudad de Santiago de Compostela, capital de la Comunidad Autónoma de Galicia. Esta. Ruta son todos los posibles caminos existentes, utilizadas históricamente para llegar a la ciudad. Donde se cree se encuentran los restos del apóstol Santiago el Mayor, luego de su acción evangelizadora en la Hispania romana (Santos, Xosé M., 2011; Santos Solla, 2006).

###```{r, fig.width=10, fig.height=25} library(tidyverse) library(sf) library(lubridate) library(data.table)

ggplot() + geom_sf(data = prov) + geom_sf(data = Muni) + geom_point(data = Twitt, aes(x = longitude, y = latitude), alpha = .2, color = “red”)



#```{r, message=FALSE, warning=FALSE, fig.align='center', results='hide', echo=FALSE}
library(sf)
library(rgdal)
library(dplyr)
library(ggplot2)
library(ggspatial)
library(viridis)
prov <- st_read("/Users/juliocesargomezgarcia/Desktop/Proyecto Big_Data/Municipios/ll_provinciales_inspire_peninbal_etrs89/ll_provinciales_inspire_peninbal_etrs89.shp")
camino <- sf::st_read("/Users/juliocesargomezgarcia/Desktop/Datos/CSC_Tweets/DFL_SantiagoCompostela.gdb", 
layer = "Camino_Santiago")
ggplot(data = prov) +
    geom_sf() +
    geom_sf(fill = "lightblue", color = "black") + # aquí  podemos cambiar los colores
    ggtitle("Mapa base de España", # Título
            subtitle = "Camino Francés") + # Subtitulo
    xlab("longitud") + ylab("Latitud") + #  Ejes de las (x  - y)  
    geom_sf(data = camino, color =  "red", size = 0.5, alpha = 0.8)  + #  agragamos una capa al "Layout" asignamos color  y tamaño a los puntos (Tuit)
    theme_classic() +
    theme(plot.title = element_text(hjust = 0.5)) + # Con esta línea centramos el título de la gráficac
    annotation_scale() +  # agregar la escala gráfica
    annotation_north_arrow(location="tr", which_north = "true",
                           style = north_arrow_fancy_orienteering,
                           height = unit(1.5, "cm"),
                           width = unit(1.5, "cm")) # Agregar  la Rosa Nautica ("br" = abajo a la  derecha), ("tr" arriba a la derecha)

###```{r, message=FALSE, warning=FALSE, fig.align=‘center’, results=‘hide’, echo=FALSE} fc1 <- sf::st_read(“/Users/juliocesargomezgarcia/Documents/ArcGIS/Projects/CaminoDeSantiago_Twitter/CaminoDeSantiago_Twitter.gdb”, layer = “Municipios_Camino_Twitter”)

Cambiando nombre de las variables

names(fc1) fc1 <- rename(fc1, Tweets = Join_Count, Usuarios = FREQUENCY) ## Añadir Título, ejes, etiquetas ggplot(data = fc1) + geom_sf(aes(fill=Usuarios)) + xlab(“Longitud”) + ylab(“Latitud”) + ggtitle(“Distribución de Usuarios en el Camino Francés”) + #, #subtitle = “Realizado por: Julio C. Gómez”) + scale_fill_viridis_c() + geom_sf(data = camino, color = “pink”, size = 0.1) + theme(plot.title = element_text(hjust = 0.5)) + annotation_north_arrow(location=“tr”, which_north = “true”, style = north_arrow_fancy_orienteering, height = unit(1, “cm”), width = unit(1, “cm”)) + annotation_scale()

``` ###