Hi,
I was trying to make a graph using trellis, and my code is:
-----------------------------------------------------------------
library(lattice)
makeGraph <- function(){
trellis.device()
tbg <- trellis.par.get("background")
tbg$col <- "white"
trellis.par.set("background",tbg)
# Test Data
mfr <- matrix(sample(1:100,50,replace=T),ncol=2)
mfr <- cbind(mfr,c(rep(1,12),rep(2,13)))
mfr <-
cbind(mfr,c(rep("All",6),rep("Reduced",6),rep("All",7),rep("Reduced",6)))
colnames(mfr) <- c("PVAL","POSITION","CHR","METHOD")
mfr <- as.data.frame(mfr)
pdf(file='test.pdf')
op <- par(no.readonly=TRUE)
xyplot(as.numeric(as.vector(PVAL)) ~ as.numeric(as.vector(POSITION)) | CHR,
data = mfr, groups = METHOD, ylab = "pval", xlab = "position",
type="p",col=c("green","red")
)
par(op)
dev.off()
}
makeGraph()
_______________________________________________________
However, when I execute the code I don't get the graph. Although a pdf is
generated, it is only 1 KB and when I try to open the pdf a message comes up
that says there are no pages in the pdf. Interestingly, if I take the code
(i.e. from line 'trellis.device()' to line 'dev.off') out of the function call
and execute it, the pdf is generated just fine.
What am I doing wrong?
thanks!
__________________________________________________
[[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.
