meteorites.Rmd

---
title: "R Notebook"
output:
  html_document:
    df_print: paged
---

Read the cleaned data into R.
Find the names and years found for the 10 largest meteorites in the data.
Find the average mass of meteorites that were recorded falling, vs. those which were just found.
Find the number of meteorites in each year, for every year since 2000.

```{r}
library(tidyverse)
library(janitor)

# Read the cleaned data into R.

meteorite_landing_clean_data <- read_csv("data/meteorite_landings_clean_data.csv") %>% clean_names() 
```

```{r}

# Find the names and years found for the 10 largest meteorites in the data.

meteorite_landing_clean_data %>% 
  select(name, year, mass_g) %>% 
  arrange(desc(mass_g)) %>% 
  head(10)

```

```{r}

# Find the average mass of meteorites that were recorded falling, vs. those which were just found.

meteorite_landing_clean_data %>%
  group_by(fall) %>% 
  summarise(avg_mass_g = mean(mass_g)) 

```


```{r}

# Find the number of meteorites in each year, for every year since 2000.

meteorite_landing_clean_data %>%
  filter(year >= 2000) %>% 
  group_by(year) %>% 
  summarise(number_of_meteorites = n())

```