Dear All,
I am trying to plot several things in a multiplot using par(mfrow...) AND add a
pre-existing png file to that plot.
I have found 2 options of doing this in the web:
writePNG() and another fix using rasterImage().
writePNG(): the option using writePNG() does not add the " pre-existing png"
to my mutliplot.
I use a code similar to this:
img<-read("myotherpng.png")
png(file="mydata.png")
par(mfrow=c(1,3))
plot(mydata)
boxplot(mydata)
writePNG(img, target="mydata.png")
Any ideas why this does notwork?
rasterImage(): this is a bit more tricky, but works partly:
the code comes from the rforge
(https://www.rforge.net/doc/packages/png/readPNG.html)
and writes the png (see detailed code at the end of email), but is basically:
img<-read("myotherpng.png")
png(file="mydata.png")
par(mfrow=c(1,3))
plot(mydata)
boxplot(mydata)
rforgecode using rasterImage() to print img
If I use this code like below, I do get the" pre-existing png" plotted in my
multiplot, but with very wrong dimensions.
rasterImage(image, xleft, ybottom, xright, ytop)
I have no idea how to get the xleft, ybottom,xright and ytop values that match
the file I import and allow plotting it fitting into the space allocated by
mfrow (meaning that the plot, boxplot and image do not overlap.)
Any ideas?
Thanks for any help about the topic.
Best regards
Gudrun
img<-read("myotherpng.png")
png(file="mydata.png")
par(mfrow=c(1,3))
plot(mydata)
boxplot(mydata)
if (exists("rasterImage")) { # can plot only in R 2.11.0 and higher
plot(1:2, type='n')
if (names(dev.cur()) == "windows") {
# windows device doesn't support semi-transparency so we'll need
# to flatten the image
transparent <- img[,,4] == 0
img <- as.raster(img[,,1:3])
img[transparent] <- NA
# interpolate must be FALSE on Windows, otherwise R will
# try to interpolate transparency and fail
rasterImage(img, 1.2, 1.27, 1.8, 1.73, interpolate=FALSE)
} else {
# any reasonable device will be fine using alpha
rasterImage(img, 1.2, 1.27, 1.8, 1.73)
}
}
Gudrun Gygli, MSc
PhD candidate
Wageningen University
Laboratory of Biochemistry
Dreijenlaan 3
6703 HA Wageningen
The Netherlands
Phone 31 317483387
e-mail: gudrun.gy...@wur.nl
- - - - - - - - - - - - - - - - - -
Project information:
http://www.wageningenur.nl/en/show/Bioinformatics-structural-biology-and-molecular-modeling-of-Vanillyl-Alcohol-Oxidases-VAOs.htm
______________________________________________
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.
