Testing_Met_Data.Rmd

---
title: "Testing out dataset"
author: "Maggie Klope"
date: "1/16/2019"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

Opening csv in Rstudio

```{r}

library(tidyverse)
#file is very large, still need to set up Git LFS in order to upload to Git
df <- read_csv("MetObjects.csv")

```

Looking at types of data available in the dataframe

```{r}

small_df <- df %>%
  select("Object Number", "Object Name", "Country", na.rm = TRUE) 

#See types of objects in the dataframe
levels(small_df$`Object Name`)

```

Testing out types of graphs

```{r}
ggplot()

```