Displaying 4 results from an estimated 4 matches for "plottitle".
2012 Apr 23
2
automating a script to read a file
...scale, skewshape) {
xmod <- (x - skewlocation) / skewscale
return( 2 * pdf(xmod) * (cdf(xmod * skewshape)))
}
#### Plotting Function ################
plot.spdf <- function(xmin, xmax, skewlocation, skewscale, skewshape,
skewmax, skewtitle) {
if(missing(skewtitle)) {
plottitle <- "Skewed Probability Density Function"
} else {
plottitle <- skewtitle
}
skip <- (xmax - xmin) / 100.0
xArray <- numeric(100)
yArray <- numeric(100)
for (i in 1:100){
x <- xmin + i * skip
y <- (spdf...
2010 Jul 07
0
subscripts for panel.superpose in lattice
...s, but I cannot figure
out how to make xyplot plug subscripts to a panel... call. Could you
have a look? It would be greatly appreciated.
Thank you,
Laszlo
scatter_contrast <- function(depvar,bins,cutvar,cutvarname = NULL,
yvarlab = NULL,xvarlab =
NULL,nbins=20,maxbins=100,yrange=c(0,99999),plottitle=NULL,legendtitle=NULL)
{
library('lattice')
library('grid')
trellis.par.set(
plot.symbol = list(cex = 1.5,col=rgb(26,71,111,max=255)),
superpose.symbol = list(cex = rep(1,
times=7),pch=c(15:21),col=c(rgb(26,71,111,max=255),
rgb(144,53,59,max=255),rgb(85,117,47,max=255),&...
2008 Jul 08
0
Multiple Plots and y Axis Labels
...plot(fire*100, xlim=xl, axes=F, col="red");
axis(2, las=1); axis(1, labels=F); box();
abline(v=1996:2008, lty=3)
mtext("Fire", side=2, line=line1, cex=mtex);
mtext(expression(paste("% Area Burned ",month^{-1})), side=2, line=line2,
cex=mtex);
par(op)
mtext(plottitle, line=3, font=2, cex=1.5)
--
View this message in context: http://www.nabble.com/Multiple-Plots-and-y-Axis-Labels-tp18337207p18337207.html
Sent from the R help mailing list archive at Nabble.com.
2009 Jan 02
1
How to capture multiple graph pages to .png ?
...ow(n=length(unique(miniDataSet$dataCol))+5,start=0.5,end=0.95),
layout = maxLayout,
shrink = c(0.6,1.1),at =
keyCols,xlab=list(label=xlab,cex=labelScale),
ylab=list(label=ylab,cex=labelScale),scales =
list(cex=axisScale),
main=list(label=paste(dataCol,plotTitle,splitCol),
cex=titleScale),colorkey=list(labels=list(cex=labelScale)))
if(!is.na(plotFileName)) dev.off()
If I keep the code exactly as is, it will not work. If I remove *just the
last line*, the function will work, and then I simply have to manually
remove the device "by ha...