# NOT RUN {
# simulate some data
p.narrow <- runif(n=25, min=215, max=280)
p.wide <- runif(n=25, min=0, max=270)
# set figure margins to 0, 2-column plot
par(mar=c(0,0,0,0), mfcol=c(1,2))
# plot
aspect.plot(p.narrow, p.bw=10, plot.title='Soil A', pch=21, col='black', bg='RoyalBlue')
aspect.plot(p.wide, p.bw=10, plot.title='Soil B', pch=21, col='black', bg='RoyalBlue')
# }
Run the code above in your browser using DataLab