# Create a bar chart of annual flows
library(smwrGraphs)
library(smwrData)
data(ConecuhFlows)
# Set up the page, for this demo, use the default layout
setGD("Conecuh")
# Set up x margin to suppress ticks and labels. the selected value
# for the first element (bottom margin) will work for 4-digit years
AA.margin <- c(-3.5, NA, -0.5, NA)
# The default x-axis range would be from 1935 - 1965.
# Set the x-axis range so that each year can be labeled and maximize the
# plotted area.
AA.xr <- range(ConecuhFlows$Year) + c(-1, 1)
# The y-axis must include 0, the pretty function will select a suitable
# maximim value.
AA.yr <- c(0, max(pretty(ConecuhFlows$Flow)))
# Suppress plotting anything
# Note that for these data, both the xaxis.range and xlabels must be set.
AA.pl <- with(ConecuhFlows, timePlot(Year, Flow, Plot=list(what="none"),
yaxis.range=AA.yr, xaxis.range=AA.xr, xlabels=AA.xr,
xtitle="Water Year",
ytitle="Mean Annual Streamflow, in cubic feet per second",
margin=AA.margin))
# Add the bars
with(ConecuhFlows, addBars(Year, Flow, Bars=list(width=1), current=AA.pl))
# And label each year
for(AA.lb in ConecuhFlows$Year)
addLabel(AA.lb, AA.lb, orientation="perp", justification="right")
# Finish with figure caption
addCaption("Mean annual streamflow for the Conecuh River at Brantley, AL")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.