Tuesday, 8 April 2014

Annotation charts and histograms with googleVis

After my posts on timeline, Sankey and calendar charts, this will be the last to introduce new chart types of the developer version of googleVis. Today I will give examples for the new annotation charts and histograms.

Annotation charts

Annotation charts have been part of the Google Chart tools for a long time and googleVis as well. However, in the past only a flash based version was available (gvisAnnotatedTimeLine in googleVis). With the new Google Charts Tools version also a HTML5 version was released. In googleVis it is integrated as gvisAnnotationChart. It works in exactly the same way as the Flash based version, so here is an example.



For the R code below to run you will require the developer version (≥ 0.5.0-4) of googleVis from GitHub and R ≥ 3.0.2.

Histograms

Histograms are a new chart type in Google Chart Tools API - not so in R. Still, it is nice to know that one can create those now as well.


For more information and installation instructions see the googleVis project site and Google documentation.

Session Info

R version 3.0.3 (2014-03-06)
Platform: x86_64-apple-darwin10.8.0 (64-bit)

locale:
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base     

other attached packages:
[1] googleVis_0.5.0-4

loaded via a namespace (and not attached):
[1] RJSONIO_1.0-3 tools_3.0.3 

3 comments:

  1. Hi,

    Great post and package.

    Is it possible to use millisecond resolution with gvisAnnotatedTimeLine?



    Thanks

    ReplyDelete
  2. I am not sure, check out the Google documentation: https://developers.google.com/chart/interactive/docs/gallery/annotationchart#Data_Format

    ReplyDelete
  3. Thanks.

    Unfortunately, it doesn't seem to be possible. Although the following places the events at the correct location the x-axis has minimum 15 second resolution.

    Newdat <- data.frame(Date=as.POSIXct(c("2013-01-24 10:35:10.200", "2013-01-24 10:36:11.300", "2013-01-24 10:37:12.220","2013-01-24 10:38:13.400","2013-01-24 10:41:13.800")),
    Value=c(1,2,3,4,5),
    Label=c("Event1","Event2","Event3","Event4","Event5"))

    NewAA1 <- gvisAnnotatedTimeLine(Newdat, datevar ="Date",
    numvar ="Value",annotationvar="Label",
    options=list(displayAnnotations=TRUE,
    width=600, height=350))

    plot(NewAA1)

    ReplyDelete