PERROS NAZARENO

knitr::opts_chunk$set(echo = TRUE,message=FALSE, warning=FALSE)

library(httr)
library(readxl)
library(dplyr)
library(tidyverse)
library(ggplot2)
#cardar base de datos
data<- read_excel("F:/BUSQUEDA PERROS/BUSQUEDA-DE-PERROS/DATOS BUSQUEDA PERROS NAZARENO.xlsx",
                  sheet = "DATOS_GENERALES")
#selecionar variables usadas
data<-select(data,ZONA,VINCULO,NOMBRE_BUSCADOR)

#- Obtener gps de url completa
#Crear campos nuevos

data$LATITUDE <- unlist(NA)
data$LONGITUDE <- unlist(NA)
data$ORIENTATION <- unlist(NA)

#Cantidad de registros
n_row <- nrow(data)

#Avanzar攼㸱 por cada registro
for (i in 1:n_row) {
  urlComplete <- GET(data$VINCULO[i])$url
  parameters <- strsplit(strsplit(strsplit(urlComplete, "@")[[1]][2], "/")[[1]][1],",")[[1]]
  #Almacenando latitud
  data$LATITUDE[i] <- parameters[1]
  data$LONGITUDE[i] <- parameters[2]
  data$ORIENTATION[i] <- paste(parameters[3],parameters[4],parameters[5],parameters[6], sep = ",")
}


poligonos<- read_excel("F:/BUSQUEDA PERROS/BUSQUEDA-DE-PERROS/POLIGONOS_NAZARENO.xlsx")

data<-transform(data, LATITUDE = as.numeric(LATITUDE), LONGITUDE = as.numeric(LONGITUDE))

#generar datos por variable busqueda
BUSCADOR.1<-subset(data,NOMBRE_BUSCADOR=="SOLEDAD UPCH")
BUSCADOR.2<-subset(data,NOMBRE_BUSCADOR=="FLOR UPCH")
BUSCADOR.3<-subset(data,NOMBRE_BUSCADOR=="ZENAYDA UPCH")
BUSCADOR.4<-subset(data,NOMBRE_BUSCADOR=="MANUEL YSIDRO")
BUSCADOR.5<-subset(data,NOMBRE_BUSCADOR=="MARJORIE UPCH")
BUSCADOR.6<-subset(data,NOMBRE_BUSCADOR=="MARIA UPCH")

ggplot(data = data,aes(x=LONGITUDE, y=LATITUDE,colour=NOMBRE_BUSCADOR))+ theme_void() +
  geom_polygon(aes(x=long, y=lat, group=ident), size=0.5,fill=NA,colour="black",
               data = poligonos)+
  geom_point(data=BUSCADOR.4, 
             aes(x=LONGITUDE, y=LATITUDE), size =3, alpha=0.5)+
  geom_point(data=BUSCADOR.3, 
             aes(x=LONGITUDE, y=LATITUDE), size = 2.6,alpha=0.5)+
  geom_point(data=BUSCADOR.2, 
             aes(x=LONGITUDE, y=LATITUDE), size = 2.2,alpha=0.5)+
   geom_point(data=BUSCADOR.1, 
             aes(x=LONGITUDE, y=LATITUDE), size = 1.8,alpha=0.5)+
  geom_point(data=BUSCADOR.6, 
             aes(x=LONGITUDE, y=LATITUDE), size = 1.4,alpha=0.5)+
   geom_point(data=BUSCADOR.5, 
             aes(x=LONGITUDE, y=LATITUDE), size = 1,alpha=0.5)