Some doodles based on Icelandic cod stock

Preamble

Code not shown

Simple ggplot

Scatter plot

Line plot

Catch at age

Here is a little motion chart example:

M <- gvisMotionChart(oC, "age", "year", options = list(width = 550, height = 450))
print(M, "chart")

more

oC$yc <- oC$year - oC$age
M <- gvisMotionChart(oC, "yc", "year", options = list(width = 550, height = 450))
print(M, "chart")

more

AnnoTimeLine <- gvisAnnotatedTimeLine(oC2, datevar = "year", numvar = "oC", 
    idvar = "age", titlevar = "Title", annotationvar = "Annotation", options = list(displayAnnotations = TRUE, 
        legendPosition = "newRow", width = 550, height = 450))
# Display chart
plot(AnnoTimeLine)

## starting httpd help server ...

## done

# Create Google Gadget
cat(createGoogleGadget(AnnoTimeLine), file = "annotimeline.xml")
oC$yc <- oC$year - oC$age
M <- gvisMotionChart(oC, "yc", "year", options = list(width = 550, height = 450))
print(M, "chart")