The Climate Data – Nasa Power

July 17, 2023

NS_data <- get_power(
  community = "re",
  lonlat = c(1.6780, 56.5187),
  pars = c("T2M", "WS10M", "WD10M"),
  dates = c("2021-1-1", "2021-03-31"),
  temporal_api = "daily")

Wind_rose<-NS_data[,9:10]
colnames(Wind_rose)<-c("ws", "wd")

windRose(Wind_rose,paddle = FALSE,breaks = c(1,5,10,15,20),
         col=c("#4f4f4f", "#0a7cb9", "#f9be00", "#ff7f2f"))

References

The Power Project: NASA