1
0

add the variable we are presenting to axis labels.

This commit is contained in:
2023-03-07 13:43:37 -08:00
parent 23672eecb4
commit 568bf45cd3

View File

@@ -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'),