added dataset, new function and incremented version

Author: benyamindsmith

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ig.degree.betweenness
 Type: Package
 Title: "Smith-Pittman Community Detection Algorithm for 'igraph' Objects (2024)"
-Version: 0.1.1
+Version: 0.2.0
 Authors@R: c(
     person(
     "Benjamin", 
@@ -42,7 +42,11 @@ Imports:
   igraphdata,
   rlist,
   BBmisc,
-  qgraph
+  qgraph,
+  dplyr,
+  tibble,
+  tidyr,
+  ggplot2
 Depends: 
     R (>= 4.1.0)
 RoxygenNote: 7.3.2

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(cluster_degree_betweenness)
+export(plot_node_degrees)
 export(plot_simplified_edgeplot)
 export(prep_unlabeled_graph)
 import(igraphdata)

R/oncology_network.R

@@ -13,8 +13,6 @@
 #' @source Simulated data based on oncology clinical trial enrollment patterns.
 #' @name oncology_network
 #' @docType data
-#' @examples
-#' library(ig.degree.betweenness)
-#' data(oncology_network)
-#' plot_simplified_edgeplot(oncology_network)
+#' @usage
+#' oncology_network
 NULL

R/plot_node_degrees.R

@@ -0,0 +1,111 @@
+#' Visualize Node Degree Distribution in a Network Graph
+#'
+#' Generates a horizontal bar‐style plot of node degrees for an \code{igraph} network.
+#' For undirected graphs, it shows each node’s total degree.
+#' For directed graphs, it displays in‐degrees (as negative bars) alongside out‐degrees.
+#'
+#' @param graph An \code{igraph} object. Can be either directed or undirected.
+#'
+#' @return A \code{ggplot} object:
+#' \itemize{
+#'   \item \strong{Undirected graphs:} A bar for each node showing its total degree.
+#'   \item \strong{Directed graphs:} Split bars per node with negative values for in‐degree
+#'         (pointing left) and positive values for out‐degree (pointing right).
+#' }
+#'
+#' @details
+#' This function computes:
+#' \describe{
+#'   \item{Total degree}{Number of edges incident on each node (for undirected graphs).}
+#'   \item{In‐degree}{Number of incoming edges per node (for directed graphs).}
+#'   \item{Out‐degree}{Number of outgoing edges per node (for directed graphs).}
+#' }
+#' For directed graphs, in‐degrees are negated so that bars extend leftward,
+#' providing an immediate visual comparison to out‐degrees.
+#'
+#' Internally, it uses:
+#' \itemize{
+#'   \item \code{igraph::degree()} to compute degrees,
+#'   \item \code{dplyr} and \code{tidyr} for reshaping the data,
+#'   \item \code{ggplot2} for plotting.
+#' }
+#'
+#' @section Customization:
+#' You can modify the returned \code{ggplot} with additional layers, themes, or labels.
+#' For example, to add a title or change colors:
+#' \preformatted{
+#' plot_node_degrees(g) +
+#'   ggtitle("Degree Distribution") +
+#'   scale_fill_manual(values = c("in_degree" = "steelblue", "out_degree" = "salmon"))
+#' }
+#' @examples
+#' library(ig.degree.betweenness)
+#' library(igraphdata)
+#' data("karate")
+#' data("oncology_network")
+#' plot_node_degrees(oncology_network)
+#' plot_node_degrees(karate)
+#' @export
+plot_node_degrees <- function(graph){
+  # ensure available
+  graph <- graph
+
+  # total degree
+  all_degree <- tibble::enframe(
+    igraph::degree(graph),
+    name  = "node",
+    value = "degree"
+  )
+
+  if (igraph::is_directed(graph)) {
+    in_degree  <- tibble::enframe(
+      igraph::degree(graph, mode = "in"),
+      name  = "node",
+      value = "in_degree"
+    )
+    out_degree <- tibble::enframe(
+      igraph::degree(graph, mode = "out"),
+      name  = "node",
+      value = "out_degree"
+    )
+
+    df <- dplyr::full_join(in_degree, out_degree, by = "node") |>
+      dplyr::full_join(all_degree,  by = "node") |>
+      dplyr::mutate(in_degree = - .data$in_degree) |>
+      tidyr::pivot_longer(
+        cols      = c("in_degree","out_degree"),
+        names_to  = "name",
+        values_to = "in-degree/out-degree"
+      )
+
+    p <- ggplot2::ggplot(
+      df,
+      ggplot2::aes(
+        y    = stats::reorder(.data$node,   .data$degree),
+        x    = .data$`in-degree/out-degree`,
+        fill = .data$name
+      )
+    ) +
+      ggplot2::geom_col() +
+      ggplot2::theme_minimal() +
+      ggplot2::theme(
+        axis.title.y    = ggplot2::element_blank(),
+        legend.title    = ggplot2::element_blank(),
+        legend.position = "bottom"
+      )
+
+  } else {
+    p <- ggplot2::ggplot(
+      all_degree,
+      ggplot2::aes(
+        y = stats::reorder(.data$node,   .data$degree),
+        x = .data$degree
+      )
+    ) +
+      ggplot2::geom_col() +
+      ggplot2::theme_minimal() +
+      ggplot2::theme(axis.title.y = ggplot2::element_blank())
+  }
+
+  p
+}

R/zzz.R

@@ -0,0 +1 @@
+utils::globalVariables(c(".data"))

cran-comments.md

@@ -1,11 +1,17 @@
 ## R CMD check results
 
-0 errors | 0 warnings | 1 note
+0 errors | 0 warnings | 0 note
+
+## For Version 0.2.0 CRAN submission
+
+* Added the `oncology_network` dataset
+* Created `plot_node_degrees` function
+* Updated dependencies
 
 ## For Version 0.1.1 CRAN submission
 
-* Fix grep issue on subgraph identification.
-* Fix typo in cluster_degree_betweenness
+* Fix `grep` issue on subgraph identification.
+* Fix typo in `cluster_degree_betweenness`
 
 ## For Version 0.1.0 CRAN submission
 

data/oncology_network.rda

@@ -0,0 +1,52 @@
+# Install relevant libraries
+# pkgs <- c("dplyr","tibble","tidyr","tidygraph",
+#           "igraph","ig.degree.betweenness")
+# install.packages(pkgs)
+# Load data
+tuesdata <- tidytuesdayR::tt_load(2024, week = 44)
+monster_movie_genres <- tuesdata$monster_movie_genres
+
+# Prepare data for adjacency matrix
+dummy_matrix <- monster_movie_genres |>
+  dplyr::mutate(value = 1) |>
+  tidyr::pivot_wider(
+    id_cols = tconst,
+    names_from = genres,
+    values_from = value,
+    values_fill = 0
+  ) |>
+  dplyr::select(-tconst) |>
+  as.matrix.data.frame()
+
+# Construct adjacency matrix
+genre_adj_matrix <- t(dummy_matrix) %*% dummy_matrix
+# Setting self loops to zero
+diag(genre_adj_matrix) <- 0
+
+# Construct the graph
+monster_movie_network <- genre_adj_matrix |>
+  as.data.frame() |>
+  tibble::rownames_to_column() |>
+  tidyr::pivot_longer(cols = Comedy:War) |>
+  dplyr::rename(c(from = rowname, to = name)) |>
+  dplyr::rowwise() |>
+  dplyr::mutate(combo = paste0(sort(c(from, to)), collapse = ",")) |>
+  dplyr::arrange(combo) |>
+  dplyr::distinct(combo, .keep_all = TRUE) |>
+  dplyr::select(-combo) |>
+  tidyr::uncount(value) |>
+  tidygraph::as_tbl_graph() |>
+  as.igraph()
+
+# Resize nodes based on node degree
+
+VS <- igraph::degree(monster_movie_network) * 0.1
+
+ig.degree.betweenness::plot_simplified_edgeplot(
+  monster_movie_network,
+  vertex.size = VS,
+  edge.arrow.size = 0.001
+)
+
+
+save(monster_movie_network, file = "monster_movie_network.rda")