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