#' @name sp_layer_for_inweb
#' @rdname sp_layer_for_inweb
#' @title InWeb Layers for ggplot2
#' @param p plot object
#' @param d_in data
#' @author April
#' @family layers
#' @export
sp_layer_for_inweb <- function(p, d_in){
p <- add_markers(p, data = d_in, x = ~rep1, y= ~rep2,
marker = list(color = "#ffff33", size = 7, line = list(width=0.4, color = "black"), opacity = 1),
mode = "markers+text", hoverinfo = "text", legendgroup = "group1",
text = ~paste(gene), textposition = ~ifelse(logFC>0,"middle right","middle left"), textfont = list(size = 11),
name = "InWeb")
}
#' @rdname sp_layer_for_inweb
sp_layer_for_inweb_no_text <- function(p, d_in){
p <- add_markers(p, data = d_in, x = ~rep1, y= ~rep2,
marker = list(color = "#ffff33", size = 7, line = list(width=0.4, color = "black"), opacity = 1),
mode = "markers+text", hoverinfo = "text", legendgroup = "group1",
name = "InWeb")
}
#' @rdname sp_layer_for_inweb
sp_layer_for_inweb_cbf <- function(p, d_in){
p <- add_markers(p, data = d_in, x = ~rep1, y= ~rep2,
marker = list(color = "#ffffff", size = 7, line = list(width=0.4, color = "black"), opacity = 1),
mode = "markers+text", hoverinfo = "text", legendgroup = "group1",
text = ~paste(gene), textposition = ~ifelse(logFC>0,"middle right","middle left"), textfont = list(size = 11),
name = "InWeb")
}
#' @rdname sp_layer_for_inweb
sp_layer_for_inweb_cbf_no_text <- function(p, d_in){
p <- add_markers(p, data = d_in, x = ~rep1, y= ~rep2,
marker = list(color = "#ffffff", size = 7, line = list(width=0.4, color = "black"), opacity = 1),
mode = "markers+text", hoverinfo = "text", legendgroup = "group1",
name = "InWeb")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.