Tom,
First of all, please in the future follow the posting guide and
include a reproducible example. Yours is not, because the objects
named "bxpdtrail" and "ResultDir" (and maybe others) are not
available to readers of this list. And you defined a dataframe named
"size2" but then used one named "size". It's also puzzling why you
would include an example in which every line was commented out.
That said, the following example works on my Mac. The png files are
created and can be viewed by Preview.app. You might give it a try.
## note that the column names do not need to be quoted
size <- data.frame(adname=c("_small","","_big","_html"),
width=c(300,400,500,300), height =
c(300,400,500,300), pointsize =
c(10,12,14,10),Directory=c(rep("graph",3),"html"
), cexsize=
c(0.6,0.65,0.7,0.65) )
#
ResultDir <- 'emwout'
x11()
for(rol in 1:4) {
save.at <- file.path(ResultDir,as.character(size[rol,5]))
fname <- file.path(save.at,paste("graf.1",size[rol,1],".png",sep=""))
cat('filename: ',fname,'\n')
## I have no idea what the restoreConsole argument in png() was
supposed to do
## I don't see it documented in ?png. And
help.search('restoreConsole') finds nothing. So I took it out.
png(filename = fname, width= size[rol,2], height = size[rol,3],
pointsize = size[rol,4], bg = "white" )
parset <- par(mfrow = c(2,2), oma = c(0,0,1,0),
cex.axis=size[rol,6], cex=size[rol,6])
plot(1:3,1:3)
plot(3:1,3:1)
plot(5:8,5:8)
plot(8:5,8:5)
par(parset)
dev.off()
}
-Don
p.s.
It also looks like your email was line wrapped to perhaps 80
characters, which makes it hard to read,
and also inconvenient to work with. If you can find a way to avoid
that, it would be good.
At 11:37 AM +0200 9/18/08, Tom Willems wrote:
Dear R users,
I 'm having problems with creating PNG graphic outputs.
Usualy i create reports in HTML format, containing PNG graphics, so they
can ealsaly be exported to word and xl and so on.
On a windows pc that i use at work all works fine, but it never works on
my mac.
The HTML's i create on windows, open under safari but the graphics never
open? is there a way of creating gif's for example?
Then i was wondering whether there is a less codeing intensif way to
create plots?
What i mean is, when i create a plot, existing out of 4 subplots, and i
want to save it as a PNG to incorporate it in to a HTML.output
i need to creat every plot under the PNG declaration.
# png(filname..
# parset <- par(mfrow = c(2,2), oma = c(0,0,1,0),..])
# plot(...
# plot(...
# plot(...
# plot(...
# par(parset)
# dev.off()
Now, because i create graphs for different people, i usualy generate them
in differerent sizes and configurations.
So they just have to choose wich one to use in their text.
There for i am looking for a way of programming that can save time and
space
yet the example below does not work, it only writes tables of data
# plot.1 <- plot(...
# plot.2 <- plot(...
# plot.3 <- plot(...
# plot.4 <- plot(...
#
# png(..
# plot.1
# dev.off()
# ...
# png(filname..
# parset <- par(mfrow = c(2,2), oma = c(0,0,1,0),..])
# plot.1
# plot.2
# plot.3
# plot.4
# par(parset)
# dev.off()
Here is an example of how i create the png files that i use in the HTML
outputs.
# size2 <- data.frame("adname"=c("_small","","_big","_html"),
"width"=c(300,400,500,300), "height" = c(300,400,500,300), "pointsize" =
c(10,12,14,10),"Directory"=c(rep("graph",3),"html" ), "cexsize"=
c(0.6,0.65,0.7,0.65) )
#
# for(rol in 1:4) {
# save_at <-file.path(ResultDir,as.character(size[rol,5]))
# setwd( save_at)
# x11()
# png(filename = paste("graf_1",size[rol,1],".png",sep=""),width =
size[rol,2], height = size[rol,3],pointsize = size[rol,4], bg = "white",
res = NA, restoreConsole = TRUE)
# parset <- par(mfrow = c(2,2), oma =
c(0,0,1,0),cex.axis=size[rol,6],cex=size[rol,6])
# boxplot(bxpdtrail$value,ylab="log10 (x)",
main=paste("Mean",testname,"at",fase,sep=' '))
# points(1 ,mean(bxpdtrail$value,na.rm=T), pch = 19)
# arrows(1 , upper(bxpdtrail$value,na.rm=T) , 1 ,
lower(bxpdtrail$value,na.rm=T), lty=3, code = 3, angle = 45, length = .1)
# pyramid.plot(pyramiddata$yes,pyramiddata$no,main="Observation of
Protection",labels=pyramiddata$L1,labelcex=size[rol,6], top.labels =
c("Protected", "log10(x)", "Unprotected"),xycol=xycol,xxcol=xxcol,gap=8
,unit = "# animals")
# barplot(pyramiddata$prob_dens,names=pyramiddata$L1,ylab="EPP %",
xlab="log10(x) ",main="Probability density plot")
# plot(pyramiddata$L1,pyramiddata$prob_cum, ylab="EPP %", xlab="log10(x)
",main="Cumulative Probability plot", type="S")
# par(parset)
# dev.off()
# }
kind regards,
Tom.
Disclaimer: click here
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
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.
--
--------------------------------------
Don MacQueen
Environmental Protection Department
Lawrence Livermore National Laboratory
Livermore, CA, USA
925-423-1062
______________________________________________
R-help@r-project.org mailing list
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.
