From 83b622790073c7ea050c7b5e70cbdf643c8f156f Mon Sep 17 00:00:00 2001 From: Andrey Koval Date: Wed, 1 Mar 2017 07:51:14 -0500 Subject: [PATCH] #167 adjusted the title of forestplot --- reports/correlation-3/support-functions.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/reports/correlation-3/support-functions.R b/reports/correlation-3/support-functions.R index 7c8d0ed2..e54da794 100644 --- a/reports/correlation-3/support-functions.R +++ b/reports/correlation-3/support-functions.R @@ -465,7 +465,9 @@ print_forest_plot <- function( "lower"= c(NA,NA,d$lower,NA, forest_summary["lower"]), "upper"= c(NA,NA,d$upper,NA, forest_summary["upper"]) ) - gender_name <- ifelse(subgroup_=="male","MEN","WOMEN") + gender_name <- ifelse(subgroup_=="male","MEN","WOMEN") + # title_dynamic <- paste0(toupper(index)," correlations in ",toupper(domain_)," domain among ",gender_name,"S") + title_dynamic <- paste0(toupper(domain_),": correlations between ",toupper(index),"S for ",gender_name) g <- forestplot::forestplot( d_text, d_value, @@ -493,7 +495,7 @@ print_forest_plot <- function( # hrzl_lines = list("3" = gpar(lty=1)), hrzl_lines = gpar(col="#444444"), graph.pos = 5, - title = paste0(toupper(index)," correlations in ",toupper(domain_)," domain among ",gender_name,"S") + title = title_dynamic # title = paste0("Slope correlations among ",toupper(subgroup_),"S") ) return(g)