From e5071ae6091eafc4a98bc280a23349dcb2261da3 Mon Sep 17 00:00:00 2001 From: Chris Sobczak Date: Mon, 15 Jun 2026 18:19:35 -0700 Subject: Add sizing and fix legend --- R/networkplot.R | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'R/networkplot.R') diff --git a/R/networkplot.R b/R/networkplot.R index 9d251ea..10dfc01 100644 --- a/R/networkplot.R +++ b/R/networkplot.R @@ -14,17 +14,6 @@ #' #' @return A ggraph object #' -#' @examples -#' X <- matrix(data = rnorm(100), nrow = 10) -#' R <- cor(X) -#' networkplot(R, title = 'Example Correlation Plot') -#' colnames(R) <- as.character(seq_len(ncol(R))) -#' g <- data.frame( -#' node = colnames(R), -#' group = rep(c('A', 'B'), length.out = ncol(R)) -#' ) -#' networkplot(R, groups = g, title = 'Example Correlation Plot') -#' #' @import ggraph #' @import igraph #' @@ -152,8 +141,7 @@ networkplot <- function(R, groups = NULL, group_label = NULL, title = NULL, r_la high = 'blue', midpoint = 0, limits = c(-1, 1), - name = r_label, - guide = ggplot2::guide_colourbar() + name = r_label ) + # operates on node data from the layout # leaf is a logical vector (provided by the ggraph object g) -- cgit v1.2.3