<font face="trebuchet ms,sans-serif">Uma sugestão seria<br><br><span style="font-family:courier new,monospace">my.densityplot <- function(x, cols, ...){</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> panel.densityplot(x, ...)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> dx <- density(x)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> breaks <- sort(c(range(dx$x), quantile(x, c(1,3)/4)))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> fx <- approxfun(dx$x, dx$y)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> do.polygon <- function(x){</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> y <- fx(x)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> return(list(x=c(min(x), x, max(x)), y=c(0, y, 0)))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> }</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> seqs <- lapply(1:(length(breaks)-1),</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> function(i){</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> x <- seq(breaks[i], breaks[i+1], l=30)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> do.polygon(x)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> })</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> for(i in 1:length(seqs)){</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> seqs[[i]]$col <- cols[i]</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> }</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> lapply(seqs, function(i) do.call(panel.polygon, i))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> panel.mathdensity(dmath = dnorm, col = "black",</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> args = list(mean=mean(x),sd=sd(x)), lty=3)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">}</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">require(RColorBrewer)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">cols <- brewer.pal(3, "Greens")</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">densityplot(~height|voice.part, data=singer, cols=cols, panel=my.densityplot)</span><br style="font-family:courier new,monospace">
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>
<br><br><div class="gmail_quote">2012/7/5 Samuel Carvalho <span dir="ltr"><<a href="mailto:samukajm@yahoo.com.br" target="_blank">samukajm@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div style="font-size:12pt;font-family:times new roman,new york,times,serif"><div><span>Falae Walmes,</span></div><div><span>Cara é basicamente isso mesmo que queria quando voce gera o ultimo gráfico com as hachuras nos diferentes quantis.</span></div>
<div><span>Mas voce teria alguma dica de como implementar isso dentro da função xyplot? Talvez a saída seja pelo panel.function() e depois pelo panel.histogram()</span></div><div><span>Consegue dar um help?</span></div><div class="im">
<div><span>Valeu<br></span></div><div> </div><div style="FONT-FAMILY:courier,monaco,monospace,sans-serif"><font size="3"><b>====================================</b></font></div><div style="FONT-FAMILY:courier,monaco,monospace,sans-serif">
<font size="3"><b>Samuel P. C. Carvalho<br></b><font color="#000000">Mestre em Ciências Florestais [UFLA]</font></font></div><div style="FONT-FAMILY:courier,monaco,monospace,sans-serif"><font color="#000000">Doutorando em Recursos Florestais [ESALQ/USP]</font></div>
<div style="FONT-FAMILY:courier,monaco,monospace,sans-serif"><font>=============================================</font></div><div><br></div> </div></div></div></blockquote></div><br>