In robbyfrost/math4753: Introductory Package

knitr::opts_chunk$set(echo = TRUE)

myddt = function(df, SPECIES){
  # 1 - 4 --------------------
  # Narrows data down to a particular species
  filter = df %>% filter(SPECIES == {{SPECIES}})
  # Plot Length vs Weight
  graph = ggplot(filter, aes_string(x = "LENGTH", y = "WEIGHT")) +
    geom_point(aes_string(color = "RIVER")) + # select color
    geom_smooth(formula = y~x + I(x^2), method = "lm") + # add quadratic curve
    ggtitle("Robby Frost") # add name to title
  print(graph)

  # 5  --------------------
  # Read function input and write the "filter" data into a csv
  if (SPECIES == "CCATFISH"){ 
    write.csv(x = filter, "LvsWforCCATFISH.csv", row.names = TRUE)}
  if (SPECIES == "SMBUFFALO"){
    write.csv(x = filter, "LvsWforSMBUFFALO.csv", row.names = TRUE)}
  if (SPECIES == "LMBASS"){
    write.csv(x = filter, "LvsWforLMBASS.csv", row.names = TRUE)}

  # 6  --------------------
  print(df) # print data before subsetting
  print(filter) # print data after subsetting
  tab = table(df$RIVER) / length(df$RIVER) 
  print(tab) # print a relative frequency table
}

library(math4753fros0017)
library(dplyr)
library(ggplot2)
ddt = read.csv("DDT.csv")
myddt(df = ddt, SPECIES = "CCATFISH")
myddt(df = ddt, SPECIES = "SMBUFFALO")
dir()