Plot network heatmap

Usage

plot_network_heatmap(
  network_table,
  regulators = NULL,
  targets = NULL,
  switch_matrix = TRUE,
  show_names = FALSE,
  heatmap_size_lock = TRUE,
  heatmap_size = 5,
  heatmap_height = NULL,
  heatmap_width = NULL,
  heatmap_title = NULL,
  heatmap_color = c("#1966ad", "white", "#bb141a"),
  border_color = "gray",
  rect_color = NA,
  anno_width = 1,
  anno_height = 1,
  row_anno_type = c("boxplot", "barplot", "histogram", "density", "lines", "points",
    "horizon"),
  column_anno_type = c("boxplot", "barplot", "histogram", "density", "lines", "points"),
  legend_name = "Weight",
  row_title = "Regulators"
)

Arguments

network_table: The weight data table of network.
regulators: Regulators list.
targets: Targets list.
switch_matrix: Whether to weight data table to matrix. Default is TRUE.
show_names: Whether to show names of row and column. Default is FALSE.
heatmap_size_lock: Lock the size of heatmap.
heatmap_size: The size of heatmap. Default is 5.
heatmap_height: The height of heatmap.
heatmap_width: The width of heatmap.
heatmap_title: The title of heatmap.
heatmap_color: Colors of heatmap.
border_color: Default is "gray". Color of heatmap border.
rect_color: Default is NA. Color of heatmap rect.
anno_width: Width of annotation.
anno_height: Height of annotation.
row_anno_type: Default is "boxplot", could add a annotation plot to row. choose one of "boxplot", "barplot", "histogram", "density", "lines", "points", and "horizon".
column_anno_type: Default is "boxplot", could add a annotation plot to column. choose one of "boxplot", "barplot", "histogram", "density", "lines", and "points".
legend_name: The name of legend.
row_title: The title of row.

Value

A heatmap

Examples

data(example_matrix)
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ℹ [2025-10-16 02:36:53] Running for <dense matrix>.
#> ◌ [2025-10-16 02:36:53] Checking input parameters...
#> ℹ [2025-10-16 02:36:53] Using `L0` sparse regression model
#> ℹ [2025-10-16 02:36:53] Using 1 core
#> ℹ [2025-10-16 02:36:53] Building results
#> ✔ [2025-10-16 02:36:53] Run done.

p1 <- plot_network_heatmap(
  example_ground_truth[, 1:3],
  heatmap_title = "Ground truth",
  legend_name = "Ground truth"
)
p2 <- plot_network_heatmap(
  network_table,
  heatmap_title = "inferCSN",
  legend_name = "inferCSN"
)
ComplexHeatmap::draw(p1 + p2)

if (FALSE) { # \dontrun{
p3 <- plot_network_heatmap(
  network_table,
  legend_name = "Weight1",
  heatmap_color = c("#20a485", "#410054", "#fee81f")
)
p4 <- plot_network_heatmap(
  network_table,
  legend_name = "Weight2",
  heatmap_color = c("#20a485", "white", "#fee81f")
)
ComplexHeatmap::draw(p3 + p4)
} # }

plot_network_heatmap(
  network_table,
  show_names = TRUE,
  rect_color = "gray90",
  row_anno_type = "density",
  column_anno_type = "barplot"
)


plot_network_heatmap(
  network_table,
  regulators = c("g1", "g3", "g5"),
  targets = c("g3", "g6", "g9"),
  show_names = TRUE
)

if (FALSE) { # \dontrun{
plot_network_heatmap(
  network_table,
  regulators = c("g1", "g2"),
  show_names = TRUE
)

plot_network_heatmap(
  network_table,
  targets = c("g1", "g2"),
  row_anno_type = "boxplot",
  column_anno_type = "histogram",
  show_names = TRUE
)
} # }