bias_direction_example.R

devtools::install_github("mcguinlu/robvis")
devtools::install_github("mcguinlu/triangulate")
library(dplyr)

# View the example dataset included in the robvis package
# This is what I am guessing your data from the assessments should look like
View(robvis::data_bias_direction)

# Notes on column names:
# d*j = judgement for domain *
# d*t = type for domain *. Can be 'Add' (additive) or 'Prop' (proportional)
# d*d = direction of bias. In the raw dataset, this is one of "Towards null", Away from null, Favours comparator, Favours intervention, Unpredictable
# Note that when the judgement fora given domain in a given study is low, the type and direction of bias for that domain are set to None

# Use {triangulate} helper functions to convert from relative to absolute
# directions of bias

dat <- robvis::data_bias_direction %>%
  triangulate::tri_to_long() %>%
  triangulate::tri_absolute_direction() %>%
  triangulate::tri_to_wide()

# Alternatively, use the helper function to run all three tri_* functions above
# in a single line

dat <- robvis::data_bias_direction %>%  
  triangulate::tri_absolute_direction_quick()

# Create bias direction plot (not you need to set either vi or sei)
dat %>%
  robvis:::rob_direction(vi = dat$vi)

# The plotting function should also be able to deal with fewer study types, e.g.  
dat %>%
  dplyr::filter(type %in% c("NRSE","NRSI")) %>%
  robvis:::rob_direction(vi = .$vi)