---
title: "R Notebook"
output: html_notebook
---
```{r}
library(readxl)
library(lubridate)
library(writexl)
library(ggplot2)
library(colorspace)
library(reshape2)
library(lawstat)
library(car)

setwd("/Users/Libby/Desktop/UVA/Research/Data Inventory/Additional Measurements/Sediment GS")

sizeclassoct = read_excel("GS.xlsx",sheet="size class oct")
sizeclassjul = read_excel("GS.xlsx",sheet="size class july")

```

```{r}
mypal2=c("sienna3", "wheat", "sienna")
ggplot(sizeclassoct, aes(fill = `Size Class`, x=percent, y=Sample)) + 
    geom_bar(position="stack", stat="identity", color="black",lwd=0.2) +
    xlab("Percent Composition") + ylab("Sample") +
    scale_fill_manual(values=mypal2) +
    theme_linedraw() + theme(aspect.ratio=2/3) 
ggsave("grainsizecompoct.png")
```
```{r}
mypal2=c("sienna3", "wheat", "sienna")
ggplot(sizeclassjul, aes(fill = `Size Class`, x=percent, y=Sample)) + 
    geom_bar(position="stack", stat="identity", color="black",lwd=0.2) +
    xlab("Percent Composition") + ylab("Sample") +
    scale_fill_manual(values=mypal2) +
    theme_linedraw() + theme(aspect.ratio=2/3) 
ggsave("grainsizecompjul.png")
```