Final Project plot 2

Packages and Data

setwd("C:/Users/loiser066/Downloads/MTH250")
library(tidyverse)
library(patchwork)
source("wind_test.R")

df <- read.csv("wind&water_direction&speed.csv")
str(df)
theme_rl <- theme_bw() +
 theme(plot.title=element_text(size=10,face="bold"),
       legend.title=element_text(size=7),
       legend.key.size=unit(2,"mm"),
       panel.grid.major=element_line(color="gray70"),
       panel.grid.minor=element_blank(),
       axis.text=element_text(color="royalblue4",size=8,face="bold"),
      panel.background=element_rect(fill="grey90"),) 

# subset
m5 <- subset(df,month=="may")
m6 <- subset(df,month=="june")
m7 <- subset(df,month=="july")
m8 <- subset(df,month=="august")

#may windrose
wm <- plot.windrose(spd = m5$wind_sp,
                    dir = m5$wind_dir) +
  labs(title="May Wind",x=element_blank()) +
  theme_rl +
  theme(legend.position = "none") 

wm

#june windrose
wjn <- plot.windrose(spd = m6$wind_sp,
                    dir = m6$wind_dir) +
  theme_rl +
  labs(title="June Wind",x=element_blank()) +
  theme(axis.title.y = element_blank())

wjn

#july windrose
wjl <- plot.windrose(spd = m7$wind_sp,
                    dir = m7$wind_dir) +
  theme_rl + 
   theme(legend.position = "none") +
  labs(title="July Wind",x=element_blank(),caption=" Source: https://waterdata.usgs.gov/usa/nwis/uv?463741090521301")

wjl

#august windrose
wau <- plot.windrose(spd = m8$wind_sp,
                    dir = m8$wind_dir) +
  theme_rl +
  labs(title="August Wind",x=element_blank()) +
  theme(axis.title.y = element_blank())

wau

Summer 2019 Wind Roses for Chequamegon Bay

(wm | wjn) /
  (wjl|wau)

These data are from the United States Geologic Survey (USGS) from their Ashland Breakwater Light Station in the Chequamegon Bay. I downloaded data for wind speed and direction for the months May through August 2019. For this second analysis I wanted to look at the cumulative wind speed and direction for each of these months and compare them to see how the dominant wind shifted over the summer. What I found was that May had the strongest winds of all four, coming from predominantly the NE to ENE, shifting in June to slightly weaker winds, also predominantly from the NE. In July there was a shift to predominant winds coming from the SW to SSW, and in August the SW to WSW. I made similar style choices in these graphs as the first set, using the same theme but with a slightly different grid arrangement.