Nothing
#
# sparsebn-plotting.R
# sparsebn
#
# Created by Bryon Aragam (local) on 10/2/16.
# Copyright (c) 2016-2020 Bryon Aragam. All rights reserved.
#
#
# PACKAGE SPARSEBN: Default methods for plotting DAGs
#
# CONTENTS:
# plotDAG
# plotDAG.edgeList
# plotDAG.sparsebnFit
# plotDAG.sparsebnPath
#
#' Plot a DAG
#'
#' Using some sensible defaults for large graphs, plot a DAG object. Uses \code{\link[igraph]{igraph}}
#' package by default.
#'
#' This method is not intended for customization. For more control over the output, use
#' \code{\link{plot}} and see \code{\link{setPlotPackage}} for plotting only and/or
#' \code{\link{setGraphPackage}} for even more control. These methods grants the user the full
#' feature set of the selected package.
#'
#' @param x An \code{\link{edgeList}}, \code{\link{sparsebnFit}}, or \code{\link{sparsebnPath}} object.
#' @param ... Additional arguments to \code{\link{plot}}.
#'
#' @export
plotDAG <- function(x, ...){
### Must use igraph for the default method
current_plot_pkg <- getPlotPackage()
if(current_plot_pkg != "igraph"){
err_msg <- sprintf("This method requires that the 'igraph' package be set as your plotting package. You are currently set to use the '%s' package instead. Please set this packge to be 'igraph', or use the default plot() method from the %s package instead. See ?setPlotPackage for more details.", current_plot_pkg, current_plot_pkg)
stop(err_msg)
}
UseMethod("plotDAG", x)
}
#' @export
plotDAG.edgeList <- function(x, ...){
#
# Note that the defaults used here are not the same as for sparsebnPath!
#
plot(x,
vertex.size = 4,
vertex.label = NA,
vertex.label.color = gray(0),
vertex.color = rgb(1,0,0),
edge.width = 1,
edge.color = gray(0),
edge.arrow.size = 0.5,
...)
}
#' @export
plotDAG.sparsebnFit <- function(x, ...){
plotDAG(x$edges, ...)
}
#' @export
plotDAG.sparsebnPath <- function(x, ...){
#
# This method does not delegate directly to sparsebnFit because
# plotting a grid of graphs requires a different visual layout.
#
plot(x,
labels = TRUE,
vertex.size = 4,
vertex.label = NA,
vertex.label.color = gray(0),
vertex.color = rgb(1,0,0),
edge.width = 0.5,
edge.color = gray(0),
edge.arrow.size = 0.15,
...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.