# 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)
# calculate frequency
neubuerg.freq <- frequency(mast=neubuerg, v.set=1, print=FALSE)
neubuerg.freq.2 <- frequency(mast=neubuerg, v.set=1, bins=NULL,
print=FALSE)
# plot frequency
plotFrequency(freq=neubuerg.freq)
plotFrequency(freq=neubuerg.freq.2)
# change colours
plotFrequency(freq=neubuerg.freq, col=gray(5:0 / 5.5))
# change text sizes
plotFrequency(freq=neubuerg.freq, cex=0.8)
# manual definition of circles
plotFrequency(freq=neubuerg.freq, circles=c(10, 30, 10))
# plot sectors in foreground
plotFrequency(freq=neubuerg.freq, fg=TRUE)
# change position of axis labels
plotFrequency(freq=neubuerg.freq, pos.axis=135)
# no legend
plotFrequency(freq=neubuerg.freq, width.leg=0)
# freaky
plotFrequency(freq=neubuerg.freq, border.leg=heat.colors(5), bty.leg="o",
cex.axis=0.5, cex.lab=2, cex.leg=0.5, circles=c(5, 30, 5),
col=rainbow(5), col.axis="green", col.border="orange",
col.circle="purple", col.cross="yellow", col.lab="pink",
col.leg="lightblue", fg=TRUE, lwd.border=2, lwd.circle=3, lwd.cross=3,
lty.circle="12345678", lty.cross="87654321", sec.space=0.6,
title.leg="* WiNd SpEeD *", x.intersp=2, y.intersp=5)
Run the code above in your browser using DataLab