[R] saving as TIFF - problem with compression

[Ranjan Maitra]

Hi,

Are you using Linux? If so, you may use ImageMagick and try your luck
using 

convert filename.whatever.format filename.tiff 

There are lots of options in ImageMagick. (Read the manual.)

I have done this in the past, and it has worked. However, your exact
situation may be different, so sorry if this information is not
particularly helpful.

Ranjan

On Fri, 20 Sep 2013 10:55:03 +0000 Anna Zakrisson Braeunlich
<anna.zakrisson at su.se> wrote:

> Hi,
> 
> I am struggling to save my figures as TIFF files (yes, the yournal only accept TIFF and not any other format).
> I can manage to save a simple plot as TIFF at the correct dpi (I need at least 600dpi) and compression works. Only not for my own plot. Everything looks distorted. I have read Stack Overflow and tried to change the point size to 6, but with no apparent effect. Why is this and what would be the solution? The TIFF-stuff is in the end of the script.
> thank you for your time!
> 
> Ndata <- data.frame(
>   Ncellpercent = rnorm(400, mean = rep(c(14, 18, 65), each = 40),
>                sd = rep(c(1, 3, 6), each = 40)),
>   fyear = rep(c('2007', '2008'), each = 100*2),
>   Station = sample(c('B1', 'H2', 'H3', 'H4'), 400, replace = TRUE),
>   Week = sample(c('19', '21', '23', '25'), 400, replace = TRUE))
> 
> Pdata <- data.frame(
>   Ppercentcell = rnorm(400, mean = rep(c(4, 17, 22), each = 40),
>                sd = rep(c(0.1, 0.2, 0.4), each = 40)),
>   fyear = rep(c('2007', '2008'), each = 100*2),
>   Station = sample(c('B1', 'H2', 'H3', 'H4'), 400, replace = TRUE),
>   Week = sample(c('19', '21', '23', '25'), 400, replace = TRUE))
> 
> SummNdata <- ddply(Ndata, .(Week, fyear, Station), summarise,
>                    mean = mean(Ncellpercent),
>                    sd = sd(Ncellpercent))
> names(Pdata)
> SummPdata <- ddply(Pdata, .(Week, fyear, Station), summarise,
>                    mean = mean(Ppercentcell),
>                    sd = sd(Ppercentcell))
> SummPdata
> library(lattice)
> library(latticeExtra)
> library(HH)
> 
> font.settings <- list( font = 1, cex = 1.2, fontfamily = "serif")
> 
> my.theme <- list(
>   par.xlab.text = font.settings,
>   par.ylab.text = font.settings,
>   axis.text = font.settings,
>   par.sub=font.settings)
> 
> plotN <- xyplot(mean ~ Week | Station*fyear,
>                 col="black",
>                 pch=1,
>                 cex=1.1,
>                 lty=1,
>                 strip = strip.custom(bg = 'white', style=1), # why can I not use fontfamily="serif" here ???
>                 key=list(text=list(c(""),
>                                    col=c("black")),
>                          points=list(pch=1, lty=1, cex=1.5,
>                                      col=c("black")),
>                          columns=1, border=F,
>                          x = 0.02, y = 0.55, corner = c(2, 2),
>                          title="", cex.title=1.3),
>                 ylab = ("Nc"),
>                 xlab="Week",
>                 data= SummNdata,type="o",
>                 par.settings = my.theme)
> 
> 
> plotP <- xyplot(mean ~ Week | Station*fyear,
>                 col="black",
>                 pch=2,
>                 cex=1.1,
>                 lty=2,
>                 strip = strip.custom(bg = 'white', style=1),
>                 key=list(text=list(c(""),
>                                    col=c("black")),
>                          points=list(pch=1, lty=1, cex=1.5,
>                                      col=c("black")),
>                          columns=1, border=F,
>                          x = 0.2, y = 0.2, corner = c(2, 2),
>                          title="", cex.title=1.3),
>                 ylab = ("Pc"),
>                 xlab="Week",
>                 data= SummPdata,type="o",
>                 par.settings = my.theme)
> 
> tiff(file="myplot.tiff", bg="white", res=800,
>      width=13.3, height=9.45, units="cm",  pointsize="6",
>      compression = "lzw")
> doubleYScale(plotN, plotP, add.ylab2 = TRUE)
> dev.off()
> 
> 
> this works:
> tiff(file="myplot8.tiff", bg="white", res=800,
>      width=13.3, height=9.45, units="cm",  pointsize="6",
>      compression = "lzw")
> plot(1:100)
> dev.off()
> 
> Anna Zakrisson Braeunlich
> PhD student
> 
> Department of Ecology, Environment and Plant Sciences
> Stockholm University
> Svante Arrheniusv. 21A
> SE-106 91 Stockholm
> Sweden/Sverige
> 
> Lives in Berlin.
> For paper mail:
> Katzbachstr. 21
> D-10965, Berlin - Kreuzberg
> Germany/Deutschland
> 
> E-mail: anna.zakrisson at su.se
> Tel work: +49-(0)3091541281
> Mobile: +49-(0)15777374888
> LinkedIn: http://se.linkedin.com/pub/anna-zakrisson-braeunlich/33/5a2/51b
> 
> ><((((_>`_. . _ `_. ._ `_. . ><((((_>`_. . _ `_. ._ `_. .><((((_>`_. . _ `_. ._ `_. .><((((_>
> 
> 	[[alternative HTML version deleted]]
> 


-- 
Important Notice: This mailbox is ignored: e-mails are set to be
deleted on receipt. Please respond to the mailing list if appropriate.
For those needing to send personal or professional e-mail, please use
appropriate addresses.

____________________________________________________________
FREE 3D EARTH SCREENSAVER - Watch the Earth right on your desktop!