Is there any way to left align titles automatically in plot_grid?? Currently
using this code which centre aligns the whole plot title
thanks!
library(ggplot2)
library(cowplot)
data <-
read.csv("http://www.lecturematerials.co.uk/data/times_tables.csv",header=T)
gg1<-ggplot(data,aes(x=multiplier,y=factor)) +
geom_point(aes(colour=incorrect), size=8, shape=15) +
scale_colour_distiller(palette = "Spectral", direction=-1, guide="colourbar",
name="Incorrect (%)") +
scale_x_continuous(name="Multiplier", limits=c(1, 12), breaks=seq(2,12,by=2))
+
scale_y_continuous(name="Factor", limits=c(1, 12), breaks=seq(2,12,by=2)) +
geom_abline(intercept = 0, slope = 1, size=1) +
coord_fixed()
gg2<-ggplot(data,aes(x=multiplier,y=factor)) +
geom_point(aes(colour=incorrect), size=8, shape=15) +
scale_colour_distiller(palette = "Spectral", direction=-1, guide="colourbar",
name="Incorrect (%)") +
scale_x_continuous(name="Multiplier", limits=c(1, 12), breaks=seq(2,12,by=2))
+
scale_y_continuous(name="Factor", limits=c(1, 12), breaks=seq(2,12,by=2)) +
geom_abline(intercept = 0, slope = 1, size=1) +
coord_fixed()
p<-plot_grid(gg1,gg2,labels=c("A", "B"), nrow = 2)
title <- ggdraw() + draw_label("A Title", fontface='bold')
plot_grid(title, p, ncol=1, rel_heights=c(0.1, 1), align=c("h")) # rel_heights
values control title margins
---
Mike Smith
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
