data(wright, package = "ISwR")
wright %>%
bland_altman(mini.wright ~ std.wright,
pch = 16,
ylab = "Large-mini expiratory flow rate (l/min)",
xlab = "Mean expiratory flow rate (l/min)"
) %>%
gf_labs(
y = "Large-mini expiratory flow rate (l/min)",
x = "Mean expiratory flow rate (l/min)"
) %>%
gf_theme(theme = sjPlot::theme_sjplot2(base_size = 9))
data(Sharples)
Sharples %>%
bland_altman(srweight ~ weight, transform = TRUE) %>%
gf_labs(x = "Mean of weights (kg)", y = "Measured weight / Self-reported weight") %>%
gf_theme(theme = sjPlot::theme_sjplot2(base_size = 9))
Run the code above in your browser using DataLab