RR Code
if(!require(ggplot2)){ install.packages("ggplot2", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(grid)){ install.packages("grid", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
# ----------------------------------
p = qplot(Sepal.Width, Sepal.Length, data=iris) + facet_wrap(~Species, ncol=1)
g = ggplotGrob(p)
panels = which(sapply(g[["heights"]], "attr", "unit") == "null")
g[["heights"]][panels] = list(unit(4, "cm"), unit(8, "cm"), unit(2, "cm"))
device.height = convertHeight(sum(g[["heights"]]), "points", valueOnly=TRUE)
png("testr.png", height = device.height)
grid.draw(g)
dev.off()
{img src="temp/cache/r.tiki.org/R_ggplot2test/testr.png"}
RR Code
require(ggplot2)
require(grid)
# ----------------------------------
p = qplot(Sepal.Width, Sepal.Length, data=iris) + facet_wrap(~Species, ncol=1)
g = ggplotGrob(p)
panels = which(sapply(g[["heights"]], "attr", "unit") == "null")
g[["heights"]][panels] = list(unit(4, "cm"), unit(8, "cm"), unit(2, "cm"))
device.height = convertHeight(sum(g[["heights"]]), "in", valueOnly=TRUE)
pdf("testr.pdf", height = device.height)
grid.draw(g)
dev.off()
{mediaplayer fullscreen="true" src="temp/cache/r.tiki.org/R_ggplot2test/testr.pdf" width="100%" height="1000px" style="normal" wmode="transparent"}
Joel's test
RR Code
if(!require(ggplot2)){ install.packages("ggplot2", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(grid)){ install.packages("grid", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
# ----------------------------------
p = qplot(Sepal.Width, Sepal.Length, data=iris) + facet_wrap(~Species, ncol=1)
ggsave(filename="plotjoel.png", plot=p, width=30, height=50, scale=2, units="cm")
{img src="temp/cache/r.tiki.org/R_ggplot2test/plotjoel.png"}