Displaying 2 results from an estimated 2 matches for "ptitl".
Did you mean:
ptit
2011 Jul 08
1
Referencing a vector of data labels in ggplot function
...ond'), each = 8, 2)),
'value' = rep(c(429258, 430645, 431165, 431360, 452284, 467316,
467326, 467330,
375588, 411383, 427179, 364582, 351494, 359034, 374047,
339628),2),
'Facet' = rep(c('bottom','top'), each = 16))
pTitle <- 'Main Title'
plines <- c('Line 1', 'Line 2','Line 3', 'Line 4')
col1 <- c('#ec421e', '#f7bd2e','#ec421e', '#f7bd2e')
#If I use the line below and explicitly place plines, pTitle and col1 in the
appropriate places...
2011 Oct 13
0
xyplot() and confidence interval polygons
...00
data$lci <- data$lci / 1000
data$uci <- data$uci / 1000
my.panel.bands <-
function(x,y,upper,lower,subscripts, ...,font,fontface)
{
upper <- upper[subscripts]
lower <- lower[subscripts]
panel.polygon(c(x, rev(x)), c(upper,
rev(lower)),col=fill,border=FALSE,...)
}
ptitle <- paste("Test Plot\n","Estimate vs Other Sources in Region",sep="")
lp1 <- xyplot(data$ageband ~ data$est | data$areanm,
main=list(label=ptitle,cex=1),
layout=c(2,2),
panel=function(x,y,...){
panel.superpose(x,y,upper=data$uci,low...