<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/" >

<channel><title><![CDATA[Evan&nbsp;Kwityn - Blog]]></title><link><![CDATA[http://www.ekwityn.com/blog]]></link><description><![CDATA[Blog]]></description><pubDate>Mon, 16 Feb 2026 05:24:39 -0800</pubDate><generator>Weebly</generator><item><title><![CDATA[Stream Discharge Visualization Utilizing Tidyverse]]></title><link><![CDATA[http://www.ekwityn.com/blog/february-11th-2020]]></link><comments><![CDATA[http://www.ekwityn.com/blog/february-11th-2020#comments]]></comments><pubDate>Wed, 12 Feb 2020 01:20:06 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/february-11th-2020</guid><description><![CDATA[                            library(dataRetrieval)library(ggplot2)library(scales)library(lubridate)library(tidyverse)# Log scale tick markslogTicks &lt;- function(n = 5, base = 10){&nbsp; divisors &lt;- which((base / seq_len(base)) %% 1 == 0)&nbsp; mkTcks &lt;- function(min, max, NumBase, divisor){&nbsp; &nbsp; f &lt;- seq(divisor, base, by = divisor)&nbsp; &nbsp; return(unique(c(base^min, as.vector(outer(f, base^(min:max), `*`)))))&nbsp; }&nbsp; function(x) {&nbsp; &nbsp; rng &lt;- range(x, na. [...] ]]></description><content:encoded><![CDATA[<div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/schuylkill_orig.png" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/trenton_orig.png" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/montague_orig.png" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/chaddsford_orig.png" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div class="paragraph"><font color="#2a2a2a" size="1">library(dataRetrieval)<br />library(ggplot2)<br />library(scales)<br />library(lubridate)<br />library(tidyverse)<br /><br /># Log scale tick marks<br />logTicks &lt;- function(n = 5, base = 10){<br />&nbsp; divisors &lt;- which((base / seq_len(base)) %% 1 == 0)<br />&nbsp; mkTcks &lt;- function(min, max, NumBase, divisor){<br />&nbsp; &nbsp; f &lt;- seq(divisor, base, by = divisor)<br />&nbsp; &nbsp; return(unique(c(base^min, as.vector(outer(f, base^(min:max), `*`)))))<br />&nbsp; }<br />&nbsp; function(x) {<br />&nbsp; &nbsp; rng &lt;- range(x, na.rm = TRUE)<br />&nbsp; &nbsp; lrng &lt;- log(rng, base = base)<br />&nbsp; &nbsp; min &lt;- floor(lrng[1])<br />&nbsp; &nbsp; max &lt;- ceiling(lrng[2])<br />&nbsp; &nbsp; tck &lt;- function(divisor){<br />&nbsp; &nbsp; &nbsp; t &lt;- mkTcks(min, max, base, divisor)<br />&nbsp; &nbsp; &nbsp; t[t &gt;= rng[1] &amp; t &lt;= rng[2]]<br />&nbsp; &nbsp; }<br />&nbsp; &nbsp; tcks &lt;- lapply(divisors, function(d) tck(d))<br />&nbsp; &nbsp; l &lt;- vapply(tcks, length, numeric(1))<br />&nbsp; &nbsp; i &lt;- which.min(abs(n - l))<br />&nbsp; &nbsp; if(l[i] &lt; 2){<br />&nbsp; &nbsp; &nbsp; ticks &lt;- pretty(x, n = n, min.n = 2)<br />&nbsp; &nbsp; } else {<br />&nbsp; &nbsp; &nbsp; ticks &lt;- tcks[[i]]<br />&nbsp; &nbsp; }<br />&nbsp; &nbsp; return(ticks)<br />&nbsp; }<br />}<br /><br /># Custom ggplot theme<br />themebox &lt;- function(base_family = "sans", ...){<br />&nbsp; theme_bw(base_family = base_family, ...) +<br />&nbsp; &nbsp; theme(<br />&nbsp; &nbsp; &nbsp; plot.title = element_text(size = 18, face = "bold", hjust = 0.5),<br />&nbsp; &nbsp; &nbsp; panel.background = element_rect(fill = "gray95", colour = "black"),<br />&nbsp; &nbsp; &nbsp; panel.grid.major = element_line(size = 0.95, linetype = 'solid', colour = "white"),<br />&nbsp; &nbsp; &nbsp; panel.grid.minor = element_line(size = 0.6, linetype = 'solid', colour = "white"),<br />&nbsp; &nbsp; &nbsp; axis.ticks.length = unit(.15, "cm"),<br />&nbsp; &nbsp; &nbsp; axis.ticks = element_line(colour = 'black', size = .60),<br />&nbsp; &nbsp; &nbsp; axis.title = element_text(face = "bold", size = 18),<br />&nbsp; &nbsp; &nbsp; axis.text.x = element_text(margin = unit(c(0.3,0.3,0.3,0.3), "cm"), colour = "black", size = 12),<br />&nbsp; &nbsp; &nbsp; axis.text.y = element_text(margin = unit(c(0.3,0.3,0.3,0.3), "cm"), colour = "black", size = 18),<br />&nbsp; &nbsp; &nbsp; axis.line = element_line(size = 0.5, colour = "black"),<br />&nbsp; &nbsp; &nbsp; legend.position = "bottom",<br />&nbsp; &nbsp; &nbsp; legend.box = "horizontal",<br />&nbsp; &nbsp; &nbsp; legend.box.margin = margin(-15, -10, -1, -10),<br />&nbsp; &nbsp; &nbsp; legend.title = element_text(size = 9),<br />&nbsp; &nbsp; &nbsp; plot.margin = margin(0.25, 1, 0.01, 0.1, "cm")<br />&nbsp; &nbsp; )<br />}<br /><br /># Setup<br />Today &lt;- as.Date(Sys.Date())<br />Year &lt;- format(Today, "%Y")<br /><br />Dashboard &lt;- data.frame(<br />&nbsp; site_no = c('01463500', '01438500', '01474500', '01481000'),<br />&nbsp; site_name = c('TRENTON, NJ', 'MONTAGUE, NJ', 'PHILADELPHIA, PA', 'CHADDS FORD, PA'),<br />&nbsp; river_name = c('DELAWARE RIVER', 'DELAWARE RIVER', 'SCHUYLKILL RIVER', 'BRANDYWINE CREEK'),<br />&nbsp; file_name = c('Trenton', 'Montague', 'Schuylkill', 'ChaddsFord')<br />)<br /><br /># Loop through each site<br />for (i in 1:nrow(Dashboard)) {<br />&nbsp;&nbsp;<br />&nbsp; png(file = paste0(Dashboard$file_name[i], ".png"), width = 4000, height = 2000, res = 300)<br />&nbsp;&nbsp;<br />&nbsp; Stats &lt;- tryCatch({<br />&nbsp; &nbsp; readNWISstat(<br />&nbsp; &nbsp; &nbsp; siteNumbers = Dashboard$site_no[i],<br />&nbsp; &nbsp; &nbsp; parameterCd = "00060",<br />&nbsp; &nbsp; &nbsp; statReportType = "daily",<br />&nbsp; &nbsp; &nbsp; statType = c("P10", "P25", "P50", "P75")<br />&nbsp; &nbsp; )<br />&nbsp; }, error = function(e) {<br />&nbsp; &nbsp; message(paste("Error retrieving stats for site", Dashboard$site_no[i]))<br />&nbsp; &nbsp; dev.off()<br />&nbsp; &nbsp; next<br />&nbsp; })<br />&nbsp;&nbsp;<br />&nbsp; if (nrow(Stats) == 0) {<br />&nbsp; &nbsp; message(paste("No stats data for site", Dashboard$site_no[i]))<br />&nbsp; &nbsp; dev.off()<br />&nbsp; &nbsp; next<br />&nbsp; }<br />&nbsp;&nbsp;<br />&nbsp; Stats$MonthDay &lt;- with(Stats, paste(month_nu, day_nu, sep = "-"))<br />&nbsp;&nbsp;<br />&nbsp; DateFill &lt;- seq(Today - 21, Today, by = "day")<br />&nbsp; NewTimeSeries &lt;- data.frame(DateFill) %&gt;%<br />&nbsp; &nbsp; mutate(<br />&nbsp; &nbsp; &nbsp; Year = year(DateFill),<br />&nbsp; &nbsp; &nbsp; Month = month(DateFill),<br />&nbsp; &nbsp; &nbsp; Day = mday(DateFill),<br />&nbsp; &nbsp; &nbsp; MonthDay = paste(Month, Day, sep = "-")<br />&nbsp; &nbsp; )<br />&nbsp;&nbsp;<br />&nbsp; Update &lt;- right_join(Stats, NewTimeSeries, by = "MonthDay")<br />&nbsp; Update$Ymd &lt;- as.Date(with(Update, paste(Year, Month, Day, sep = "-")), "%Y-%m-%d")<br />&nbsp; Update$dateTime &lt;- as.POSIXct(Update$Ymd, tz = "UTC")<br />&nbsp;&nbsp;<br />&nbsp; NOW &lt;- tryCatch({<br />&nbsp; &nbsp; readNWISuv(<br />&nbsp; &nbsp; &nbsp; siteNumbers = Dashboard$site_no[i],<br />&nbsp; &nbsp; &nbsp; parameterCd = "00060",<br />&nbsp; &nbsp; &nbsp; startDate = Today - 21,<br />&nbsp; &nbsp; &nbsp; endDate = Today<br />&nbsp; &nbsp; )<br />&nbsp; }, error = function(e) {<br />&nbsp; &nbsp; message(paste("Error retrieving current data for site", Dashboard$site_no[i]))<br />&nbsp; &nbsp; dev.off()<br />&nbsp; &nbsp; next<br />&nbsp; })<br />&nbsp;&nbsp;<br />&nbsp; OUTPUT &lt;- right_join(Update, NOW, by = "dateTime") %&gt;%<br />&nbsp; &nbsp; select(21, 23, 24, 10:14)<br />&nbsp;&nbsp;<br />&nbsp; colnames(OUTPUT) &lt;- c("dateTime", "site_no", "X_00060_00000", "count_nu", "p10_va", "p25_va", "p50_va", "p75_va")<br />&nbsp;&nbsp;<br />&nbsp; data_long &lt;- gather(OUTPUT, PercentileName, PercentileValue, p10_va:p75_va, factor_key = TRUE)<br />&nbsp;&nbsp;<br />&nbsp; All &lt;- ggplot(data_long, aes(x = dateTime, y = X_00060_00000)) +<br />&nbsp; &nbsp; geom_point(aes(y = PercentileValue, color = factor(PercentileName)), size = 5, shape = 17) +<br />&nbsp; &nbsp; stat_smooth(aes(y = X_00060_00000, fill = 'Discharge'), method = "lm",<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; formula = y ~ poly(x, 21), se = FALSE, size = 2, color = "black") +<br />&nbsp; &nbsp; scale_y_log10(<br />&nbsp; &nbsp; &nbsp; name = 'Discharge (cubic feet per second)',<br />&nbsp; &nbsp; &nbsp; breaks = logTicks(n = 4),<br />&nbsp; &nbsp; &nbsp; minor_breaks = logTicks(n = 10)<br />&nbsp; &nbsp; ) +<br />&nbsp; &nbsp; scale_x_datetime(<br />&nbsp; &nbsp; &nbsp; breaks = date_breaks("2 day"),<br />&nbsp; &nbsp; &nbsp; labels = date_format("%b\n%d\n%Y"),<br />&nbsp; &nbsp; &nbsp; name = NULL,<br />&nbsp; &nbsp; &nbsp; expand = c(0, 0)<br />&nbsp; &nbsp; ) +<br />&nbsp; &nbsp; ggtitle(paste0("USGS ", Dashboard$site_no[i], " ", Dashboard$river_name[i], " AT ", Dashboard$site_name[i])) +<br />&nbsp; &nbsp; themebox() +<br />&nbsp; &nbsp; labs(color = paste0("(", mean(data_long$count_nu, na.rm = TRUE), " years)")) +<br />&nbsp; &nbsp; scale_fill_manual("", values = c("#171A21")) +<br />&nbsp; &nbsp; scale_color_manual(<br />&nbsp; &nbsp; &nbsp; labels = c("P10", "P25", "P50", "P75"),<br />&nbsp; &nbsp; &nbsp; values = c("#FA2121", "#FCD600", "#01A558", "#00AFEA")<br />&nbsp; &nbsp; ) +<br />&nbsp; &nbsp; guides(fill = guide_legend(order = 1), colour = guide_legend(title.position = "right"))<br />&nbsp;&nbsp;<br />&nbsp; print(All)<br />&nbsp; dev.off()<br />}<br /><br />graphics.off()</font><br /></div>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: tren.mont.sch.chadds.dashboard.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/tren.mont.sch.chadds.dashboard.zip"><img src="//www.weebly.com/weebly/images/file_icons/gz.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> tren.mont.sch.chadds.dashboard.zip</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>1606 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> zip</td></tr></table><a title="Download file: tren.mont.sch.chadds.dashboard.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/tren.mont.sch.chadds.dashboard.zip" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>]]></content:encoded></item><item><title><![CDATA[Flow Exceedance Curves]]></title><link><![CDATA[http://www.ekwityn.com/blog/flow-exceedance-curves]]></link><comments><![CDATA[http://www.ekwityn.com/blog/flow-exceedance-curves#comments]]></comments><pubDate>Sat, 07 Dec 2019 00:26:18 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/flow-exceedance-curves</guid><description><![CDATA[       A nice and simple flow duration curve figure that anyone can use for analyzing probability. These figures display&nbsp;discharge vs. percent of time that a particular discharge. This information can become particularly useful to show how frequent particular discharges may occur or exceed some percentage of time (e.g., 25% and 75%) The area under the curve dictates&nbsp;the average daily flow, while&nbsp;the median daily flow&nbsp;is at 50% in the case above over a 74 year period utilizing [...] ]]></description><content:encoded><![CDATA[<div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/preview-orig_orig.jpg" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div class="paragraph"><font color="#2a2a2a"><span>A nice and simple flow duration curve figure that anyone can use for analyzing probability. These figures display&nbsp;</span><span>discharge vs. percent of time that a particular discharge. This information can become particularly useful to show how frequent particular discharges may occur or exceed some percentage of time (e.g., 25% and 75%) The area under the curve dictates&nbsp;the average daily flow, while&nbsp;the median daily flow&nbsp;is at 50% in the case above over a 74 year period utilizing average daily flows.</span></font><br /><br /><font color="#2a2a2a" size="2">library(tidyverse)<br />library(dataRetrieval)<br />source('logtickmarks.r') #function for specifying logarithmic y-axis breaks&nbsp;&nbsp;<br />options(scipen=999) #removing scientific notation&nbsp;<br />TRENTONFlow&nbsp;&lt;- readNWISdv(siteNumber='01463500',parameterCd=c("00060")) #Importing USGS average daily flow values for Trenton, NJ&nbsp;<br />&#8203;<br />#Attached below is a specific function for outputting a logarithmic&nbsp;tick mark/grid.&nbsp;<br />&#8203;#Developing ggplot2 theme format&nbsp;<br />themebox &lt;- function(base_family = "sans", ...){<br />&nbsp; theme_bw(base_family = base_family, ...) +<br />&nbsp; &nbsp; theme(&nbsp;plot.title = element_text(size = 18,&nbsp; face = "bold"),<br />&nbsp; &nbsp; &nbsp; axis.ticks.length = unit(-0.05, "in"),<br />&nbsp; &nbsp; &nbsp; axis.title = element_text(face="bold", size=18),<br />&nbsp; &nbsp; &nbsp; axis.text.x=element_text(margin=unit(c(0.3,0.3,0.3,0.3), "cm"),colour="black", size = 18),<br />&nbsp; &nbsp; &nbsp; axis.text.y=element_text(margin=unit(c(0.3,0.3,0.3,0.3), "cm"),colour="black", size = 18),<br />&nbsp; &nbsp; &nbsp; axis.line = element_line(size=0.5, colour = "black"),<br />&nbsp; &nbsp; &nbsp; #axis.ticks.x = element_blank(),<br />&nbsp; &nbsp; &nbsp; aspect.ratio = .8,<br />&nbsp; &nbsp; &nbsp; legend.background = element_rect(color = "black", fill = "white")&nbsp;)<br />}<br /><br />TRENTONFlow %&gt;%&nbsp;<br />&nbsp; mutate(my_rank = 1 - percent_rank(X_00060_00003)) %&gt;%&nbsp; &nbsp; &nbsp;#transforming flow values into a ranked percentage&nbsp;<br />&nbsp; mutate(my_rank = if_else(my_rank == 0.01, 1, my_rank)) %&gt;%&nbsp; &nbsp;<br />&nbsp; ggplot(aes(my_rank,X_00060_00003)) +<br />&nbsp; geom_line(size=2) +<br />&nbsp; ggtitle("Trenton New Jersey - Flow Duration Curve") +<br />&nbsp; scale_y_log10(name = 'Predicted daily flows (cfs)',<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; breaks = logTicks(n = 10), #1,2,4,10,100, etc. outline how many major base pair ticks marks<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; minor_breaks = logTicks(n=100))+&nbsp; #outline how many minor base pair ticks marks; keep in mind logarithmic<br />&nbsp; scale_x_continuous(name = 'Percentage of time flow exceeded')+<br />&nbsp; themebox()</font></div>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: flow_exceedance_curve.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/flow_exceedance_curve.zip"><img src="//www.weebly.com/weebly/images/file_icons/gz.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> flow_exceedance_curve.zip</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>214 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> zip</td></tr></table><a title="Download file: flow_exceedance_curve.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/flow_exceedance_curve.zip" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>]]></content:encoded></item><item><title><![CDATA[All Active USGS Gages in the Delaware River Basin Utilizing dataRetrevial Package in R]]></title><link><![CDATA[http://www.ekwityn.com/blog/active-surface-water-usgs-gages-in-the-delaware-river-basin]]></link><comments><![CDATA[http://www.ekwityn.com/blog/active-surface-water-usgs-gages-in-the-delaware-river-basin#comments]]></comments><pubDate>Fri, 08 Nov 2019 22:20:12 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/active-surface-water-usgs-gages-in-the-delaware-river-basin</guid><description><![CDATA[Deriving all present, active, and historic USGS gage data across multiple state boundaries can be achieved by utilizing a sub-region approach filtering through HUC8 conditions.&nbsp;R Source Code: All Active USGS Gages in the Delaware River Basin&nbsp;#The following code should be run in its own Rstudio Project Folderlibrary(dataRetrieval)library(tidyverse)library(openxlsx)Huc&lt;-read.xlsx("USGSSiteNoDRB_Baseflow.xlsx", sheet = 2) . #data found at&nbsp;https://water.usgs.gov/GIS/huc_name.html#F [...] ]]></description><content:encoded><![CDATA[<div class="paragraph"><font color="#2A2A2A">Deriving all present, active, and historic USGS gage data across multiple state boundaries can be achieved by utilizing a sub-region approach filtering through HUC8 conditions.&nbsp;</font></div><div><div id="353823836478706866" align="left" style="width: 100%; overflow-y: hidden;" class="wcustomhtml"><iframe src="https://evankwityn.shinyapps.io/ActiveUSGSGagesDRB/" style="height:725px;width:100%;"></iframe></div></div><div class="paragraph"><font color="#A82E2E" size="2">R Source Code: All Active USGS Gages in the Delaware River Basin&nbsp;</font><br><font color="#2A2A2A" size="2">#The following code should be run in its own Rstudio Project Folder<br>library(dataRetrieval)<br>library(tidyverse)<br>library(openxlsx)<br>Huc&lt;-read.xlsx("USGSSiteNoDRB_Baseflow.xlsx", sheet = 2) . #data found at&nbsp;https://water.usgs.gov/GIS/huc_name.html<br><br><em>#Filtering out all USGS gages by Huc8 level throughout the Delaware River Basin</em><br>for (j in 1:nrow(Huc)){<br>&nbsp; sqw_mindailyT &lt;- readNWISdata(huc=Huc$Cataloging.Units[j])<br>&nbsp; form=sprintf('SQW/sqw_mindailyT.%s.csv', Huc$Cataloging.Units[j])<br>&nbsp; write.csv(sqw_mindailyT, file = form,&nbsp; row.names = FALSE ) }<br><br><em>##Scrubbing through each Huc8 output and inputting them into one master list</em><br>FilePath&lt;-c('SQW/')<br>files &lt;- list.files(path = FilePath, pattern = "*.csv", full.names = T)<br>tbl &lt;- sapply(files, read_csv, simplify=FALSE) %&gt;% bind_rows(.id = "id")<br><br>idsplit&lt;-strsplit(tbl$id, ".", fixed=TRUE)<br>mat&nbsp; &lt;- matrix(unlist(idsplit), ncol=3, byrow=TRUE)<br>df &nbsp; &lt;- as.data.frame(mat)<br>df &nbsp; &lt;- cbind(df, tbl)<br>colnames(df) &lt;- c("Directory","HUC","FileExt",paste0(colnames(tbl)))<br>df<br>write.csv(df,"SQW/Output/df.csv", row.names = FALSE)<br><br><em>##Reading site_no input for all USGS gages pulled from the HUC8 level and obtaining<br>#dec_lat_va<br>#dec_long_va<br>#site_tp_cd<br>#begin_date/end_date</em><br>datalist = list() #creating blank data list<br>for (j in 1:nrow(df)){<br>&nbsp; dailyDataAvailable &lt;- readNWISsite(siteNumbers=df$site_no[j])<br>&nbsp; print(dailyDataAvailable)<br>datalist[[j]]&lt;- dailyDataAvailable&nbsp; &nbsp; }<br><br>big_data = do.call('rbind', datalist)<br>big_data&lt;-distinct(big_data,site_no, .keep_all = TRUE) <em>#Removing duplicate records</em><br>write.csv(big_data,"SQW/Output/USGSBigDataDRB.csv", row.names = FALSE)</font></div><div><div class="wsite-multicol"><div class="wsite-multicol-table-wrap" style="margin:0 -15px;"><table class="wsite-multicol-table"><tbody class="wsite-multicol-tbody"><tr class="wsite-multicol-tr"><td class="wsite-multicol-col" style="width:46.360153256705%; padding:0 15px;"><div><div style="margin: 10px 0 0 -10px"><a title="Download file: usgssitenodrb_baseflow.xlsx" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/usgssitenodrb_baseflow.xlsx"><img src="//www.weebly.com/weebly/images/file_icons/xls.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;"></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b>usgssitenodrb_baseflow.xlsx</b></td></tr><tr style="display: none;"><td>File Size:</td><td>36 kb</td></tr><tr style="display: none;"><td>File Type:</td><td>xlsx</td></tr></table><a title="Download file: usgssitenodrb_baseflow.xlsx" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/usgssitenodrb_baseflow.xlsx" style="font-weight: bold;">Download File</a></div></div><hr style="clear: both; width: 100%; visibility: hidden"></div><div class="wsite-spacer" style="height:50px;"></div></td><td class="wsite-multicol-col" style="width:53.639846743295%; padding:0 15px;"><div class="wsite-spacer" style="height:50px;"></div></td></tr></tbody></table></div></div></div>]]></content:encoded></item><item><title><![CDATA[Ocean/Lake Time Series Isopleths for Temperature,  Dissolved Oxygen and RTRM]]></title><link><![CDATA[http://www.ekwityn.com/blog/oceanlake-isopleths-for-temperature-and-dissolved-oxygen]]></link><comments><![CDATA[http://www.ekwityn.com/blog/oceanlake-isopleths-for-temperature-and-dissolved-oxygen#comments]]></comments><pubDate>Tue, 23 Oct 2018 21:17:54 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/oceanlake-isopleths-for-temperature-and-dissolved-oxygen</guid><description><![CDATA[#https://github.com/EvanAquatic/Isopleths/blob/master/Isopleths%20Code%20R#Data used from Lake Washington, WA (Lake Washington. (2016, Februrary 26) Retrived October 23, 2018, from https://www.kingcounty.gov/services/environment/water-and-land/lakes/lakes-of-king-county/lake-washington.aspx)&nbsp;#You can use either a concatenate for %m.%d or use POSIXct for relying time series&nbsp;library(tidyverse)library(reshape2)library(colorRamps)library(scales)library(MBA)#Utilizing either&nbsp;Temperatur [...] ]]></description><content:encoded><![CDATA[<div class="paragraph"><font size="2" color="#2a2a2a">#https://github.com/EvanAquatic/Isopleths/blob/master/Isopleths%20Code%20R</font><br /><font color="#000000"><font size="2">#Data used from Lake Washington, WA (Lake Washington. (2016, Februrary 26) Retrived October 23, 2018, from https://www.kingcounty.gov/services/environment/water-and-land/lakes/lakes-of-king-county/lake-washington.aspx)&nbsp;</font><br /><font size="2">#You can use either a concatenate for %m.%d or use POSIXct for relying time series&nbsp;</font><br /><font size="2">library(tidyverse)</font><br /><font size="2">library(reshape2)</font><br /><font size="2">library(colorRamps)</font><br /><font size="2">library(scales)</font><br /><font size="2">library(MBA)</font><br /><br /><font size="2">#Utilizing either&nbsp;Temperature.C or&nbsp;DO.Concentration.mg.L or&nbsp;</font></font><span style="color:rgb(36, 41, 46)"><font size="2">#Utilizing either Temperature.C, DO.Concentration.mg.L or Relative.Resistence.to.Mixing.mg/m^3</font></span><br /><br /><font color="#000000"><font size="2">mba&lt;-mba.surf(Sample[,c('MonthDay', 'Depth..m.', '</font></font><font size="2"><span style="color:rgb(0, 0, 0)">Dissolved.Oxygen..mg.L.</span><font color="#000000">')], 100, 100)&nbsp; &nbsp;<br />dimnames(mba$xyz.est$z) &lt;- list(mba$xyz.est$x, mba$xyz.est$y)<br />SampleMelt&lt;-melt(mba$xyz.est$z, varnames = c('MonthDay', 'Depth..m.'), value.name = '</font><span style="color:rgb(0, 0, 0)">Dissolved.Oxygen..mg.L.</span></font><font color="#000000"><font size="2">)&nbsp;</font><br /><br /><font size="2">Fig &lt;-</font><br /><font size="2">ggplot(data=SampleMelt, aes(MonthDay, Depth..m.))+</font><br /><font size="2">geom_raster(aes(fill = Dissolved.Oxygen..mg.L.), interpolate = F, hjust = 0.5, vjust = 0.5) +</font><br /><font size="2">geom_contour(aes(z = Dissolved.Oxygen..mg.L.)) +&nbsp;</font><br /><font size="2">&nbsp; # geom_point(data = df3, aes(date, Sample.depth..m.), colour = 'white') +</font><br /><font size="2">&nbsp; #scale_x_datetime( limits = c(as.POSIXct("2000-01-01"),as.POSIXct("2000-12-31")))+</font><br /><font size="2">scale_x_continuous(expand =c(0,0), limits = c(1,12), breaks=c(1,2,3,4,5,6,7,8,9,10,11,12))+</font><br /><font size="2">scale_y_reverse(expand = c(0, 0), breaks=c(0,1,5,10,15,20,25,30,35,40,45,50,55)) +</font><br /><font size="2">scale_fill_gradientn(colours=rev(matlab.like2(7)),limits=c(0,15), breaks=c(0,2.5,5,7.5,10,12.5,15), name="DO (mg/L)")+</font><br /><font size="2">&nbsp; &nbsp;#scale_fill_gradientn(colours=matlab.like2(7),limits=c(0,30),breaks=c(0,5,10,15,20,25,30), name="Temperature (C)")+</font></font><br /><span style="color:rgb(0, 0, 0)"><font size="2">&nbsp; &nbsp;#scale_fill_gradientn(colours=matlab.like2(7),limits=c(0,14),breaks=c(0,2,4,6,8,10,12,14), name="RTRM (mg/m^3")+</font></span><br /><font color="#000000" size="2">&nbsp; &nbsp;## Since the palette&nbsp;is a vector use&nbsp;colours = rev(matlab.like2(7)) change to red2green2blue<br />labs(title='Lake Washington (##Water Temperature, Dissolved Oxygen or RTRM) Isopleths for April - October 2018') +&nbsp;<br />&nbsp; &nbsp; &nbsp;#subtitle="", tags="A", caption="()"&nbsp;<br />xlab("Month")+<br />ylab("Water Depth (m)")+<br />theme(plot.title = element_text(color="#000000",family = "sans", size=14)) +<br />theme(axis.title.x = element_text(colour = "#000000", family="sans",size=12))+&nbsp;<br />&nbsp; &nbsp; &nbsp;#windowsFonts() serif=TNR, sans=Arial, mono=Courier<br />theme(axis.title.y = element_text(colour = "#000000", family="sans", size=12))+&nbsp;<br />&nbsp; &nbsp; &nbsp;#face="bold/plain/italic/bold.italic", color="#000000", size=# pts, angle=# (0,360)<br />theme(axis.text.x = element_text(color="#000000", size=10.5, family="sans"))+<br />theme(axis.text.y = element_text(color="#000000", size=10.5, family="sans"))<br />Fig<br /><br />ggsave(filename="~/##########.pdf", Fig, width=11, height=6.5)</font></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lakewashisotemp18_1_orig.jpg" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:right"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/rplot01_1_orig.jpg" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lakewashisodo18_1_orig.jpg" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div class="paragraph"></div>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: lake_isopleths.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lake_isopleths.zip"><img src="//www.weebly.com/weebly/images/file_icons/gz.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> lake_isopleths.zip</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>6411 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> zip</td></tr></table><a title="Download file: lake_isopleths.zip" href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lake_isopleths.zip" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>]]></content:encoded></item><item><title><![CDATA[Universal Fishing Notebook Template]]></title><link><![CDATA[http://www.ekwityn.com/blog/fishing-notebook-template]]></link><comments><![CDATA[http://www.ekwityn.com/blog/fishing-notebook-template#comments]]></comments><pubDate>Mon, 04 Dec 2017 08:00:00 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/fishing-notebook-template</guid><description><![CDATA[ Getting outdoors and going fishing is an excellent activity with exposure to some excellent scenery, but fishing shouldn&rsquo;t be a mystery.&nbsp;A fishing notebook allows you to keep track of the methods and techniques that have and have not worked. When keeping a notebook over time, you will begin to analyze trends and patterns you may have missed otherwise. What worked last time is&nbsp;likely to work again!A fishing notebook with basic information is useful, but detailing more information [...] ]]></description><content:encoded><![CDATA[<span class='imgPusher' style='float:right;height:0px'></span><span style='display: table;width:450px;position:relative;float:right;max-width:100%;;clear:right;margin-top:0px;*margin-top:0px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/published/fishing-notebook-template-4-24-2018_3.jpg?1524632272" style="margin-top: 10px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:0; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;">Getting outdoors and going fishing is an excellent activity with exposure to some excellent scenery, but fishing shouldn&rsquo;t be a mystery.&nbsp;<br /><br />A fishing notebook allows you to keep track of the methods and techniques that have and have not worked. When keeping a notebook over time, you will begin to analyze trends and patterns you may have missed otherwise. What worked last time is&nbsp;likely to work again!<br /><br />A fishing notebook with basic information is useful, but detailing more information will maximize your fishing habitats, patterns and techniques.&nbsp;However simply trying to find a basic fishing notebook appears to be extremely difficult. In regards to this issue I have created a simple and&nbsp;comprehensive universal fishing notebook attached below. The universal fishing notebook can be used in any type of lentic or non moving (i.e., ponds, lakes, reservoirs, oceans) and lotic or moving (i.e., creeks, rivers, streams) water environments. Additionally this notebook can also be used for&nbsp;calculating catch efficiency and analyze trends associated with different terminal tackle, techniques (e.g., fly fishing, wreck/bottom fishing, top and mid-water lures, etc..) and with seasonal and physical environmental parameters.&nbsp;<br /><br />Detailing and documenting your fishing experiences will give you valuable tools for landing that trophy fish.&nbsp;</div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: Excel Fishing Notebook Dataframe.xlsx" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/fishing_log_web.xlsx"><img src="//www.weebly.com/weebly/images/file_icons/xls.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> Excel Fishing Notebook Dataframe.xlsx</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>152 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> xlsx</td></tr></table><a title="Download file: Excel Fishing Notebook Dataframe.xlsx" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/fishing_log_web.xlsx" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: Universal Fishing Notebook Template.pdf" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/fishing_notebook_template_4.24.2018.pdf"><img src="//www.weebly.com/weebly/images/file_icons/pdf.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> Universal Fishing Notebook Template.pdf</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>45 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> pdf</td></tr></table><a title="Download file: Universal Fishing Notebook Template.pdf" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/fishing_notebook_template_4.24.2018.pdf" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>  <div><div style="margin: 10px 0 0 -10px"> <a title="Download file: Lake and Pond Fishing Notebook.pdf" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lake_and_pond_angler_notebook_template.pdf"><img src="//www.weebly.com/weebly/images/file_icons/pdf.png" width="36" height="36" style="float: left; position: relative; left: 0px; top: 0px; margin: 0 15px 15px 0; border: 0;" /></a><div style="float: left; text-align: left; position: relative;"><table style="font-size: 12px; font-family: tahoma; line-height: .9;"><tr><td colspan="2"><b> Lake and Pond Fishing Notebook.pdf</b></td></tr><tr style="display: none;"><td>File Size:  </td><td>440 kb</td></tr><tr style="display: none;"><td>File Type:  </td><td> pdf</td></tr></table><a title="Download file: Lake and Pond Fishing Notebook.pdf" download href="http://www.ekwityn.com/uploads/1/9/1/4/19142635/lake_and_pond_angler_notebook_template.pdf" style="font-weight: bold;">Download File</a></div> </div>  <hr style="clear: both; width: 100%; visibility: hidden"></hr></div>]]></content:encoded></item><item><title><![CDATA[Relative Thermal Resistance to Mixing (RTRM)]]></title><link><![CDATA[http://www.ekwityn.com/blog/relative-thermal-resistance-to-mixing-rtrm]]></link><comments><![CDATA[http://www.ekwityn.com/blog/relative-thermal-resistance-to-mixing-rtrm#comments]]></comments><pubDate>Sat, 04 Nov 2017 01:19:37 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/relative-thermal-resistance-to-mixing-rtrm</guid><description><![CDATA[ 	 		 			 				 					 						          					 								 					 						   When observing physical water characteristics in the ocean, lakes, ponds, or rivers energy (i.e., heat) is often gained or lost from the surface and is transported with depth. Since water temperatures change the density of water, cold water has greater density compared to warm water. Observing water temperatures through depth gives us important information that deals with a range of water temperatures.There are three categories t [...] ]]></description><content:encoded><![CDATA[<div><div class="wsite-multicol"><div class="wsite-multicol-table-wrap" style="margin:0 -15px;"> 	<table class="wsite-multicol-table"> 		<tbody class="wsite-multicol-tbody"> 			<tr class="wsite-multicol-tr"> 				<td class="wsite-multicol-col" style="width:50%; padding:0 15px;"> 					 						  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0px;margin-right:10px;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/published/profile-rtrm-spreadsheet_4.jpg?1511070195" alt="Picture" style="width:327;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>   					 				</td>				<td class="wsite-multicol-col" style="width:50%; padding:0 15px;"> 					 						  <span class='imgPusher' style='float:left;height:438px'></span><span style='display: table;width:auto;position:relative;float:left;max-width:100%;;clear:left;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/screen-shot-2017-11-19-at-12-30-15-am_orig.png" style="margin-top: 10px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:0; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;">When observing physical water characteristics in the ocean, lakes, ponds, or rivers energy (i.e., heat) is often gained or lost from the surface and is transported with depth. Since water temperatures change the density of water, cold water has greater density compared to warm water. Observing water temperatures through depth gives us important information that deals with a range of water temperatures.<br /><br />There are three categories that illustrate the formation of a water column that are divided in this concept due to density. These categories include the epilimnion (upper layer), thermocline or metalimnion (middle layer), and the hypolimnion (bottom layer). Determining these layers throughout a water column is often important when identifying where organisms reside and are most productive. This is important since water temperature and metabolic rate are correlated.<br /></div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>   					 				</td>			</tr> 		</tbody> 	</table> </div></div></div>  <div class="paragraph"><span>Relative thermal resistance to mixing is able to quantify stratification as a function of temperature differential, exact position of the thermocline, the exact width of the metalimnion, and how stable of stratification results from an non linear change. RTRM identifies a relatively easy computation. Instead of visually trying to identify stratification this method can be utilized to identify both the location and intensity of thermal stratification.&nbsp;</span></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:10px;padding-bottom:10px;margin-left:0;margin-right:0;text-align:center"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/rplot05_orig.jpeg" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>  <div class="paragraph" style="text-align:left;"><font size="2" color="#2a2a2a">#https://github.com/EvanAquatic<br />#Function to calculate water density (mg/m^3) from water temperature (celsius)<br />WaterDensityCalc &lt;- function(x) {&nbsp;<br />&nbsp; Density=(1000*(1-((Temperature+288.9414)/(508929.2*(Temperature+68.12963)))*(Temperature-3.9863)^2)/1000) #output is water density in mg/m^3<br />}<br /><br />Depth=Profile$Sample.Depth&nbsp;<br />Temperature=Profile$Temperature<br />Water_Density&lt;-WaterDensityCalc(Temperature) ###Calculating water density from the defined&nbsp;function&nbsp;&nbsp;<br /><br />RTRM&lt;-data.frame(Profile$Sampling.Location, Depth, Temperature, Water_Density) ###Creating dataframe with outputs<br /><br />##Calculate RTRM<br />RTRM$RTRM_OUTPUT= NA<br />for(i in seq(1, nrow(RTRM))){<br />&nbsp; RTRM[i,"RTRM_OUTPUT"] = RTRM[i,"RTRM_OUTPUT"] = ((RTRM[i+1,"Water_Density"] - RTRM[i,"Water_Density"])/(1-0.9999919))<br />}<br /><br />#1000*(1-((4+288.9414)/(508929.2*(4+68.12963)))*(4-3.9863)^2)/1000=1<br />#1000*(1-((5+288.9414)/(508929.2*(5+68.12963)))*(5-3.9863)^2)/1000=0.9999919<br /><br />RTRM$RTRM_OUTPUT[RTRM$RTRM_OUTPUT&lt;0]&lt;-0 #Removing negative values<br />RTRM<br /><br />#######General Plots and Figures<br />library(ggplot2)<br />library(MASS)<br />library(reshape)<br />library(reshape2)<br /><br />#Incorporating influences of month or date<br />#RTRM$NewDate &lt;- format(as.Date(RTRM$RTRM1.Date, format="%m/%d/%Y"), "%Y/%m")<br />#RTRM$Monthday &lt;- format(as.Date(RTRM$RTRM1.Date, format="%m/%d/%Y"), "%m/%d")<br /><br />###################<br />#Creating new dataframes to plot water temperature and RTRM<br />df&lt;-data.frame(RTRM$Profile.Sampling.Location, RTRM$Depth, RTRM$Temperature, RTRM$RTRM_OUTPUT)<br />names(df)&lt;-c("SampleLocation", "Depth", "Temperature", "RTRM") #New datadrame output with new header names; length=lt and weight=wt<br />newdf&lt;- melt(df, id = c("SampleLocation","Depth"))<br />names(newdf)&lt;-c("SampleLocation", "Depth", "Legend", "Output") #New datadrame output with new header names; length=lt and weight=wt<br /><br />###Water Temperature and RTRM Profile Plot Outputs<br />g&lt;-ggplot(newdf, aes(x=Output, y =Depth, color=Legend))+<br />&nbsp; theme_bw() +&nbsp;<br />&nbsp; geom_path(aes(linetype=Legend),linejoin = 'round', size=1 ) +&nbsp;<br />&nbsp; facet_wrap(~SampleLocation, ncol=5)+<br />&nbsp; # facet_grid(Collection.Date.ymd~Collection.Year)+<br />&nbsp; labs(title='4/26/2018&nbsp; Reservoir Relative Thermal Resistance to Mixing (RTRM) and Water Temperature Profiles')+<br />&nbsp; xlab("Temperature (C) and RTRM (g/m^3)")+<br />&nbsp; ylab("Depth (m)")+<br />&nbsp; scale_x_continuous(limits=c(0,30), expand=c(0,0))+<br />&nbsp; scale_y_reverse(breaks=seq(12,0, by=-1), limits=c(12,0), expand=c(0,0)) +<br />&nbsp; theme(strip.text = element_text(size=6.5, lineheight=0.1, hjust=0.5),<br />&nbsp; &nbsp; &nbsp; &nbsp; axis.text.y = element_text(size=8, colour="black"),<br />&nbsp; &nbsp; &nbsp; &nbsp; axis.text.x = element_text(size=8, colour="black"),&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; panel.spacing = unit(1, 'lines'),&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; legend.position = "top", legend.background = element_rect(color = "black",&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;size = .1), legend.direction = "horizontal")<br /><br />###################<br />#Creating new dataframes to plot Dissolved Oxygen, pH, % Dissolved Oxygen, etc.&nbsp;<br />df2&lt;-data.frame(Profile$Sampling.Location, Profile$Sample.Depth, Profile$Dissolved.Oxygen)<br />names(df2)&lt;-c("SampleLocation", "Depth", "Dissolved Oxygen") #New datadrame output with new header names; length=lt and weight=wt<br />newdf2&lt;- melt(df2, id = c("SampleLocation","Depth"))<br />names(newdf2)&lt;-c("SampleLocation", "Depth", "Legend", "Output") #New datadrame output with new header names; length=lt and weight=wt<br />&#8203;<br />###Dissolved Oxygen Profile Plot Outputs<br />g&lt;-ggplot(newdf2, aes(x=Output, y =Depth, color=Legend))+<br />&nbsp; theme_bw() +&nbsp;<br />&nbsp; geom_path(aes(linetype=Legend), size=1 ) +&nbsp;<br />&nbsp; facet_wrap(~SampleLocation, ncol=5)+<br />&nbsp; # facet_grid(Collection.Date.ymd~Collection.Year)+<br />&nbsp; labs(title='4/26/2018 Reservoir Dissolved Oxygen Profiles')+<br />&nbsp; xlab("Dissolved Oxygen (mg/L)")+<br />&nbsp; ylab("Depth (m)")+<br />&nbsp; scale_x_continuous(limits=c(0,12), expand=c(0,0))+<br />&nbsp; scale_y_reverse(breaks=seq(12,0, by=-1), limits=c(12,0), expand=c(0,0)) +<br />&nbsp; theme(strip.text = element_text(size=6.5, lineheight=0.1, hjust=0.5),<br />&nbsp; &nbsp; &nbsp; &nbsp; axis.text.y = element_text(size=8, colour="black"),<br />&nbsp; &nbsp; &nbsp; &nbsp; axis.text.x = element_text(size=8, colour="black"),&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; panel.spacing = unit(1, 'lines'),&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; legend.position = "top", legend.background = element_rect(color = "black",&nbsp;<br />&nbsp; &nbsp; &nbsp; &nbsp; size = .5), legend.direction = "horizontal")</font></div>  <div class="paragraph"><font size="1"><br /><font color="#e0bf5c" style="">&#8203;[1]</font><font color="#818181" style="">&nbsp;Kortmann, R.W. 1990. Thermal Stratification in Reservoirs: Causes, Consequences, Management Techniques.&nbsp;&nbsp;Proceedings&nbsp;&nbsp;</font><em style="color: rgb(129, 129, 129);">AWWA-WQTC</em><font color="#818181" style="">, San Diego, November 1990.</font></font></div>]]></content:encoded></item><item><title><![CDATA[Hydric Soils and Their Influence on Vegetative Communities in Salt Marshes]]></title><link><![CDATA[http://www.ekwityn.com/blog/hydric-soils-and-their-influence-on-vegetative-communities-in-salt-marshes]]></link><comments><![CDATA[http://www.ekwityn.com/blog/hydric-soils-and-their-influence-on-vegetative-communities-in-salt-marshes#comments]]></comments><pubDate>Fri, 05 May 2017 15:54:00 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/hydric-soils-and-their-influence-on-vegetative-communities-in-salt-marshes</guid><description><![CDATA[ Evaluating sediment characteristics is essential, particularly as it pertains to salt marsh restoration dieback events. These dieback events on salt marshes result in the loss of&nbsp;Spartina alterniflora&nbsp;exposing open areas that create a loss in the accumulation of organic material and areas that become highly susceptible to erosion. Often an influential cause for vegetative dieback events are a result of prolonged water inundation. Vegetation exposed to continued water inundation promot [...] ]]></description><content:encoded><![CDATA[<span class='imgPusher' style='float:right;height:200px'></span><span style='display: table;width:314px;position:relative;float:right;max-width:100%;;clear:right;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/published/img-2006.jpg?1494003282" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:1px;padding:3px; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;">Evaluating sediment characteristics is essential, particularly as it pertains to salt marsh restoration dieback events. These dieback events on salt marshes result in the loss of&nbsp;<em>Spartina alterniflora</em>&nbsp;exposing open areas that create a loss in the accumulation of organic material and areas that become highly susceptible to erosion. Often an influential cause for vegetative dieback events are a result of prolonged water inundation. Vegetation exposed to continued water inundation promotes water logged soils as well as increased concentrations of sulfides in the soils porewater <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn1">[2]</a>. Another potential association to a vegetative dieback event could be caused by soil desiccation. As a result, from reduced water inundation soil desiccation would stimulate an increased supply of toxic metals and lowers pH soil levels <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn1">[2]</a>.&nbsp;<br />&#8203;<br />One of the most influential characteristics to the loss of tidal influences is the absence of reducing sulfidic conditions. Hydric soil formations are developed through anaerobic (i.e., anoxic) conditions, which results from prolonged hydroperiods of soils. These anaerobic environments make sulfide materials readily available for sulfur adaptive bacteria. Sulfur adaptive bacteria are able to transfer sulfate to sulfide (hydrogen sulfide; H2S) and pyrite (FeS2) <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn1">[4]</a>. Often these processes are accelerated through an increased concentration of organic material. While sulfide soils do not cause an issue under natural tidal regimes, when these soils are left to dry, the sulfides in the soil begin to oxidize producing sulfuric acid and eventually jarosite, which greatly lowers a soils pH (&lt;4.0) <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn2">[3]</a>. These processes create elevated acidic conditions that could negatively impact nearby vegetation and aquatic organisms.&nbsp;<br /><br />Under natural tidal salt marsh conditions, it is expected that the sequestration of carbon, nitrogen, and phosphorus would increase due to the reduced rate of decomposition. Carbon, nitrogen, and phosphorus in soils are the primary component needed for plant growth.</div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>  <span class='imgPusher' style='float:left;height:430px'></span><span style='display: table;width:auto;position:relative;float:left;max-width:100%;;clear:left;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/published/img-2491.jpg?1494003354" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:1px;padding:3px; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;">Carbon (C) accumulation within salt marshes is the base layer for the incorporation and retention of nutrients and plant biomass. Contributions of organic and inorganic sediments eventually build up the marshes peat layer. Organic substrates and fine-textured materials (i.e., silt, loam, clay) tend to retain moisture and are more suitable for plant growth in salt marsh environments.&nbsp;<br /><br />Nitrogen (N) is an essential nutrient needed by plants. Nitrogen is found throughout a plants physiology and contained within their cells, and proteins. Nitrogen can enter soils through numerous pathways and become incorporated into the plant. However, when nitrogen is incorporated into hydric soil it is converted in the mineral form of nitrate, which can then become utilized by plants. Changes to nutrient availability within salt marsh ecosystems can drastically alter the species composition. Most of the species will transition into a macroalgae community with excess nitrogen availability <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn1">[1]</a>.&nbsp;<em>Spartina alternifora&nbsp;</em>has also been shown to outcompete&nbsp;<em>Spartina patens</em>&nbsp;within excess nitrogen sources <a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn2">[5]</a>.&nbsp;<br /><br />Phosphorus (P) is also an essential nutrient that helps transfer energy from sunlight to the plant. Phosphorus is the general nutrient that helps simulate early root development, and strengthens stalks and stems.&nbsp;<br /><br />These compounds are the major nutrients that are needed towards the incorporation of peat material and influence a healthy salt marsh through sequestration. As oxidization occurs within restored salt marshes it is expected that these areas would experience a loss organic matter due to an increase of decomposition. The presence of inorganic material used as placement material potentially hinders new materials becoming incorporated into soils&nbsp;<a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftn1">[1]</a>. Although nutrients can be beneficial for the revitalization of plant growth, excess nutrients may also result in a decline of the recovery of the marsh.<br /><br />Healthy salt marshes are considered a sink for trace metal. These metals are often tied up in organic matter and sulfides that result from an anaerobic and extended flooding. Tidal restrictions to presently restored placement areas would cause oxidized conditions of total organics and sulfides. Oxidized soils would subsequently solubilize metals into soil and vegetative porewater. Oxidized environments could then become sources for solubilized metals through the exchange of porewater and surface water. Acidic soils could also further increase the solubility of metals within these environments.&nbsp;<br />&nbsp;<br /><font size="1"><a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftnref1" style="">[1]</a>&nbsp;Anisfeld, S.C., M.J. Tobin and G. Benoit. 1999. &ldquo;Sedimentation Rates in Flow-Restricted and Restored Salt Marshes in Long Island Sound.&rdquo; Estuaries 22:231-44<br /><a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftnref1" style="">[2]</a>&nbsp;Ogburn, Matthew Bryan, and Merryl Abler. &ldquo;An investigation of salt marsh dieback in Georgia using field transplants.&rdquo; Estuaries and Coasts 29.1 (2006): 54-62<br /><a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftnref2" style="">[3]</a>&nbsp;Rabenhorst, M.C., D.S. Fanning, and S.N. Burch 2002. Acid Sulfate Soils, Formation. In: R. Lal (ed.). Encyclopedia of Soil Science. Marcel Dekker, New York. 14-18.<br /><a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftnref1" style="">[4]</a>&nbsp;Reddy, K.R., and R.D. DeLaune. 2008. Biogeochemistry of Wetlands: Science and Applications. CRC Press, Taylor &amp; Francis Group, Boca Raton, FL.<br /><a href="https://19142635-601131243630820915.preview.editmysite.com/editor/main.php#_ftnref2" style="">[5]</a>&nbsp;Wigand, C., R. McKinney, M. Chintala, M. Charpentier, and G. Thursby. 2003. &ldquo;Relationships of Nitrogen Loadings, Residential Development and Physical Characteristics with Plant Structure in New England Salt Marshes.&rdquo; Estuaries 26: 1494-1504.&nbsp;</font></div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>]]></content:encoded></item><item><title><![CDATA[Marsh Restoration Effect on Nekton Communities]]></title><link><![CDATA[http://www.ekwityn.com/blog/marsh-restoration-effect-on-nekton-communities]]></link><comments><![CDATA[http://www.ekwityn.com/blog/marsh-restoration-effect-on-nekton-communities#comments]]></comments><pubDate>Tue, 09 Aug 2016 21:29:24 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/marsh-restoration-effect-on-nekton-communities</guid><description><![CDATA[ The increase of protecting salt marshes has accelerated throughout the world due to coastal protection, but understanding how communities of nekton (aquatic animals, such as fish and invertebrates that are capable of movement independently of tides and/or current) are affected by replenishment efforts is extremely limited (Roman et al., 2002). These replenishment practices are firstly aimed at replacing a thin layer of material over targeted areas of the marsh to increase its elevation; secondl [...] ]]></description><content:encoded><![CDATA[<span class='imgPusher' style='float:left;height:0px'></span><span style='display: table;width:auto;position:relative;float:left;max-width:100%;;clear:left;margin-top:0px;*margin-top:0px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/1471289868.png" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:0; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;">The increase of protecting salt marshes has accelerated throughout the world due to coastal protection, but understanding how communities of nekton (aquatic animals, such as fish and invertebrates that are capable of movement independently of tides and/or current) are affected by replenishment efforts is extremely limited (Roman et al., 2002). These replenishment practices are firstly aimed at replacing a thin layer of material over targeted areas of the marsh to increase its elevation; secondly replenishment efforts are aimed to concentrate fill material to expanding marsh pools by elevating the substrate to the same level of adjacent marshes. Quantitative results are imperative to understanding nekton assemblage within marsh environments to better understand restoration practices, while also evaluating current and future restoration practices.<br /></div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>  <span class='imgPusher' style='float:right;height:10px'></span><span style='display: table;width:377px;position:relative;float:right;max-width:100%;;clear:right;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/img-1982.jpg?359" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:1px;padding:3px; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;"><span>Killifish are considered the most structurally important and residential species within salt marsh aquatic sub-habitats (Collette and Klein-MacPhee 2002). Killifish are considered to be the most important species due to their dominance, productivity, and have been shown to be an indicator of early stages of a declining marsh environment over other nekton assemblage throughout marsh sub-habitats (Able et al. 2007). Mummichogs may disperse over the marsh surface if and when water is present. However, if water does not disperse over the marsh surface in the event of high flooding events, killifish occupy sub-habitats such as tidal creeks, ditches, and pools that are embedded deep in marsh habitat. These sub-habitats have been shown to be important forging areas for these species (Allen et al., 1994). Other important species that may contribute to food web linkage and production of the nekton community found within marsh are daggerblade grass shrimp (</span><em>Palaemonetes pugio</em><font color="#545454">)</font><span>, Atlantic silversides (Menidia menidia), striped killifish (</span><em>Fundulus majalis</em><span>), and sheepshead minnows (</span><em>Cyprinodon variegatus</em><span>). Understanding abundance and dominance of nekton is <span>&#65279;</span>fundamental in understanding physical tolerances of nekton survival.&nbsp;</span>&#8203;</div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>  <div class="paragraph"><font size="1">References:&#8203;<br />Collette, B.B., and G. Klein-MacPhee (eds.) 2002. Bigelow and Schroeder&rsquo;s Fishes of the Gulf of Maine. Washington: Smithsonian Institution Press.&nbsp;<br />Allen Elizabeth A., Fell Paul E., Peck Myron A., Gieg Jennifer A., Gutike Carl R., Newkirk Michael D., Gut Contents of Common Mummichogs,&nbsp;<em style="">Fundulus heteroclitus</em>&nbsp;L., in a Restored Impounded Marsh and in Natural Reference Marshes. Estuaries. Vol. 17, No. 2, pp 462-471. June 1994.<br />Able, K.W., J.H. Balletto, S.M. Hagan, P.R. Jivoff, and K. Strait. 2007, Linkages between salt marshes and other nekton habitats in Delaware Bay, USA. Reviews in Fisheries Science 15: 1-61.&nbsp;<br />Roman, Charles T., Raposa, Kenneth B., Adamowicz Susan C., James-Pirri, Mary-Jane, Catena, John G. Quantifying Vegetation and Nekton Response to Tidal Restoration of a New England Salt Marsh. Restoration Ecology Vol. 10, No. 3, pp. 450-460. September 2002</font></div>  <div><div class="wsite-image wsite-image-border-none " style="padding-top:0px;padding-bottom:0px;margin-left:100px;margin-right:10px;text-align:left"> <a> <img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/1471290158.png" alt="Picture" style="width:auto;max-width:100%" /> </a> <div style="display:block;font-size:90%"></div> </div></div>]]></content:encoded></item><item><title><![CDATA[Diadromous Fish Evolution]]></title><link><![CDATA[http://www.ekwityn.com/blog/diadromous-fish-evolution]]></link><comments><![CDATA[http://www.ekwityn.com/blog/diadromous-fish-evolution#comments]]></comments><pubDate>Sun, 20 Mar 2016 20:57:57 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/diadromous-fish-evolution</guid><description><![CDATA[ Why do we see more anadromous species (spawning in freshwater, while living the duration of their lives in saltwater, only returning to freshwater environments to spawn, e.g. salmonids or lamprey) compared to catadromous species (spawning in saltwater, while living the duration of their lives in freshwater, only returning to saltwater environments to spawn, e.g.&nbsp;american eels or some mullets)? The difference in these diadromous fish migration has ultimately been described as a paradox.Geog [...] ]]></description><content:encoded><![CDATA[<span class='imgPusher' style='float:left;height:74px'></span><span style='display: table;width:351px;position:relative;float:left;max-width:100%;;clear:left;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/4123005.png?335" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; none; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="text-align:justify;display:block;">Why do we see more anadromous species (spawning in freshwater, while living the duration of their lives in saltwater, only returning to freshwater environments to spawn, e.g. salmonids or lamprey) compared to catadromous species (spawning in saltwater, while living the duration of their lives in freshwater, only returning to saltwater environments to spawn, e.g.&nbsp;american eels or some mullets)? The difference in these diadromous fish migration has ultimately been described as a paradox.<br /><br />Geographically, you will find the highest quantity of aquatic species in tropical regions, containing the highest amount of diversity. Anadromous species are more prevalent within temperate latitudes, while finding catadromous species are more common in the tropics. There have been numerous hypotheses of the differences in food availability in ocean and freshwater habitats. Oceans often produce higher quantities of food compared to freshwater habitats in temperate latitudes where anadromous species predominate.</div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>  <span class='imgPusher' style='float:right;height:211px'></span><span style='display: table;width:316px;position:relative;float:right;max-width:100%;;clear:right;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/2911558.png?300" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; none; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;"><span>Vega and Wiens (2012) assessed actinopterygian (class of ray-finned fish) richness, which contains 96% of all fish species found today. They found that richness was similar between both freshwater and saltwater clades. That marine actinopterygians derived from a freshwater ancestor! Diversify from this ancestor only started 110 million years ago. Through evolution percomorpha (spiny ray finned fish) now makes up 40% of bony fish. Another group, ostariophysi evolved from freshwater to saltwater and now makes up 70% of freshwater species. They indicate that some possible extinction might have caused the low marine species richness. After these mass extinctions, freshwater actinopterygians were then able to re-occupy and repopulated saltwater environments. Lack of marine diversity could be one explanation to why there is low diversity within marine environments.</span><br /><br /><span>It&rsquo;s easy to think how easily a freshwater species could diversify compared to a saltwater species. Freshwater habitats could be subjected to geographical barriers, take for instance the formation of the Andes and the Amazon River basin. The rise of the Andes enclosed a small bay. Overtime the bay became less saline, allowing for species to evolve. The bay would periodically be flooded with saltwater, introducing new species and more diversity.&nbsp;</span><br /><br /><font size="1">Vega, G. C., &amp; Wiens, J. J. (2012). Why are there so few fish in the sea?&nbsp;<em style="">Proceedings of the Royal Society B: Biological Sciences</em>,&nbsp;<em style="">279&nbsp;</em>(1737), 2323-2329.<br />Gross, M. R., Coleman, R. M., &amp; McDowall, R. M. (1988). Aquatic productivity and the evolution of diadromous fish migration.&nbsp;<em style="">Science(Washington)</em>,&nbsp;<em style="">239&nbsp;</em>(4845), 1291-1293.</font></div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>]]></content:encoded></item><item><title><![CDATA[Potential threats to the oyster aquaculture industry]]></title><link><![CDATA[http://www.ekwityn.com/blog/potential-threats-to-the-oyster-aquaculture-industry]]></link><comments><![CDATA[http://www.ekwityn.com/blog/potential-threats-to-the-oyster-aquaculture-industry#comments]]></comments><pubDate>Sun, 20 Mar 2016 20:30:52 GMT</pubDate><category><![CDATA[Uncategorized]]></category><guid isPermaLink="false">http://www.ekwityn.com/blog/potential-threats-to-the-oyster-aquaculture-industry</guid><description><![CDATA[ Demand for cultivating and farming of oysters has been increasing around the world due to growing food demand as well as practicing of sustainability. Potential threats to oyster aquaculture practices are numerous. These potential threats can be caused by disease &ldquo;Dermo/MSX disease,&rdquo; climate change, ocean acidification, pollution/eutrophication, and also invasive species.&nbsp;&nbsp;Potential diseases to oyster can firstly arise through parasites, leading to Dermo or MSX disease. Th [...] ]]></description><content:encoded><![CDATA[<span class='imgPusher' style='float:right;height:382px'></span><span style='display: table;width:auto;position:relative;float:right;max-width:100%;;clear:right;margin-top:20px;*margin-top:40px'><a><img src="http://www.ekwityn.com/uploads/1/9/1/4/19142635/published/2013-06-26-12-39-44.jpg?1494003984" style="margin-top: 5px; margin-bottom: 10px; margin-left: 0px; margin-right: 10px; border-width:1px;padding:3px; max-width:100%" alt="Picture" class="galleryImageBorder wsite-image" /></a><span style="display: table-caption; caption-side: bottom; font-size: 90%; margin-top: -10px; margin-bottom: 10px; text-align: center;" class="wsite-caption"></span></span> <div class="paragraph" style="display:block;"><span>Demand for cultivating and farming of oysters has been increasing around the world due to growing food demand as well as practicing of sustainability. Potential threats to oyster aquaculture practices are numerous. These potential threats can be caused by disease &ldquo;Dermo/MSX disease,&rdquo; climate change, ocean acidification, pollution/eutrophication, and also invasive species.&nbsp;</span><br /><br /><span>&nbsp;Potential diseases to oyster can firstly arise through parasites, leading to Dermo or MSX disease. These two diseases have caused massive mortality to the Atlantic shellfish fishery. This pathogen enters through the blood stream of oysters after being filtered through their gills, becoming abundant throughout their tissue. The oyster will become stressed, reduce its growth rate, begin to produce non-fertile spat, and will decrease the integrity of its shell.&nbsp;</span><br /><br /><span>Rising ocean temperatures produce a potential threat to oyster aquaculture. Rising ocean temperatures allow for increased ocean acidification, which has the potential of impacting the integrity of oyster shells and in turn aquaculture practices. Rising temperatures coupled with inland run off of fertilizers and heavy metals allow for new and hazardous organisms to thrive. Microscopic planktonic dinoflagellates are known to thrive in eutrophication environments and can be linked to red tides and brown tides, both toxic and non-toxic blooms that at high levels cause death to marine organisms. Shellfish digest and filter out these dinoflagellates, which contain neurotoxins. Red tide formations are usually non-native to a naturally occurring system. The recognition of red tides causes paralytic shellfish poisoning (PSP). Another influential algal bloom beginning to occur is brown tides. The occurrence of the brown tides causes densities to get so numerous that shellfish are unable to filter. Shellfish then become unable to filter particles leaving these sessile organisms to starve.&nbsp;</span><br /><br /><span>Oyster cultivating and farming plays a major role in benefiting the ecosystem and economy. Although, beneficial to ecosystem services and economic gain, potential threats cause integrity to this industry. This industry can be susceptible to disease, climate change, and pollution. Biotic and Abiotic factors both have the potential of influencing this dynamic cultivating practice.</span></div> <hr style="width:100%;clear:both;visibility:hidden;"></hr>]]></content:encoded></item></channel></rss>