ggplot_tidydf.R

# Get input from clean_up_ascii script. Then make a pretty plot.
# Kathryn Busby
# mkbusby@email.arizona.edu
# Script started April 15, 2020

ggplot_tidydf <- function (filename) {

# Load pacakges.
  
  library(ggplot2)
  library(tidyverse)
  
  # Clean up the file and get it from clean_up_ascii.
  
  dir <- "~/Documents/Research/Xylocopa-CTmax/2020"
  find.file <- file.path(dir, "Data", paste0(filename,".txt"))
  tidy.df <- read.delim(find.file)
  tidy.df <- tidy.df %>%
    filter(Tube == 2 | Tube == 3 | Tube == 4 | Tube == 5)

# Now make a plot.

tidy.plot <- ggplot(data=tidy.df, mapping=aes(x=Aux2)) +
  geom_line(aes(y=CO2_Percent)) +
  ylim(0,.04) +
  labs(x="Temperature (C, Aux2)", y="CO2 Percent",
       title=paste0("Plot of data in file: ", filename)) +
  facet_wrap(tidy.df$Tube) +
  annotate("text", x=42, y=.01, label=tidy.df$Life_Stage) +
  theme_classic()

ggsave(filename=paste0("plot_",filename,".png"),
       plot=tidy.plot, width=12, height=12, units="in",
       path=file.path(dir, "Output/Figures"))

return(tidy.plot)

}

ggplot_tidydf(filename="tidydf_20190601_001-Data")