Tidy up and inspect the birds data

Michael Hunt

18-01-2021

This exercise uses a set of data on birds from Mark Gardener.

library(tidyverse)
library(here)

Load the data

untidy_birds<-read_csv(here("data","bird.csv"))

Parsed with column specification:
cols(
  Species = col_character(),
  Garden = col_double(),
  Hedgerow = col_double(),
  Parkland = col_double(),
  Pasture = col_double(),
  Woodland = col_double()
)

Tidy the data

tidy_birds<-gather(untidy_birds,"Habitat","Sightings",2:6)

Group by species

gp_by_species<-tidy_birds %>%
  group_by(Species) %>%
  summarise(Max=max(Sightings),Min=min(Sightings))

`summarise()` ungrouping output (override with `.groups` argument)

gp_by_species

Group by habitat

gp_by_species<-tidy_birds %>%
  group_by(Habitat) %>%
  summarise(Most_often_seen_species=Species[which.max(Sightings)],Sightings=max(Sightings))
gp_by_species

Note here the use of which.max[Column name] to find the row number that contains the maximum value in that column, and then of column_name[index] to pick out the value in column at row .