---
title: "R Notebook"
output: html_notebook
---

```{r}
library(readxl)
library(lubridate)
library(writexl)
library(ggplot2)
library(colorspace)
library(reshape2)

setwd("/Users/Libby/Desktop/UVA/Research/Data Inventory/Additional Measurements/Elevation")
```

```{r}
S42 = read_excel("Elevation.xlsx", sheet="S4")
S71 = read_excel("Elevation.xlsx", sheet="S7")
S47 = as.data.frame(c(S42,S71))
```

```{r}
ggplot(S47) +
 geom_line(aes(Northing4,Elevation4), color="red1", lwd = 0.3) +
  geom_line(aes(Northing7,Elevation7), color="blue3", lwd = 0.3) +
 xlab("Northing (m)") + ylab("Elevation (m; NAVD88)") +
 theme_linedraw() +
  theme(aspect.ratio=1/3)
ggsave("S47.png")
```



