#' @title add_logo
#' @aliases add_logo
#' @author Arthur Welle
#' @description Adiciona logo do cecon aos graficos
#' @import ggplot2
#' @import plotly
#' @import dplyr
#' @param grafico Grafico gerado pelo ggplot. Por padrao, usa o ultimo grafico gerado
#' @return Um grafico interativo em html (plotly)
#' @export
add_logo <- function (grafico = last_plot())
{
grafico %>% ggplotly() %>% layout(images = list(list(source = "http://i.imgur.com/2e3FQaz.png",
xref = "paper", yref = "paper", x = 0.02, y = 1, sizex = 0.25,
sizey = 0.25, opacity = 0.5))) %>% config(displayModeBar = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.