<div dir="ltr">Wagner, ai' vai um exemplo do que eu faria... abraco, b<div><br><div style><br></div><div style><div>myboxplot <- function(x, ..., range=1.5, width=NULL, varwidth=FALSE,</div><div> notch=FALSE, outline=TRUE, names, plot=TRUE, border=par("fg"),</div>
<div> col=NULL, log="", pars=list(boxwex=0.8, staplewex =0.5, outwex=0.5),</div><div> horizontal=FALSE, add=FALSE, at=NULL){</div><div><br></div><div> out <- boxplot.default(x, ..., range=range, width=width,</div>
<div> varwidth=varwidth, notch=notch,</div><div> outline=outline, names=names, plot=plot,</div><div> border=border, col=col, log=log, pars=pars,</div>
<div> horizontal=horizontal, add=add, at=at)</div><div> args <- list(x, ...)</div><div> namedargs <- if (!is.null(attributes(args)$names)) attributes(args)$names != "" else rep_len(FALSE, length(args))</div>
<div> groups <- if (is.list(x)) x else args[!namedargs]</div><div> rgs <- sapply(groups, range)</div><div> p <- .2</div><div> lims <- args$ylim</div><div> size <- diff(lims)*p</div><div> if (horizontal){</div>
<div> allLeft <- rgs[2,] < lims[1]</div><div> if (any(allLeft)){</div><div> idx <- which(allLeft)</div><div> lapply(idx, function(i) arrows(lims[1]*(1-p), i, x1=lims[1]))</div>
<div> }</div><div> allRight <- rgs[1,] > lims[2]</div><div> if (any(allRight)){</div><div> idx <- which(allRight)</div><div> lapply(idx, function(i) arrows(lims[2]*(1-p), i, x1=lims[2]))</div>
<div> }</div><div> }else{</div><div> ## allLeft -> allBottom</div><div> allLeft <- rgs[2,] < lims[1]</div><div> if (any(allLeft)){</div><div> idx <- which(allLeft)</div>
<div> lapply(idx, function(i) arrows(y0=lims[1]*(1-p), x0=i, y1=lims[1]))</div><div> }</div><div> ## allRight -> allTop</div><div> allRight <- rgs[1,] > lims[2]</div><div> if (any(allRight)){</div>
<div> idx <- which(allRight)</div><div> lapply(idx, function(i) arrows(y0=lims[2]*(1-p), x0=i, y1=lims[2]))</div><div> }</div><div> }</div><div> invisible(out)</div><div>}</div><div>
<br>
</div><div>myboxplot(c(1,2,2.6),c(4,5,6),c(-1.5,-3.5,-5),c(1.5,2.5,3.5),c(-2.1,0.2,1),ylim=c(-3,3),horizontal=T)<br></div><div>myboxplot(c(1,2,2.6),c(4,5,6),c(-1.5,-3.5,-5),c(1.5,2.5,3.5),c(-2.1,0.2,1),ylim=c(-3,3))<br></div>
<div><br></div><div><br></div></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 16 de maio de 2013 20:23, Daniel Marcelino <span dir="ltr"><<a href="mailto:dmarcelino@live.com" target="_blank">dmarcelino@live.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Wagner, pensei que uma solução seria você desenhar uma seta na posição do box. Tudo o que você precisa saber são as coordenadas da figura.<div>
<br></div><div>boxplot(c(1,2,2.6),c(4,5,6),c(-1.5,-3.5,-5),c(1.5,2.5,3.5),c(-2.1,0.2,1),ylim=c(-3,3),horizontal=T);<br>
</div><div>polygon(c(0,1,1,3.4,1,1,0), c(1,1,0,2,4,3,3), col="black")<br></div><div><br></div><div>Você também pode usar a funcão arrow para incluir uma seta.</div><div><br></div><div>Daniel</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/5/16 Wagner Arbex <span dir="ltr"><<a href="mailto:wagner.arbex@embrapa.br" target="_blank">wagner.arbex@embrapa.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div><div style="font-size:12pt;font-family:arial,helvetica,sans-serif"><div style="font-size:12pt;font-family:arial,helvetica,sans-serif"><div style="font-size:12pt">Olá, meus caros, boa tarde;</div><div style="font-size:12pt">
<br></div><div style="font-size:12pt">Por favor, gostaria de saber se algum colega poderia me ajudar a resolver o prob a seguir e que não me parece muito difícil, mas não achei uma solução. O exemplo mínimo a seguir mostra cinco conjuntos de dados para desenho de gráficos boxplot no intervalo [-3,3] (essa é a restrição que cria o problema).</div>
<div style="font-size:12pt"><br></div><div style="font-size:12pt">boxplot(c(1,2,2.6),c(4,5,6),c(-1.5,-3.5,-5),c(1.5,2.5,3.5),c(-2.1,0.2,1),ylim=c(-3,3),horizontal=T)</div><div style="font-size:12pt"><br></div><div style="font-size:12pt">
O primeiro e o quinto conjuntos de dados não apresentam nenhum prob, pois seus valores, <span style="font-size:12pt">(1,2,2.6) e (-2.1,0.2,1), estão compreendidos no intervalo [-3,3]. O quarto apresenta seu último valor (3.5) fora do intervalo, mas a representação de todo o quarto conjunto, </span><span style="font-size:12pt">(</span>1.5,2.5,3.5<span style="font-size:12pt">), não é problema. O mesmo ocorre com o terceiro conjunto de dados, </span><span style="font-size:12pt">(1.5,2.5,3.5), dois dos seus valores estão fora do intervalo, mas sua representação não é problema.</span></div>
<div style="font-size:12pt"><br></div><div style="font-family:Times;font-size:medium"><font face="arial, helvetica, sans-serif" size="3">O problema ocorre qdo TODOS os valores do </font><font face="arial, helvetica, sans-serif">conjunto</font><font face="arial, helvetica, sans-serif" size="3"> estão fora do intervalo [-3,3], como o segundo conjunto, (4,5,6). Nesse caso, o conjunto de dados não é representado na imagem.</font></div>
<div style="font-size:12pt"><br></div><div style="font-size:12pt">Meu prob é a necessidade de indicar que esses valores não estão no intervalo que aparece no gráfico. P. ex., para esse caso do segundo conjunto de dados, se aparecesse uma pequena seta, na segunda linha (onde o gráfico seria desenhado), próxima à margem direita do gráfico, apontando para direita, já faria essa indicação.</div>
<div style="font-size:12pt"><br></div><div style="font-size:12pt">Desde já, agradeço qq sugestão nesse sentido.</div><div style="font-size:12pt"><br></div><div style="font-size:12pt">[]s e obrigado.</div><br>-- <br><div>
<span></span>Wagner Arbex, DSc<br>
Bioinformática e Modelagem Matemática e Computacional de Biossistemas<br>Embrapa Gado de Leite<br>Empresa Brasileira de Pesquisa Agropecuária (Embrapa)<br>Juiz de Fora/MG<br><br><a href="mailto:wagner.arbex@embrapa.br" target="_blank">wagner.arbex@embrapa.br</a><br>
Tel.: <a href="tel:%2B55%20%2832%29%203311-7459" value="+553233117459" target="_blank">+55 (32) 3311-7459</a> | Fax: <a href="tel:%2B55%20%2832%29%203311-7401" value="+553233117401" target="_blank">+55 (32) 3311-7401</a><br>
<a href="http://www.cnpgl.embrapa.br" target="_blank">www.cnpgl.embrapa.br</a><br><br><div><img style="border:0px" src="cid:f009504d1f8fac027b3b2e6c124ec1f119a4ea5b@zimbra"><br></div><span></span><br></div></div></div>
<br>
<div>
<p align="left"><font size="1">
<br>____________________________________________________________________________
<br>Aviso de confidencialidade.
<br><br>
Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa),
empresa pùblica federal regida pelo disposto na Lei Federal no. 5.851, de
7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode
conter informações confidenciais, protegidas por sigilo profissional. Sua
utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se
você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente,
esclarecendo o equívoco.
<br><br>
Confidentiality note
<br><br>
This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa), a
government company established under Brazilian law (5.851/72), is directed
exclusively to its addressee and may contain confidential data, protected
under professional secrecy rules. Its unauthorized use is illegal and may
subject the transgressor to the law's penalties. If you are not the addressee,
please send it back, elucidating the failure.
<br>
</font>
</p></div>
<br></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote>
</div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br>
<div style="font-family:Calibri,sans-serif;font-size:16px"><font face="Verdana"><span style="font-family:arial;font-size:10pt">\begin{signature}</span><br style="font-family:arial;font-size:small"><span style="font-family:arial;font-size:10pt">Daniel Marcelino</span><br style="font-family:arial;font-size:small">
<span style="font-family:arial;font-size:10pt">☁ </span><a href="mailto:dm.silva@umontreal.ca" style="font-family:arial;font-size:small" target="_blank">dm.silva@umontreal.ca</a><span style="font-family:arial;font-size:10pt"> </span><br style="font-family:arial;font-size:small">
<span style="font-family:arial;font-size:10pt">☎ <a href="tel:%28514%29%20343%206111%20%233799" value="+555143436111" target="_blank">(514) 343 6111 #3799</a></span></font></div><div style="font-family:Calibri,sans-serif;font-size:16px">
<font face="Verdana"><span style="font-family:arial;font-size:13px">Skype: d.marcelino </span></font></div>
<div style="font-family:Calibri,sans-serif;font-size:16px"><font face="Verdana"><span style="font-family:arial;font-size:10pt">✎ 3200 Jean Brillant, Office C5071</span><br style="font-family:arial;font-size:small"><span style="font-family:arial;font-size:10pt">Montreal, QC; H3T 1N8</span><br style="font-family:arial;font-size:small">
<span style="font-family:arial;font-size:10pt">Canada</span><br style="font-family:arial;font-size:small"><span style="font-family:arial;font-size:10pt">\end{signature}</span></font></div><div style="font-family:Calibri,sans-serif;font-size:16px">
<font face="Verdana"><span style="font-family:arial;font-size:13px"><br></span></font></div><div style="font-family:Calibri,sans-serif;font-size:16px"><font face="Verdana"><span style="font-family:arial;font-size:13px">"Small steps toward a much better world"</span></font></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>