#' \code{ConnectedDotPlot}
#'
#' @description Plots the subscription periods as a dotplot, with lines showing when subscriptions occurred
#' @param name A \code{character} vector of the names of the entities to be plotted.
#' @param from The dates to be plotted from.
#' @param to The dates to be plotted to.
#' @importFrom plotly plot_ly
#'
#' @export
ConnectedDotPlot <- function(name, from, to)
{
dat <- data.frame(name, from, to)
n <- nrow(dat)
# Adding the dots
suppressWarnings(p <- plot_ly(dat, x = ~from, y = ~name, mode = "markers", type = "scatter", marker = list(color = "blue")))#, marker = list(color = "blue")))
p <- add_trace(p, x = ~to, y = ~name, mode = "markers", type = "scatter", marker = list(color = "blue"))
temp.x <- rep(from, 3)
temp.x[(1:n)*3-2] <- from
temp.x[(1:n)*3-1] <- to
temp.y <- rep(name, each = 3)
temp.y[(1:n)*3] <- NA
p <- add_trace(p, x = temp.x, y = temp.y, mode = "lines", type = "scatter", line = list(color = "blue"))
p <- config(p, displayModeBar = FALSE)
p <- layout(p,
title = "Subscriptions", #,
xaxis = list(title = ""),
yaxis = list(title = "", showticklabels = FALSE),
margin = list(l = 0),
showlegend = FALSE)
p
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.