Description Usage Arguments Value Examples
View source: R/forest_SUCRA_plot.R
To give the forest plot with SUCRA of bayesian results from model_gemtc
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | forest_SUCRA_plot(
bmt,
sucra,
x.lab,
x1,
x2,
digits,
point.size = 4,
point.shape = 23,
title.size,
table.text.size,
sucra.text.size,
labels = NULL,
font.family = "Helvetica",
plot.scale = 0.9
)
|
bmt |
bayesian net-meta result from model_gemtc |
sucra |
SUCRA values |
x.lab |
label in the x-axis |
x1 |
the left xlim |
x2 |
the right xlim |
digits |
digits of the results |
point.size |
point size |
point.shape |
point shape see: http://www.sthda.com/english/wiki/ggplot2-point-shapes |
title.size |
title font size |
table.text.size |
table text size |
sucra.text.size |
sucra text size |
labels |
label od the whole plot |
font.family |
"Helvetica" or "Times New Roman" |
plot.scale |
the scaled size of the whole plot |
ggplot object
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | LDT1 <- read.csv(system.file("extdata", "HR_SH_D.csv", package = "net.meta"))
trt1 <- read.table(system.file("extdata", "HR_SH_D.txt", package = "net.meta"),
header=TRUE,quote = '"', stringsAsFactors=FALSE)
trt1$description <- factor(trt1$description, trt1$description)
LDT1$study <- factor(LDT1$study, unique(LDT1$study))
bmt1 <- model_gemtc(
long.data=LDT1,
id.treatments=trt1,
reference="A",
outcome="HR",
mtc.n.adapt = 500, mtc.n.iter = 1000, mtc.thin = 20)
sucra<-SUCRA(bmt1)
forest_SUCRA_plot(
bmt=bmt1,
sucra=sucra,
x.lab="X caption",
x1=0,
x2=40,
digits = 2,
title.size =12,
table.text.size=4,
sucra.text.size=4,
labels="Title",
font.family = "Helvetica",
plot.scale=0.9
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.