library (openair)
library (tidyverse)
wind_rose <- data.frame("wind_speed(m/s)" = c(4.3, 6.7, 8.9, 6.6, 6.9, 7.1),
"wind_direction(°)" = c(180, 277, 300, 266, 176, 45 ))
windRose(LGRF1.Wind.Data.Since.March.2006, ws="wind_speed(m/s)", wd="wind_direction(°)",
breaks=c(0,2,5,8,11,17),
auto.text = FALSE,
paddle = FALSE,
annotate = FALSE,
grid.line = 2,
key = list(labels = c( "> 0 - 2 ",
" > 2 - 5 ")),
theme(text = element_text(family = "Times")),
key.footer = "Avg. Wind Speed Lake George Station (Ocala, Fl) 2006-2019 WSP (m/s)",
key.position = "bottom",
par.settings = list(axis.line = list(col = "lightgray")),
par.settings = list(fontsize=list(text=20)),
col = c("#A9A9A9","#696969"))
#> Error in checkNum(mydata, vars = c(ws, wd)): object 'LGRF1.Wind.Data.Since.March.2006' not found