diff --git a/resources/functions.R b/resources/functions.R index 434d1ca..974797f 100644 --- a/resources/functions.R +++ b/resources/functions.R @@ -12,7 +12,7 @@ plot.simulation <- function(plot.df, iv='x', levels=c("true","naive", "amelia.fu p <- p + facet_grid(as.formula(paste(facet_lhs,'~',facet_rhs)),as.table=F) - p <- p + scale_x_discrete(labels=label_wrap_gen(14)) + ylab("Estimate") + xlab("Method") + coord_flip() + p <- p + scale_x_discrete(labels=label_wrap_gen(14)) + ylab(paste0("Estimate of ", toupper(iv))) + xlab("Method") + coord_flip() p <- arrangeGrob(p, top=grid.text("No. classifications",x=0.32,just='right'),