How to standardise the x-axis scale on plots from equivalence tests using TOSTER

rheirene · November 20, 2019, 11:08pm

I am trying to produce a graph for a paper as a part of my job as a researcher, using R. I have four graphs in a grid that plot outcomes using Daniel Laken's TOSTER code for equivalence testing (indpedent samples t-tests). I need to try and put the x-axis for all plots along the same scale. Currently it's on a scale (mean differences between two groups) relative to each outcome, but I want all to graphs to cover a mean difference range of -6 to +6 if possible. How can I achieve this? Link to code I'm using (apologies it's messy, I'm still new to this; also, you may need to run the code twice to produce all 4 plots):

github.com

rheirene/Addiction-Research-Replications/blob/master/Figure 2

#**You may need to run this code twice to plot all graphs in a grid**
#**Plot labels may differ in position between conditions. Adjust the locations using the adj, cex and line options**

if (!require(TOSTER)) {install.packages('TOSTER')}
library(TOSTER)

library(purrr)
library(gridExtra)
library(ggplot2)
library(lattice)
library(cowplot)
library(grid)
require(plotrix)


plot1 <- TOSTtwo(m1 = 2.6, m2 = 4.5, sd1 = 2.5, sd2 = 2.3, n1 = 53, n2 = 48, low_eqbound_d = -0.5, high_eqbound_d = 0.5) #Lintzeris et al. (2002): 8 day self-reported heorin use, intervention (1) vs. control (2)
# A randomized controlled trial of buprenorphine in the management of short‐term ambulatory heroin withdrawal

plot2 <- TOSTtwo(m1 = 1.8, m2 = 1.88, sd1 = 0.84, sd2 = 0.81, n1 = 108, n2 = 103, low_eqbound_d = -0.5, high_eqbound_d = 0.5)#Example data created by Heirene (2019)
#Example

This file has been truncated. show original

pete · November 21, 2019, 2:12pm

There might be an easier way to do this, but looking at the code for TOSTtwo, the plots from TOSTER aren't actual plots you can use. If you do a str(plot1) you'll see there are no plot objects there; you'll need to recreate them yourself. The plotting code in TOSTtwo should give you a good start.

system · December 12, 2019, 2:12pm

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.