[R] problem with lattice tiff or bitmap: character size and color

[Einar Árnason]

Thank you Professor Brian Ripley for very helpful comments.

Using type="tiff24nc" in bitmap mostly solved my problems. However, some
complicated figures still come out in greyscale with bitmap even when
using type="tiff24nc". The tiff function preserves the color but reduces
the character size as before. The good news is that dev2bitmap from X11
gives the correct figure. The newtest function below demonstrates this
behavior. I do have the latest R for my system
(R-core-2.8.1-8.fc10.x86_64).

Another question, is it possible to use lzw compression other than
type"tifflzw"? (the figures I produced with type="tiff24nc" are about 200
Mb. When opened and saved in photoshop with lzw compression they become
about 2 Mb).

Thank you

Regards
Einar Arnason

> newtest(bitmap=T) # produces greyscale
> newtest(tiff=T) # produces color with tiny characters
> X11()
> newtest()
> dev2bitmap("dev2bitmaptest.tiff", width=17.15, height=17.15, units="cm",
res=1200, pointsize=10, type="tiff24nc",bg="white") # produces required
figure

`newtest` <-
  function(tiff=F, bitmap=F)
  {
### requires states
### states <- data.frame(state.x77, state.name = dimnames(state.x77)[[1]],
state.region = state.region)
    if(bitmap)
      bitmap("bitmaptest.tiff", width=17.15, height=17.15, units="cm",
res=1200, pointsize=10, type="tiff24nc",bg="white")
    if(tiff)
      tiff(file="tifftest.tiff",width=17.15,height=17.15,units="cm",
res=1200, pointsize=10, compression = "lzw")
###      tiff(file="tifftest.tiff",width=17.15,height=17.15,units="cm",
res=72, pointsize=10, compression = "lzw")
    foo <- xyplot(Murder ~ Population | state.region, data = states,
                groups = state.name,
                panel = function(x, y, subscripts, groups)
                ltext(x = x, y = y, label = groups[subscripts], cex=0.5,
                      fontfamily = "HersheySans"))
    plot(foo,position=c(0,0,0.33,1))
    plot(foo,position=c(0.33,0,0.66,1), newpage=FALSE)
    plot(foo,position=c(0.66,0,0.99,1), newpage=FALSE)
    if(bitmap)
      dev.off()
    if(tiff)
      dev.off()
  }





> You needed to update your R (see the posting guide).  From the BUG
> FIXES for 2.8.1 patched:
>
>      o	grid-based plots no longer reset the base text size to the
>  	default 96dpi in cairo-based bitmap devices.
>
> Lattice plots are based on grid, and (probably) you are using the
> cairo-based bitmap device.
>
> On Sun, 5 Apr 2009, Einar Árnason wrote:
>
>> Hi all,
>>
>> I am trying to make tiff files  of lattice plots at a resolution greater
>> than 300 dpi required by a journal (PLoS ONE). I have tried both the
>> tiff
>> and bitmap functions. tiff keeps panel colors but reduces axes and tick
>> labels so they are nearly invisible. bitmap maintains correct label size
>> but only produces greyscale. Regular plots work fine with tiff; the
>> problem is only with lattice plots.
>>
>> How can I keep the right sizes using tiff or, alternatively, how can I
>> get
>> bitmap to produce colors?
>
> Use the correct device type, e.g. tiff24nc (24 bit RGB).  tifflzw is
> black-and-white (see your ghostscript documentation).
>
>> I have made this test function using an xyplot example to demonstrate
>> the
>> problem.
>>
>> `test` <- function(tiff=F, bitmap=F)
>>  {
>> ### requires states
>> ### states <- data.frame(state.x77, state.name =
>> dimnames(state.x77)[[1]],
>> ### state.region = state.region)
>>    if(bitmap)
>>      bitmap("bitmaptest.tiff", width=17.15, height=17.15, units="cm",
>> res=1200, pointsize=10, type="tifflzw",bg="white")
>>    if(tiff)
>>      tiff(file="tifftest.tiff",width=17.15,height=17.15,units="cm",
>> res=1200, pointsize=10, compression = "lzw")
>> ###      tiff(file="tifftest.tiff",width=17.15,height=17.15,units="cm",
>> ###res=72, pointsize=10, compression = "lzw")
>>  plot(xyplot(Murder ~ Population | state.region, data = states,
>>            groups = state.name,
>>            panel = function(x, y, subscripts, groups)
>>            ltext(x = x, y = y, label = groups[subscripts], cex=0.5,
>>                  fontfamily = "HersheySans")))
>>    if(bitmap)
>>      dev.off()
>>    if(tiff)
>>      dev.off()
>> }
>>
>>
>>> R.Version()
>> $platform
>> [1] "x86_64-redhat-linux-gnu"
>>
>> $arch
>> [1] "x86_64"
>>
>> $os
>> [1] "linux-gnu"
>>
>> $system
>> [1] "x86_64, linux-gnu"
>>
>> $status
>> [1] ""
>>
>> $major
>> [1] "2"
>>
>> $minor
>> [1] "8.1"
>>
>> $year
>> [1] "2008"
>>
>> $month
>> [1] "12"
>>
>> $day
>> [1] "22"
>>
>> $`svn rev`
>> [1] "47281"
>>
>> $language
>> [1] "R"
>>
>> $version.string
>> [1] "R version 2.8.1 (2008-12-22)"
>>
>> ______________________________________________
>> R-help at 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.
>>
>
> --
> Brian D. Ripley,                  ripley at stats.ox.ac.uk
> Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
> University of Oxford,             Tel:  +44 1865 272861 (self)
> 1 South Parks Road,                     +44 1865 272866 (PA)
> Oxford OX1 3TG, UK                Fax:  +44 1865 272595