R/layouts.R

Defines functions layout_igraph_fixed_coords layout_igraph_centrality_group layout_igraph_focus_group layout_igraph_umap layout_igraph_multilevel layout_igraph_constrained_stress layout_igraph_sparse_stress layout_igraph_pmds layout_igraph_eigen layout_igraph_backbone layout_igraph_centrality layout_igraph_focus layout_igraph_stress

Documented in layout_igraph_backbone layout_igraph_centrality layout_igraph_centrality_group layout_igraph_constrained_stress layout_igraph_eigen layout_igraph_fixed_coords layout_igraph_focus layout_igraph_focus_group layout_igraph_multilevel layout_igraph_pmds layout_igraph_sparse_stress layout_igraph_stress layout_igraph_umap

#' @rdname layout_stress
#' @param circular not used
#' @export
layout_igraph_stress <- function(g, weights = NA, iter = 500, tol = 0.0001, mds = TRUE, bbox = 30, circular) {
    xy <- layout_with_stress(g, weights, iter, tol, mds, bbox)

    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_focus
#' @param circular not used
#' @export
layout_igraph_focus <- function(g, v, weights = NA, iter = 500, tol = 0.0001, circular) {
    xy <- layout_with_focus(g, v, weights, iter, tol)$xy
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_centrality
#' @param circular not used
#' @export
layout_igraph_centrality <- function(g, cent, scale = TRUE, iter = 500, tol = 0.0001, tseq = seq(0, 1, 0.2), circular) {
    xy <- layout_with_centrality(g, cent, scale, iter, tol, tseq)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_backbone
#' @param circular not used
#' @export
layout_igraph_backbone <- function(g, keep = 0.2, backbone = TRUE, circular) {
    xy <- layout_as_backbone(g, keep, backbone)$xy
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_spectral
#' @param circular not used
#' @export
layout_igraph_eigen <- function(g, type = "laplacian", ev = "smallest", circular) {
    xy <- layout_with_eigen(g, type, ev)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_pmds
#' @param circular not used
#' @export
layout_igraph_pmds <- function(g, pivots, weights = NA, D = NULL, circular) {
    xy <- layout_with_pmds(g, pivots, weights)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_sparse_stress
#' @param circular not used
#' @export
layout_igraph_sparse_stress <- function(g, pivots, weights = NA, iter = 500, circular) {
    xy <- layout_with_sparse_stress(g, pivots, weights, iter)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_constrained_stress
#' @param circular not used
#' @export
layout_igraph_constrained_stress <- function(g, coord, fixdim = "x", weights = NA,
                                             iter = 500, tol = 0.0001, mds = TRUE, bbox = 30, circular) {
    xy <- layout_with_constrained_stress(g, coord, fixdim, weights, iter, tol, mds, bbox)

    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_multilevel
#' @param circular not used
#' @export
layout_igraph_multilevel <- function(g, type = "all", FUN1, FUN2,
                                     params1 = NULL, params2 = NULL,
                                     ignore_iso = TRUE, alpha = 35, beta = 45, circular) {
    xy <- layout_as_multilevel(g, type, FUN1, FUN2, params1, params2, ignore_iso, alpha, beta)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_umap
#' @param circular not used
#' @export
layout_igraph_umap <- function(g, circular, ...) {
    xy <- layout_with_umap(g, ...)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_focus_group
#' @param circular not used
#' @export
layout_igraph_focus_group <- function(g, v, group, shrink = 10, weights = NA, iter = 500, tol = 0.0001, circular) {
    xy <- layout_with_focus_group(g, v, group, shrink, weights, iter, tol)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}

#' @rdname layout_centrality_group
#' @param circular not used
#' @export
layout_igraph_centrality_group <- function(g, cent, group, shrink = 10, circular, ...) {
    xy <- layout_with_centrality_group(g, cent, group, shrink, ...)
    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}


#' @rdname layout_fixed_coords
#' @param circular not used
#' @export
layout_igraph_fixed_coords <- function(g, coords, weights = NA,
                                       iter = 500, tol = 0.0001, mds = TRUE, bbox = 30, circular) {
    xy <- layout_with_fixed_coords(g, coords, weights, iter, tol, mds, bbox)

    nodes <- data.frame(x = xy[, 1], y = xy[, 2])
    nodes$circular <- FALSE
    extraData <- as.data.frame(igraph::vertex_attr(g))
    nodes <- cbind(nodes, extraData[, !names(extraData) %in% names(nodes), drop = FALSE])
    nodes
}
schochastics/smglr documentation built on March 13, 2024, 4:14 a.m.