The following Markdown displays sonde and temp/oxy profiles for lakes sampled by A. Ross between 2019-2022. Primary use is to visualize QA/QC process

LakeIDs

L223

datSub <- filter(allDat, lakeID == "L223")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L224

datSub <- filter(allDat, lakeID == "L224")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

## Warning: Removed 1 rows containing missing values (`geom_point()`).

L239

datSub <- filter(allDat, lakeID == "L239")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L240

datSub <- filter(allDat, lakeID == "L240")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L260

datSub <- filter(allDat, lakeID == "L260")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L262

datSub <- filter(allDat, lakeID == "L262")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L322

datSub <- filter(allDat, lakeID == "L322")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L373

datSub <- filter(allDat, lakeID == "L373")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}
## Warning: Removed 1 rows containing missing values (`geom_point()`).

L377

datSub <- filter(allDat, lakeID == "L377")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L382

datSub <- filter(allDat, lakeID == "L382")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L467

datSub <- filter(allDat, lakeID == "L467")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L625

datSub <- filter(allDat, lakeID == "L625")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

L626

datSub <- filter(allDat, lakeID == "L626")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

Opeongo

datSub <- filter(allDat, lakeID == "Opeongo")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}

Smoke

datSub <- filter(allDat, lakeID == "Smoke")
for (i in unique(datSub$dateSample)) {
p <- ggplot(filter(datSub, dateSample == i)) +
  geom_point(aes(x=value, y=depth)) +
  ylim(c(max(datSub$depth),0)) +
  facet_wrap(~ dateSample + Var, scales = "free") + 
  labs(y ="Depth", x= "Variable Value")
print(p)
}