loon.ggplot (version 1.1.0)

l_ggplot: Automatically create a loon widget

Description

l_ggplot() wraps function ggplot with assigning a new class "lggplot" to the output ggplot object and returns a lggplot object. When a ggplot object is processed, S3 method print.ggplot is rendered, however, if a lggplot object is processed, S3 method print.lggplot will be rendered which will return a loon widget

Usage

l_ggplot(data = NULL, mapping = aes(), ..., environment = parent.frame())

Arguments

data

Default dataset to use for plot. If not already a data.frame, will be converted to one by fortify(). If not specified, must be supplied in each layer added to the plot.

mapping

Default list of aesthetic mappings to use for plot. If not specified, must be supplied in each layer added to the plot.

...

Other arguments passed on to methods. Not currently used.

environment

DEPRECATED. Used prior to tidy evaluation.

Value

It will return a lggplot object with class c("lggplot", "gg", "ggplot"). Then print a loon plot automatically.

See Also

ggplot, ggplot2loon, print.lggplot

loon.ggplot

Examples

# NOT RUN {
if(interactive()) {
p <- l_ggplot(mpg, aes(displ, cty)) +
    geom_point(
      size = 4,
      mapping = aes(color = factor(cyl))
    )
# p is a `lggplot` object, `print.lggplot(p)` will be called automatically.
# Then, a `lggplot` object will be transformed to a `loon` widget
p

# }
# NOT RUN {
# Assign a widget from current path
# suppose the path of `p` is '.l0.ggplot'
q <- l_getFromPath('.l0.ggplot')
# q is a `loon` widget
q
# }
# NOT RUN {
# An alternative way to return a real loon widget from `p` (a `lggplot` object)
# is to call the function `loon.ggplot`. Compared with calling function `l_getFrompath`
# this way can provide richer information (note that it will create a new widget).
q <- loon.ggplot(p)
q

# pipe more components
p +
  facet_grid(rows = vars(drv)) +
  linking(linkingGroup = "mpg") +
  ggtitle("displ versus cty")
# a linked bar plot
l_hist(mpg$class, linkingGroup = "mpg")

# a 3D object
# press the button key `R` to rotate the plot
l_ggplot(mtcars,
         mapping = aes(x = wt, y = hp, z = drat)) +
   geom_point(size = 4)
}
# }