UFO Sightings

Se decide utilizar un Data Set de avistamiento de UFO’s en diferentes ubicaciones y tiempos para demostrar las capacidades de R para mostrar una gran cantidad de datos de una manera mas facil de entender.

El Data Set contiene mas de 80,000 reportes de avistamientos, así como datos de sus características, ubicaciones, duración, entre otras.

#C:/Users/ogl88/OneDrive/Documentos/Master Big Data/8. Metodologias/Foro visualizaciones R
dSet <- read.csv('C:/Users/ogl88/OneDrive/Documentos/Master Big Data/8. Metodologias/Foro visualizaciones R/archive (3)/scrubbed.csv', stringsAsFactors = FALSE)

#summary(dSet)
#dSet
dSet$latitude <- as.numeric(dSet$latitude)
## Warning: NAs introducidos por coerción
dSet$duration..seconds. <- as.numeric(dSet$duration..seconds.)
## Warning: NAs introducidos por coerción
#Eliminar valores que se vuelven NA al transformar el tipo de dato
dSet <- dSet[!is.na(dSet$latitude), ]
dSet <- dSet[!is.na(dSet$duration..seconds.), ]

#Resumen de valores por columna
summarize_top_values <- function(data) {
  summary_list <- lapply(data, function(x) {
    unique_values <- unique(x)
    counts <- sapply(unique_values, function(val) sum(x == val, na.rm = TRUE))
    summary_df <- data.frame(Value = unique_values, Count = counts, row.names = NULL)
    summary_df <- summary_df[order(-summary_df$Count), ] # Sort by count in descending order
    summary_df <- head(summary_df, 10) # Select top 10 values
    return(summary_df)
  })
  names(summary_list) <- names(data)
  return(summary_list)
}

#Resumen
summary_data <- summarize_top_values(dSet)
#print(summary_data)

Carga de liberías

library(leaflet) library(dplyr) library(sf) library(rgbif) library(wordcloud2)

#Se recurren a las siguientes librerías para utilizar visualizaciones 3D, interactivas y de nube de palabras

## Warning: package 'leaflet' was built under R version 4.3.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## Warning: package 'sf' was built under R version 4.3.3
## Linking to GEOS 3.11.2, GDAL 3.8.2, PROJ 9.3.1; sf_use_s2() is TRUE
## Warning: package 'rgbif' was built under R version 4.3.3

Mapa de avistamientos

#Se recurre a una visualización en un mapa interactivo para mostrar las ubicaciones de cada uno de los avistamientos reportados.

#Cada color de los marcadores en el mapa hace referencia ala forma reportada por los testigos.

#Se puede notar una mayor frecuencia de reportes en Estados Unidos, Reino Unido y Europa occidental y mas reportes de luces triangulos y círculos al describir la forma del objeto.

##Visualización de texto abierto - Nube de palabras

#Se crea uan visualización adicional para conocer las palabras que mas se repiten al describir este tipo de objetos, segpun los reportes registrados en el dataset

## Warning: package 'wordcloud2' was built under R version 4.3.3

##Conclusión

#La manera en que se decide mostrar cierta infromación de nuestras bases de datos ayuda a transmitir de manera mas clara las ideas en que necesitamos enfatizar.

#Las mismas visualizaciones no deberán utilizarse para mostrar datos numérico o ubicaciones o dimensiones cualitativas, y la elección de las visualizaciones y del menaje a transmitir va directamente relacionado a la audiencia y el objetivo de la comunicación.