# Google Timeline Chart with R googleChartName \<- "timeline" gvisChartName \<- "gvisTimeline" A timeline is a chart that depicts how a set of resources are used over time. One popular type of timeline is the Gantt chart. ```r gvisTimeline( data, rowlabel = "", barlabel = "", start = "", end = "", options = list(), chartid ) ``` ## Arguments - `data`: data.frame that contains the data to be visualised - `rowlabel`: a string that refers to the column name in `data` for the row labels to be used - `barlabel`: a string that refers to the column name in `data` for the bar labels to be used - `start`: number, date or datetime for the start dates - `end`: number, date or datetime for the end dates - `options`: list of configuration options. The options are documented in detail by Google online: gsub("CHARTNAME", googleChartName, readLines(file.path(".", "inst","mansections", "GoogleChartToolsURLConfigOptions.txt"))) paste(readLines(file.path(".", "inst", "mansections","gvisOptions.txt"))) - `chartid`: character. If missing (default) a random chart id will be generated based on chart type and `tempfile` ## Returns paste(gvisChartName) returns list of `class` paste(readLines(file.path(".", "inst", "mansections","gvisOutputStructure.txt"))) ## Examples ```r dat <- data.frame(Term=c("1","2","3"), President=c("Whasington", "Adams", "Jefferson"), start=as.Date(x=c("1789-03-29", "1797-02-03", "1801-02-03")), end=as.Date(x=c("1797-02-03", "1801-02-03", "1809-02-03"))) tl <- gvisTimeline(data=dat[,-1], rowlabel="President", start="start", end="end") plot(tl) tl <- gvisTimeline(data=dat, barlabel="President", start="start", end="end") plot(tl) tl <- gvisTimeline(data=dat, rowlabel="President", start="start", end="end", options=list(timeline="{showRowLabels:false}")) plot(tl) dat <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)), Name=c("Washington", "Adams", "Jefferson", "Adams", "Jefferson", "Burr"), start=as.Date(x=rep(c("1789-03-29", "1797-02-03", "1801-02-03"),2)), end=as.Date(x=rep(c("1797-02-03", "1801-02-03", "1809-02-03"),2))) tl <- gvisTimeline(data=dat, rowlabel="Name",barlabel="Position", start="start", end="end", options=list(timeline="{showRowLabels:true}")) plot(tl) tl <- gvisTimeline(data=dat, rowlabel="Name",barlabel="Position", start="start", end="end", options=list(timeline="{groupByRowLabel:false}", backgroundColor='#ffd', height=350, colors="['#cbb69d', '#603913', '#c69c6e']")) plot(tl) # Datetime example dat <- data.frame(Room=c("Room 1","Room 2","Room 3"), Language=c("English", "German", "French"), start=as.POSIXct(c("2014-03-14 14:00", "2014-03-14 15:00", "2014-03-14 14:30")), end=as.POSIXct(c("2014-03-14 15:00", "2014-03-14 16:00", "2014-03-14 15:30"))) tl <- gvisTimeline(data=dat, rowlabel="Language", start="start", end="end") plot(tl) ## Not run: require(timeline) data(ww2) timeline(ww2, ww2.events, event.spots=2, event.label='', event.above=FALSE) ww2$Person <- gsub("\\n" ," ", ww2$Person) plot(gvisTimeline(ww2, barlabel="Person", rowlabel="Group", start="StartDate", end="EndDate", options=list(width=600, height=350)) ) ## End(Not run) ``` ## References Google Chart Tools API: gsub("CHARTNAME", googleChartName, readLines(file.path(".", "inst","mansections", "GoogleChartToolsURL.txt"))) ## Author(s) Markus Gesmann markus.gesmann@gmail.com

gvisTimeline function