forest_SUCRA_plot: Forest-SUCRA plot of net-meta model for MD, HR, and RR

Description Usage Arguments Value Examples

View source: R/forest_SUCRA_plot.R

Description

To give the forest plot with SUCRA of bayesian results from model_gemtc

Usage

 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
)

Arguments

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

Value

ggplot object

Examples

 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
)

meta2020/net.meta documentation built on March 30, 2021, 7:31 p.m.