My partner is an avid birder, so I thought it would be interesting to look at some data on his birding outings!

When he goes birding he submits a checklist to EBird with each species he observed and the number of observations. EBird also collects other data including the length of each outing.

• Find the mean number of birds observed and mean number of species observed per outing.
• Plot the relationship between the total number of birds observed and the number of species observed in each outing.
• Identify his most and least observed species.
• Find the mean length of his outings.

I used the following code to have R group my data by submission ID and generate total counts for the number of species and number of birds observed in each outing.

bird_unique <- bird %>%
  group_by(`Submission ID`) %>%
  summarise(num =n(),
            total_count = sum(Count))

Using this data, I determined that the mean number of birds observed per outing is 100 and the mean number of species observed is 16.

I used the following code to have R group my data by species and generate counts for the total number of outings where each species was observed and the number of birds observed of each species over all outings.

bird_names <- bird %>%
  group_by(`Common Name`) %>%
  summarise(num =n(),
            total_count = sum(Count))

birds_max <- subset(bird_names, subset = (bird_names$total_count 
  == max(bird_names$total_count)))
name_max <- birds_max$`Common Name`

The bird observed the most is the American Robin, which he has observed 1024 times.

birds_min <- subset(bird_names, subset = (bird_names$total_count 
  == min(bird_names$total_count)))
name_min <- birds_min$`Common Name`

The birds observed the least are the Alder/Willow Flycatcher (Traill’s Flycatcher), Black Skimmer, Black-throated Green Warbler, Blue Grosbeak, Bobolink, Eastern Phoebe, Indigo Bunting, Little Blue Heron, Louisiana Waterthrush, Philadelphia/Warbling Vireo, Ring-billed Gull, Turkey Vulture, White-breasted Nuthatch, White-eyed Vireo, Willow Flycatcher, Wilson’s Warbler, Wood Thrush, Yellow-billed Cuckoo, new world sparrow sp., which he has all observed 1 time.

I used the following code to subset my data and remove duplicates for outing length.

bird_trimmed <- subset(bird, select=c(`Submission ID`, `Duration (Min)`))
bird_length <- unique(bird_trimmed)
mean_length <- round(mean(bird_length$`Duration (Min)`, na.rm = TRUE))

Using this data, I determined that the mean outing length is 75 minutes.