View source: R/netgraph.netimpact.R
netgraph.netimpact | R Documentation |
This function generates a graph of the evidence network.
## S3 method for class 'netimpact'
netgraph(
x,
col.ignore = "red",
number.of.studies = TRUE,
main,
sub,
multiarm = FALSE,
col.multiarm = NULL,
alpha.transparency = 0.5,
col.ignore.multiarm = "transparent",
col = "black",
plastic = FALSE,
...
)
x |
An object of class |
col.ignore |
A character string indicating color for
comparisons removed from network, either |
number.of.studies |
A logical indicating whether number of studies should be added to network graph. |
main |
Main title. |
sub |
Subtitle. |
multiarm |
A logical indicating whether multi-arm studies should be marked in plot. |
col.multiarm |
Either a function from R package colorspace or grDevice to define colors for multi-arm studies or a character vector with colors to highlight multi-arm studies. |
alpha.transparency |
The alpha transparency of colors used to highlight multi-arm studies (0 means transparent and 1 means opaque). |
col.ignore.multiarm |
A character string indicating color to
mark multi-arm studies removed from network, either
|
col |
A single color (or vector of colors) for lines
connecting treatments (edges) if argument |
plastic |
A logical indicating whether the appearance of the comparisons should be in '3D look'. |
... |
Additional arguments passed on to
|
Guido Schwarzer guido.schwarzer@uniklinik-freiburg.de, Gerta Rücker gerta.ruecker@uniklinik-freiburg.de
netimpact
, netgraph.netmeta
data(Franchini2012)
# Only consider first two studies (to reduce runtime of example)
#
studies <- unique(Franchini2012$Study)
p1 <- pairwise(list(Treatment1, Treatment2, Treatment3),
n = list(n1, n2, n3),
mean = list(y1, y2, y3), sd = list(sd1, sd2, sd3),
data = subset(Franchini2012, Study %in% studies[1:2]),
studlab = Study)
net1 <- netmeta(p1)
ni1 <- netimpact(net1, verbose = TRUE)
netgraph(ni1)
netgraph(ni1, plastic = TRUE)
## Not run:
p2 <- pairwise(list(Treatment1, Treatment2, Treatment3),
n = list(n1, n2, n3),
mean = list(y1, y2, y3), sd = list(sd1, sd2, sd3),
data = Franchini2012,
studlab = Study)
net2 <- netmeta(p2)
ni2 <- netimpact(net2, verbose = TRUE)
netgraph(ni2)
netgraph(ni2, plastic = TRUE)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.