# load and prepare data
data(winddata)
set40 <- createSet(height=40, v.avg=winddata[,2], dir.avg=winddata[,14])
set30 <- createSet(height=30, v.avg=winddata[,6], dir.avg=winddata[,16])
set20 <- createSet(height=20, v.avg=winddata[,10])
ts <- formatTS(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set40, set30, set20)
neubuerg <- clean(mast=neubuerg)
# plot v vs. dir
plotPolar(mast=neubuerg)
plotPolar(mast=neubuerg, v.set=3, dir.set=2)
plotPolar(mast=neubuerg, v.set="set3", dir.set="set2") # same as above
# data subsets
plotPolar(mast=neubuerg,
subset=c("2009-12-01 00:00:00", "2009-12-31 23:50:00"))
plotPolar(mast=neubuerg,
subset=c("2010-01-01 00:00:00", NA)) # just 'start' time stamp
plotPolar(mast=neubuerg,
subset=c(NA, "2009-12-31 23:50:00")) # just 'end' time stamp
# customize plot
plotPolar(mast=neubuerg, cex.axis=1.2, cex.lab=1.5, cex.pts=0.8,
circles=c(10,20,5), col="red3", col.axis=gray(0.2), col.circle=gray(0.3),
col.cross=gray(0.3), col.lab=gray(0.2), fg=TRUE, lty.circle="dotted",
lty.cross="longdash", lwd.circle=1.2, lwd.cross=1.2, pch=1, pos.axis=135)
Run the code above in your browser using DataLab