Displaying 1 result from an estimated 1 matches for "fig03_profiltot".
2013 May 03
1
print multiple plots to jpeg, one lattice and one ggplot2
...in each group
library(plyr)
ds <- ddply(df, .(gp), summarise, mean = mean(y), sd = sd(y))
two <- ggplot(df, aes(x = gp, y = y)) +
geom_point() +
geom_point(data = ds, aes(y = mean),
colour = 'red', size = 3)
# 1. not working
jpeg(file=paste(pathgraph,'/fig03_profiltot','.png',sep=''),width = 600,
height = 400, units="px", res=100)
print(one, position=c(0,0,0.5,1), more=TRUE)
print(two, position=c(0.5,0,1,1), )
dev.off()
# 2 not working
jpeg(file=paste(pathgraph,'/fig03_profiltot','.png',sep=''),widt...