Displaying 3 results from an estimated 3 matches for "plotsiz".
Did you mean:
plotsize
2015 Jul 04
0
Support for transparency in metafile export & support for export to Powerpoint
...T"|type=="PPTX") {ext=".pptx";type="PPT"} else {ext=".docx";type="DOC"}
require(ReporteRs)
captureplot = function() {p = invisible(recordPlot())
dev.copy()
return(p)}
p = captureplot()
plotsize = dev.size()
plotaspectr = plotsize[[1]]/plotsize[[2]]
if (!is.null(aspectr)) plotaspectr=aspectr
myplot=function(pl=p) print(pl)
if (type=="PPT") {doc = pptx();doc = addSlide(doc, slide.layout = "Blank");pagesize = dim(doc)$slide.dim} else {doc = docx();pagesize = dim(...
2005 Sep 19
1
distance to eye in persp()
...is from the eye/
camera?
Take the following line:
lines (trans3d(x, y=10, z= 6 + sin(x), pm = res), col = 3)
Is there a function like trans3d() that returns a vector of distances
from
the x,y,z point to the camera? I want this so I can plot clouds of
points
with the further ones in smaller plotsizes, and perhaps even fading
to white
(as though viewed through fog).
--
Robin Hankin
Uncertainty Analyst
National Oceanography Centre, Southampton
European Way, Southampton SO14 3ZH, UK
tel 023-8059-7743
2009 Jan 02
1
How to capture multiple graph pages to .png ?
...,sep=""))
print("(To display instead, do not pass any 'plotFileName' argument to
cro.zone.plot function.)")
maxLayout <- c(0,length(unique(miniDataSet$splitCol)))
png(filename =
paste(as.character(plotFileName),".png",sep=""),width=(1.2*plotSize*(maxLayout[2]^(1/3))),
height=(plotSize*(maxLayout[2]^(1/3))))
} else {
devAskNewPage(ask = TRUE)
maxLayout <- c(0,min(16,length(unique(miniDataSet$splitCol))))
}
levelplot(dataCol ~ siteX * siteY | splitCol,data = miniDataSet,
col.regions=rainbow(n=length(unique(miniData...