Import data

# excel file
data <- read_excel("../00_data/Ufo sightings Data.xlsx") %>%
    janitor::clean_names()
data
## # A tibble: 50 × 5
##    date_time          city_area            state country ufo_shape
##    <chr>              <chr>                <chr> <chr>   <chr>    
##  1 18181.854166666668 san marcos           tx    us      cylinder 
##  2 10/10/1949 21:00   lackland afb         tx    us      light    
##  3 10/10/1955 17:00   chester (uk/england) N/A   gb      circle   
##  4 20738.875          edna                 tx    us      circle   
##  5 22199.833333333332 kaneohe              hi    us      light    
##  6 22564.791666666668 bristol              tn    us      sphere   
##  7 10/10/1965 21:00   penarth (uk/wales)   N/A   gb      circle   
##  8 10/10/1965 23:45   norwalk              ct    us      disk     
##  9 10/10/1966 20:00   pell city            al    us      disk     
## 10 10/10/1966 21:00   live oak             fl    us      disk     
## # ℹ 40 more rows

State one question

Is there more sightings at night or in the day?

Plot data

ggplot (data = data) + 
    geom_point(mapping = aes(x = date_time , y = city_area))

Interpret

Based off of the chart it shows that most of the sightings happen at either the crack of dawn, or late at night. There are also a couple cities with more than 1 sighting, at around the same time. For example Hudson had 2 sightings at the same time but a year apart from eachother.