Avistamientos de OVNIs entre 1906 y 2014

geoData <- ufoData %>%
  select (latitude, longitude)

## latitude era factor, con esta linea se convierte a datos numericos
geoData$latitude = as.numeric(levels(geoData$latitude))[geoData$latitude]
Warning: NAs introducidos por coerción
map <- NULL
mapWorld <- borders("world", colour="black", fill="gray70")
map <- ggplot() + mapWorld

map <- map + geom_point(aes(x=geoData$longitude, y=geoData$latitude), color="red", size=0.1) 

map
Warning: Removed 1 rows containing missing values (geom_point).

Datos historicos

La entrada mas antigua corresponde a la primera fotografia profesional de un OVNI.

ufoData %>%
  select(comments, date) %>%
  top_n(-1, year(ufoData$date))

Las fechas en las que mas avistamientos se produjeron fueron las siguientes.

ufoData %>%
  select(date) %>%
  count(date) %>%
  top_n(5, n)

Datos geograficos

El avistamiento mas al sur ocurre en la latitud -82.86, en la Antartida. El siguiente mas al sur ocurre en la latitud -46.41, en Nueva Zelanda.

geoData %>%
  select(longitude, latitude) %>%
  top_n(-2, latitude)
LS0tDQp0aXRsZTogIkF2aXN0YW1pZW50b3MgZGUgT1ZOSXMiDQphdXRob3I6ICJMdWlzIEppbWVuZXoiDQpkYXRlOiAiMTQgZGUgZGljaWVtYnJlIGRlIDIwMTYiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkNCg0KIyMgUHJlcGFyYW5kbyBsYXMgbGlicmVyaWFzDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShtYXBzKQ0KDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCmBgYA0KDQpgYGB7ciBkYXRhLCBpbmNsdWRlPUZBTFNFfQ0KIyMgUHJlcGFyYW5kbyBsb3MgZGF0b3MNCnVmb0RhdGE8LXJlYWQuY3N2KCJ1Zm8uY3N2IikNCg0KIyMgUGFydGllbmRvIGRhdGV0aW1lIGVuIGZlY2hhIHkgaG9yYQ0KZGF0ZXRpbWVfc3BsaXQgPSB0KGFzLmRhdGEuZnJhbWUoc3Ryc3BsaXQoIGFzLmNoYXJhY3Rlcih1Zm9EYXRhJGRhdGV0aW1lKSwgIiAiKSkpDQpyb3cubmFtZXMoZGF0ZXRpbWVfc3BsaXQpID0gTlVMTA0KdWZvRGF0YSRkYXRlID0gYXMuRGF0ZShkYXRldGltZV9zcGxpdFssMV0sICIlbS8lZC8lWSIpDQp1Zm9EYXRhJHRpbWUgPSBkYXRldGltZV9zcGxpdFssMl0NCmBgYA0KDQpBdmlzdGFtaWVudG9zIGRlIE9WTklzIGVudHJlIDE5MDYgeSAyMDE0DQpgYGB7ciBtYXBhfQ0KZ2VvRGF0YSA8LSB1Zm9EYXRhICU+JQ0KICBzZWxlY3QgKGxhdGl0dWRlLCBsb25naXR1ZGUpDQoNCiMjIGxhdGl0dWRlIGVyYSBmYWN0b3IsIGNvbiBlc3RhIGxpbmVhIHNlIGNvbnZpZXJ0ZSBhIGRhdG9zIG51bWVyaWNvcw0KZ2VvRGF0YSRsYXRpdHVkZSA9IGFzLm51bWVyaWMobGV2ZWxzKGdlb0RhdGEkbGF0aXR1ZGUpKVtnZW9EYXRhJGxhdGl0dWRlXQ0KDQptYXAgPC0gTlVMTA0KbWFwV29ybGQgPC0gYm9yZGVycygid29ybGQiLCBjb2xvdXI9ImJsYWNrIiwgZmlsbD0iZ3JheTcwIikNCm1hcCA8LSBnZ3Bsb3QoKSArIG1hcFdvcmxkDQoNCm1hcCA8LSBtYXAgKyBnZW9tX3BvaW50KGFlcyh4PWdlb0RhdGEkbG9uZ2l0dWRlLCB5PWdlb0RhdGEkbGF0aXR1ZGUpLCBjb2xvcj0icmVkIiwgc2l6ZT0wLjEpIA0KDQptYXANCmBgYA0KDQojIyMgRGF0b3MgaGlzdG9yaWNvcw0KDQpMYSBlbnRyYWRhIG1hcyBhbnRpZ3VhIGNvcnJlc3BvbmRlIGEgbGEgcHJpbWVyYSBmb3RvZ3JhZmlhIHByb2Zlc2lvbmFsIGRlIHVuIE9WTkkuDQpgYGB7ciBvbGRlc3R9DQp1Zm9EYXRhICU+JQ0KICBzZWxlY3QoY29tbWVudHMsIGRhdGUpICU+JQ0KICB0b3BfbigtMSwgeWVhcih1Zm9EYXRhJGRhdGUpKQ0KYGBgDQoNCkxhcyBmZWNoYXMgZW4gbGFzIHF1ZSBtYXMgYXZpc3RhbWllbnRvcyBzZSBwcm9kdWplcm9uIGZ1ZXJvbiBsYXMgc2lndWllbnRlcy4NCmBgYHtyIG5ld2VzdH0NCnVmb0RhdGEgJT4lDQogIHNlbGVjdChkYXRlKSAlPiUNCiAgY291bnQoZGF0ZSkgJT4lDQogIHRvcF9uKDUsIG4pDQpgYGANCg0KIyMjIERhdG9zIGdlb2dyYWZpY29zDQoNCkVsIGF2aXN0YW1pZW50byBtYXMgYWwgc3VyIG9jdXJyZSBlbiBsYSBsYXRpdHVkIC04Mi44NiwgZW4gbGEgQW50YXJ0aWRhLiBFbCBzaWd1aWVudGUgbWFzIGFsIHN1ciBvY3VycmUgZW4gbGEgbGF0aXR1ZCAtNDYuNDEsIGVuIE51ZXZhIFplbGFuZGEuDQpgYGB7ciBzb3V0aH0NCmdlb0RhdGEgJT4lDQogIHNlbGVjdChsb25naXR1ZGUsIGxhdGl0dWRlKSAlPiUNCiAgdG9wX24oLTIsIGxhdGl0dWRlKQ0KYGBgDQo=