This R markdown file includes all the R code used to analyze Queen Snapper (Etelis oculatus) size data.
library(tidyverse)
library(rstudioapi)
library(stringr) # for wrapping text on graphics
library(vtable)qsdf_2506 <- read.csv("qs2506df.csv")
qsdf_2506$catch_month <- factor(qsdf_2506$catch_month)
qsdf_2506$year <- factor(qsdf_2506$year)
qsdf_2506$species <- factor(qsdf_2506$species)
qsdf_2506$common_name <- factor(qsdf_2506$common_name)
qsdf_2506$frozen <- factor(qsdf_2506$frozen)
qsdf_2506$catch_method <- factor(qsdf_2506$catch_method)
qsdf_2506$bait <- factor(qsdf_2506$bait)
qsdf_2506$area <- factor(qsdf_2506$area)
qsdf_2506$gutted <- factor(qsdf_2506$gutted)
qsdf_2506$sex <- factor(qsdf_2506$sex)
qsdf_2506$maturity <- factor(qsdf_2506$maturity)summary(qsdf_2506)## X catch_date catch_month landing_time dissection_date
## Min. :1.0 Length:7 Sep:7 Mode:logical Length:7
## 1st Qu.:2.5 Class :character NA's:7 Class :character
## Median :4.0 Mode :character Mode :character
## Mean :4.0
## 3rd Qu.:5.5
## Max. :7.0
## dissection_time year month observer
## Mode:logical 2023:7 Length:7 Length:7
## NA's:7 Class :character Class :character
## Mode :character Mode :character
##
##
##
## species common_name fish_code frozen
## Etelis oculatus:7 Queen Snapper:7 Length:7 Y:7
## Class :character
## Mode :character
##
##
##
## catch_method bait area SL_CM FL_CM
## Dropline:7 Japanese bait; Squid:7 B4:7 Min. :22.00 Min. :23.50
## 1st Qu.:25.80 1st Qu.:27.85
## Median :31.30 Median :33.30
## Mean :37.57 Mean :40.27
## 3rd Qu.:48.50 3rd Qu.:51.95
## Max. :61.10 Max. :65.50
## TL_CM HH_CM ED_CM W_G
## Min. :28.60 Mode:logical Mode:logical Min. : 228.2
## 1st Qu.:34.30 NA's:7 NA's:7 1st Qu.: 379.9
## Median :41.70 Median : 618.8
## Mean :50.17 Mean :1440.1
## 3rd Qu.:66.90 3rd Qu.:2177.8
## Max. :78.50 Max. :4118.8
## finclip otoliths gutted gonads_present sex
## Length:7 Length:7 N:7 Length:7 FALSE:4
## Class :character Class :character Class :character NA's :3
## Mode :character Mode :character Mode :character
##
##
##
## maturity G1L_CM G2L_CM GW_G stomach._sample
## NA's:7 Min. : 4.10 Min. : 3.80 Min. : 0.10 Length:7
## 1st Qu.: 5.70 1st Qu.: 5.65 1st Qu.: 0.40 Class :character
## Median : 6.40 Median : 7.10 Median : 0.50 Mode :character
## Mean :10.01 Mean :10.36 Mean : 44.54
## 3rd Qu.:13.55 3rd Qu.:13.75 3rd Qu.: 41.80
## Max. :21.10 Max. :22.80 Max. :226.80filtered_data <- qsdf_2506 %>%
filter(sex == "F")
summary(filtered_data)## X catch_date catch_month landing_time dissection_date
## Min. : NA Length:0 Sep:0 Mode:logical Length:0
## 1st Qu.: NA Class :character Class :character
## Median : NA Mode :character Mode :character
## Mean :NaN
## 3rd Qu.: NA
## Max. : NA
## dissection_time year month observer
## Mode:logical 2023:0 Length:0 Length:0
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## species common_name fish_code frozen
## Etelis oculatus:0 Queen Snapper:0 Length:0 Y:0
## Class :character
## Mode :character
##
##
##
## catch_method bait area SL_CM FL_CM
## Dropline:0 Japanese bait; Squid:0 B4:0 Min. : NA Min. : NA
## 1st Qu.: NA 1st Qu.: NA
## Median : NA Median : NA
## Mean :NaN Mean :NaN
## 3rd Qu.: NA 3rd Qu.: NA
## Max. : NA Max. : NA
## TL_CM HH_CM ED_CM W_G finclip
## Min. : NA Mode:logical Mode:logical Min. : NA Length:0
## 1st Qu.: NA 1st Qu.: NA Class :character
## Median : NA Median : NA Mode :character
## Mean :NaN Mean :NaN
## 3rd Qu.: NA 3rd Qu.: NA
## Max. : NA Max. : NA
## otoliths gutted gonads_present sex maturity G1L_CM
## Length:0 N:0 Length:0 FALSE:0 NULL: Min. : NA
## Class :character Class :character 1st Qu.: NA
## Mode :character Mode :character Median : NA
## Mean :NaN
## 3rd Qu.: NA
## Max. : NA
## G2L_CM GW_G stomach._sample
## Min. : NA Min. : NA Length:0
## 1st Qu.: NA 1st Qu.: NA Class :character
## Median : NA Median : NA Mode :character
## Mean :NaN Mean :NaN
## 3rd Qu.: NA 3rd Qu.: NA
## Max. : NA Max. : NA