Gantt Durations

Usage

gantt(text.var, grouping.var, units = "words", sums = FALSE, col.sep = "_")
plot_gantt_base(x, sums = NULL, fill.colors = NULL, box.color = "white", title = NULL)

Arguments

text.var

The text variable

grouping.var

The grouping variables. Also takes a single grouping variable or a list of 1 or more grouping variables.

units

The unit of measurement to analyze. One of the strings "character", "syllable", "word", or "sentence".

sums

logical. If TRUE reports and (optionally (or plots) the total units used by grouping variable(s).

col.sep

The character string to use to separate pasted variables in the merged grouping variable header/name.

x

n object of the class "gantt".

fill.colors

The colors of the Gantt plot bars. Either a single color or a length equal to the number of grouping variable(s). If NULL, rainbow is used.

box.color

A color to wrap the boxes with.

title

An optional title.

Examples

## <strong>Not run</strong>: 
# (a <- gantt(DATA$state, DATA$person))
# plot(a)
# plot(a, base = TRUE)
# 
# (b <- gantt(DATA$state, DATA$person, sums = TRUE))
# plot(b)
# plot(b, base = FALSE)
# 
# (d <- gantt(DATA$state, list(DATA$sex, DATA$adult)))
# plot(d)
# 
# x <- gantt(mraja1$dialogue, mraja1$person)
# plot(x, base = TRUE)
# plot(x, , base = TRUE, box.color = "black")
# 
# z <- gantt(mraja1$dialogue, mraja1$sex)
# plot(z)
# 
# e <- with(mraja1, gantt(dialogue, list(fam.aff, sex, died),
#    units = "characters", sums = TRUE))
# plot(e)
# 
# f <- gantt(mraja1$dialogue, mraja1$person, units = "syllables",
#     sums = TRUE)
# plot(f, box.color = "red")
# plot(f, base = FALSE)
# 
# dat <- gantt(mraja1$dialogue, list(mraja1$fam.aff, mraja1$sex),
#     units = "sentences", col.sep = "_")
# 
# 
# ## Animate It
# ##=================
# ani_gannt <- with(DATA.SPLIT, gantt(state, person))
# Animate(ani_gannt)
# Animate(plot(ani_gannt))
# 
# library(animation)
# loc <- reports::folder(animation_gantt)
# 
# ## Set up the plotting function
# oopt <- animation::ani.options(interval = 0.1)
# 
# FUN <- function() {
#     out <- Animate(ani_gannt)
#     lapply(out, function(x) {
#         print(x)
#         animation::ani.pause()
#     })
# 
# }
# 
# type <- if(.Platform$OS.type == "windows") shell else system
# saveGIF(FUN(), interval = 0.1, outdir = loc, cmd.fun = type)
# ## <strong>End(Not run)</strong>

See also

Author