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.

Reply via email to