Chapter 37 Year Analysis

37.1 Years with the Most Meteorite Landings

MetLandings %>%
    group_by(year) %>%
    summarise(Count = n()) %>%
    arrange(desc(Count)) %>%
    ungroup() %>%
    mutate(year = reorder(year,Count)) %>%
    head(20) %>%
    
    ggplot(aes(x = year,y = Count)) +
    geom_bar(stat='identity',colour="white", fill = fillColor2) +
    geom_text(aes(x = year, y = 1, label = paste0("(",Count,")",sep="")),
              hjust=0, vjust=.5, size = 4, colour = 'black',
              fontface = 'bold') +
    labs(x = 'Meteorites Year', 
         y = 'Count', 
         title = 'Meteorites Year and Count') +
    coord_flip() + 
    theme_bw()

37.2 Time Series from Year 1970

The time series shows the Count of the Meteorites and their corresponding Years.

MetLandings %>%
    filter(year >= 1970) %>%
    group_by(year) %>%
    summarise(Count = n()) %>%
    arrange(year) %>%

    ggplot(aes(x = year,y = Count)) +
    geom_bar(stat='identity',colour="white", fill = fillColor) +
    
    labs(x = 'Meteorites Year', 
         y = 'Count', 
         title = 'Meteorites Year and Count') +
        theme_bw()

37.3 Comparison of Mass and Years

The plot shows the Years which have experienced the Top Twenty Heavy Meteorites.The mass of the meteorities in this plot is measured in Kilograms.

MetLandings %>%
    mutate( mass = mass/1e3) %>%
    group_by(year) %>%
    summarise(MassMed = median(mass)) %>%
    arrange(desc(MassMed)) %>%
    ungroup() %>%
    mutate(year = reorder(year,MassMed)) %>%
    head(20) %>%
    
    ggplot(aes(x = year,y = MassMed)) +
    geom_bar(stat='identity',colour="white", fill = fillColor2) +
    geom_text(aes(x = year, y = 1, label = paste0("(",round(MassMed),")",sep="")),
              hjust=0, vjust=.5, size = 4, colour = 'black',
              fontface = 'bold') +
    labs(x = 'Meteorites Class', 
         y = 'Mass Median', 
         title = 'Meteorites Year and Mass Median') +
    coord_flip() + 
    theme_bw()

37.4 Comparison of Mass and Years from 1900 onwards

The plot shows the Years which have experienced the Top Twenty Heavy Meteorites. The mass of the meteorities in this plot is measured in Kilograms.

MetLandings %>%
    mutate( mass = mass/1e3) %>%
    filter(year > 1900) %>%
    group_by(year) %>%
    summarise(MassMed = median(mass)) %>%
    arrange(desc(MassMed)) %>%
    ungroup() %>%
    mutate(year = reorder(year,MassMed)) %>%
    head(20) %>%
    
    ggplot(aes(x = year,y = MassMed)) +
    geom_bar(stat='identity',colour="white", fill = fillColor) +
    geom_text(aes(x = year, y = 1, label = paste0("(",round(MassMed),")",sep="")),
              hjust=0, vjust=.5, size = 4, colour = 'black',
              fontface = 'bold') +
    labs(x = 'Meteorites Year', 
         y = 'Mass Median', 
         title = 'Meteorites Year and Mass Median') +
    coord_flip() + 
    theme_bw()