The method as.igraph() converts nma_data objects into the form used by
the igraph package. The method as_tbl_graph() converts nma_data objects
into the form used by the ggraph and
tidygraph packages.
Usage
# S3 method for nma_data
as.igraph(x, ..., collapse = TRUE)
# S3 method for nma_data
as_tbl_graph(x, ...)Arguments
- x
An nma_data object to convert
- ...
Additional arguments
- collapse
Logical, collapse edges over studies? Default
TRUE, only one edge is produced for each comparison (by IPD or AgD study type) with a.nstudyattribute giving the number of studies making that comparison. IfFALSE, repeated edges are added for each study making the comparison.
Examples
# Set up network of smoking cessation data
head(smoking)
#> studyn trtn trtc r n
#> 1 1 1 No intervention 9 140
#> 2 1 3 Individual counselling 23 140
#> 3 1 4 Group counselling 10 138
#> 4 2 2 Self-help 11 78
#> 5 2 3 Individual counselling 12 85
#> 6 2 4 Group counselling 29 170
smk_net <- set_agd_arm(smoking,
study = studyn,
trt = trtc,
r = r,
n = n,
trt_ref = "No intervention")
# Print details
smk_net
#> A network with 24 AgD studies (arm-based).
#>
#> ------------------------------------------------------- AgD studies (arm-based) ----
#> Study Treatment arms
#> 1 3: No intervention | Group counselling | Individual counselling
#> 2 3: Group counselling | Individual counselling | Self-help
#> 3 2: No intervention | Individual counselling
#> 4 2: No intervention | Individual counselling
#> 5 2: No intervention | Individual counselling
#> 6 2: No intervention | Individual counselling
#> 7 2: No intervention | Individual counselling
#> 8 2: No intervention | Individual counselling
#> 9 2: No intervention | Individual counselling
#> 10 2: No intervention | Self-help
#> ... plus 14 more studies
#>
#> Outcome type: count
#> ------------------------------------------------------------------------------------
#> Total number of treatments: 4
#> Total number of studies: 24
#> Reference treatment is: No intervention
#> Network is connected
# Convert to igraph object
igraph::as.igraph(smk_net) # Edges combined by default
#> IGRAPH 50d796e UN-- 4 6 --
#> + attr: name (v/c), .sample_size (v/n), .nstudy (e/n), .type (e/c)
#> + edges from 50d796e (vertex names):
#> [1] No intervention --Group counselling
#> [2] No intervention --Individual counselling
#> [3] Group counselling --Individual counselling
#> [4] No intervention --Self-help
#> [5] Group counselling --Self-help
#> [6] Individual counselling--Self-help
igraph::as.igraph(smk_net, collapse = FALSE) # Without combining edges
#> IGRAPH 1d114da UN-- 4 28 --
#> + attr: name (v/c), .sample_size (v/n), .study (e/c), .type (e/c)
#> + edges from 1d114da (vertex names):
#> [1] No intervention --Group counselling
#> [2] No intervention --Individual counselling
#> [3] Group counselling --Individual counselling
#> [4] Group counselling --Individual counselling
#> [5] Group counselling --Self-help
#> [6] Individual counselling--Self-help
#> [7] No intervention --Individual counselling
#> [8] No intervention --Individual counselling
#> + ... omitted several edges
# Convert to tbl_graph object
tidygraph::as_tbl_graph(smk_net) # Edges combined by default
#> # A tbl_graph: 4 nodes and 6 edges
#> #
#> # An undirected simple graph with 1 component
#> #
#> # Node Data: 4 × 2 (active)
#> name .sample_size
#> <chr> <dbl>
#> 1 No intervention 7231
#> 2 Group counselling 555
#> 3 Individual counselling 7383
#> 4 Self-help 1571
#> #
#> # Edge Data: 6 × 4
#> from to .nstudy .type
#> <int> <int> <int> <chr>
#> 1 1 2 2 AgD
#> 2 1 3 15 AgD
#> 3 2 3 4 AgD
#> # ℹ 3 more rows
tidygraph::as_tbl_graph(smk_net, collapse = FALSE) # Without combining edges
#> # A tbl_graph: 4 nodes and 28 edges
#> #
#> # An undirected multigraph with 1 component
#> #
#> # Node Data: 4 × 2 (active)
#> name .sample_size
#> <chr> <dbl>
#> 1 No intervention 7231
#> 2 Group counselling 555
#> 3 Individual counselling 7383
#> 4 Self-help 1571
#> #
#> # Edge Data: 28 × 4
#> from to .study .type
#> <int> <int> <chr> <chr>
#> 1 1 2 1 AgD
#> 2 1 3 1 AgD
#> 3 2 3 1 AgD
#> # ℹ 25 more rows