##' @rdname layer
##' @export
bb_text <- function(mapping = NULL, data = NULL, ...) {
build_layer(mapping, data, ..., layer = ly_text)
}
##' @importFrom graphics text
ly_text <- function(plot, mapping = NULL, data = NULL, ...) {
data <- bb_data(plot, data)
mapping <- bb_mapping(plot, mapping)
x <- data[[xvar(mapping)]]
y <- data[[yvar(mapping)]]
params <- list(...)
params <- modifyList(params, list(x = x, y = y))
lv <- get_mapping(mapping, 'label')
if (lv != "NULL") {
label <- data[[lv]]
params <- modifyList(params, list(label = label))
}
ly <- function() {
if (!is.null(mapping$col) && is.null(params$col)) {
col_vec <- bb_col(mapping, data,
palette = get("palette", envir = plot$env))
params <- modifyList(params, list(col = col_vec))
}
do.call(text, params)
}
add_layer(plot, ly, "text layer")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.