<div dir="ltr">Legal suas dicas Benilton. Obrigado pela força. Vou dar uma pesquisada de como resolver esse problema. <br></div><div class="gmail_extra"><br clear="all"><div>[   ],<br>Pedro Rafael Diniz Marinho.</div>

<br><br><div class="gmail_quote">Em 21 de maio de 2013 23:47, beniltoncarvalho [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4659387h74@n4.nabble.com" target="_blank">ml-node+s2285057n4659387h74@n4.nabble.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

        na real, vc vai querer procurar como fazer uma tabela no canto

superior direito (acho q o demo(plotmath)  serve de exemplo)...

<br><br>uma solucao relativamente simples (mas q vc pode nao achar "legal"

esteticamente) e' fazer "zero padding"...

<br><br>black2=black3=c(10.03,1,2)

<br>red2=red3 =c(1.3,100.1,2)

<br>blue3 =blue2=c(1,10.02,2)

<br>orange3=orange2=c(4,4,10.1)

<br><br>makeExp <- function(L, a, b)

<br><div class="im">    eval(substitute(expression(paste(lambda==L," , ", "a"==a, ", b"==b)),

<br></div>                    list(L=sprintf('%06.2f', L),

<br>                         a=sprintf('%06.2f', a),

<br>                         b=sprintf('%06.2f', b))))

<br><div class="im"><br>plot(1)

<br>legend("topright", legend =

<br></div>       c(makeExp(black3, black2[1], black2[2]),

<br>         makeExp(red3, red2[1], red2[2]),

<br>         makeExp(blue3, blue2[1], blue2[2]),

<br>         makeExp(orange3, orange2[1], orange2[2])),

<br>       bty="n", lty=c(1,1,1,1), lwd=c(2,2,2,2),

<br>       col=c("black", "red", "darkblue", "orange"))

<br><br>Em 21 de maio de 2013 23:21, Pedro Rafael

<br><<a href="http://user/SendEmail.jtp?type=node&node=4659387&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>> escreveu:

<div> <div class="im">> Com essa gambiarra acho que roda.

<br>>

<br>> rm(list=ls(all=TRUE))

<br>> black2 = black3=c(10.03,1,2)

<br>> red2 = red3 =c(1.3,100.1,2)

<br>> blue3 =blue2 = c(1,10.02,2)

<br>> orange3 = orange2 = c(4,4,10.1)

<br>>

<br>>

<br>> plot(1)

<br>> legend("topright", legend =

<br>>

<br>>          c(eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>> b"==b)), list(L = black3, a = black2[1], b=black2[2]))),

<br>>

<br>>            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>> b"==b)), list(L = red3, a = red2[1], b=red2[2]))),

<br>>

<br>>            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>> b"==b)), list(L = blue3, a = blue2[1], b=blue2[2]))),

<br>>

<br>>            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>> b"==b)), list(L = orange3, a = orange2[1], b=orange2[2])))),

<br>>        bty="n", lty = c(1,1,1,1), col = c("black", "red", "darkblue",

<br>> "orange"), lwd=c(2,2,2,2))

<br>>

<br>>

<br>>

<br>> [   ],

> Pedro Rafael Diniz Marinho.

<br>>

<br>>

<br>> Em 21 de maio de 2013 23:16, beniltoncarvalho [via R-br]

<br></div>> <<a href="http://user/SendEmail.jtp?type=node&node=4659387&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a>> escreveu:

<br><div><div class="h5">>>

<br>>> exemplo nao reproduzivel... experimente abrir uma sessao nova do R,

>> copiar e colar....

<br>>>

<br>>> Em 21 de maio de 2013 23:10, Pedro Rafael

<br>>> <[hidden email]> escreveu:

<br>>>

<br>>> > Veja esse exemplo:

<br>>> >

<br>>> > black=c(10.03,1,2)

<br>>> > plot(1)

<br>>> >

<br>>> > legend("topright", legend =

<br>>> >

<br>>> >          c(eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>>> > b"==b)), list(L = black3, a = black2[1], b=black2[2]))),

<br>>> >

<br>>> >            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>>> > b"==b)), list(L = red3, a = red2[1], b=red2[2]))),

<br>>> >

<br>>> >            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>>> > b"==b)), list(L = blue3, a = blue2[1], b=blue2[2]))),

<br>>> >

<br>>> >            eval(substitute(expression(paste(lambda==L," , ", "a"==a, ",

<br>>> > b"==b)), list(L = orange3, a = orange2[1], b=orange2[2])))),

<br>>> >        bty="n", lty = c(1,1,1,1), col = c("black", "red", "darkblue",

<br>>> > "orange"), lwd=c(2,2,2,2))

<br>>> >

<br>>> > Observe que os números tem quantidades de dígitos diferentes, umas

<br>>> > linhas

<br>>> > ficando maiores e outras menores. Não teria como "justificar" essas

>> > legendas? Não sei se fui claro...

<br>>> >

<br>>> > Obrigado pela ajuda.

<br>>> >

<br>>> > [   ],

<br>>> > Pedro Rafael Diniz Marinho.

<br>>> >

<br>>> >

<br>>> > Em 21 de maio de 2013 22:33, beniltoncarvalho [via R-br]

<br>>> > <[hidden email]> escreveu:

<br>>> >>

<br>>> >> "alinhar" com respeito a q?

<br>>> >>

<br>>> >> plot(1)

<br>>> >> ## alinhado no canto inferior direito

<br>>> >> legend('bottomright', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado no canto inferior esquerdo

<br>>> >> legend('bottomleft', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado no canto superior direito

<br>>> >> legend('topright', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado no canto superior esquerdo

<br>>> >> legend('topleft', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado no centro

<br>>> >> legend('center', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado no topo

<br>>> >> legend('top', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado na base

<br>>> >> legend('bottom', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado na direita

<br>>> >> legend('right', legend=substitute(beta==val, list(val=beta1)))

<br>>> >> ## alinhado na esquerda

<br>>> >> legend('left', legend=substitute(beta==val, list(val=beta1)))

<br>>> >>

<br>>> >>

<br>>> >> Em 21 de maio de 2013 22:07, Pedro Rafael

<br>>> >> <[hidden email]> escreveu:

<br>>> >>

>> >> > Existe alguma forma de alinhar a legenda?

<br>>> >> >

<br>>> >> > [   ],

<br>>> >> > Pedro Rafael Diniz Marinho.

<br>>> >> >

<br>>> >> >

<br>>> >> > Em 17 de maio de 2013 01:13, Pedro Rafael <[hidden email]>

<br>>> >> > escreveu:

<br>>> >> >

<br>>> >> >> Muito obrigado a todos. Obrigado André.

<br>>> >> >>

<br>>> >> >> Robert, muito interessante sua solução. Em geral qual a utilidade do

<br>>> >> >> comando substitute? Ele ajuda além dessa situações à resolver que

<br>>> >> >> tipo

<br>>> >> >> de

<br>>> >> >> problemas?

<br>>> >> >>

<br>>> >> >> Obrigado.

<br>>> >> >>

<br>>> >> >> [   ],

<br>>> >> >> Pedro Rafael Diniz Marinho.

<br>>> >> >>

<br>>> >> >>

<br>>> >> >> Em 17 de maio de 2013 00:52, Robert Iquiapaza [via R-br]

<br>>> >> >> <[hidden email]> escreveu:

<br>>> >> >>

<br>>> >> >>> Pode usar

<br>>> >> >>>

<br>>> >> >>> beta1=10

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>> legend("topright",eval(substitute(expression(paste(beta==A)),list(A=beta1))))

<br>>> >> >>>

<br>>> >> >>> Sds

<br>>> >> >>>

<br>>> >> >>> From: [hidden email]

<br>>> >> >>> Sent: Friday, May 17, 2013 12:06 AM

<br>>> >> >>> To: [hidden email]

>> >> >>> Subject: Re: [R-br][Dúvida] Combinar expression e paste.

<br>>> >> >>>

>> >> >>> Olá André. O problema é que o beta foi chamado em linha diferente.

<br>>> >> >>> Minha

<br>>> >> >>> dúvida é como jogar o valor da variável beta na primeira linha da

<br>>> >> >>> legenda

<br>>> >> >>> que fique (a = 10). O beta que você chamou estava fora do

<br>>> >> >>> expression.

<br>>> >> >>> Ou

<br>>> >> >>> seja, estava em linha diferente do beta =.

<br>>> >> >>>

<br>>> >> >>> Gostaria de uma legenda do tipo:

<br>>> >> >>>

<br>>> >> >>> beta = 10.

<br>>> >> >>>

<br>>> >> >>> [   ],

<br>>> >> >>> Pedro Rafael Diniz Marinho.

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>> Em 16 de maio de 2013 23:53, andrebvs [via R-br] <[hidden email]>

<br>>> >> >>> escreveu:

<br>>> >> >>>

<br>>> >> >>>>

<br>>> >> >>>> Olá Pedro, acho que é isso,

<br>>> >> >>>>

<br>>> >> >>>> beta = 10

<br>>> >> >>>> plot(1:5, 1:5,type="n",main="Expressões

<br>>> >> >>>> Matemáticas",xlab="",ylab="")

<br>>> >> >>>> legend("topright",legend = c(expression(beta, paste("a =

<br>>> >> >>>> ")),beta))

<br>>> >> >>>>

<br>>> >> >>>> Att.

<br>>> >> >>>> André BVS

<br>>> >> >>>>

<br>>> >> >>>> ________________________________

<br>>> >> >>>> Em 16/05/2013 23:36, Pedro Rafael < [hidden email] > escreveu:

<br>>> >> >>>> Pessoal estou fazendo alguns gráficos e estou combinando os

<br>>> >> >>>> comandos

<br>>> >> >>>> expression e paste. O problema é que quando chamo o comando paste

<br>>> >> >>>> dentro do

<br>>> >> >>>> comando expression só estou conseguindo colocar os valores

<br>>> >> >>>> numéricos

<br>>> >> >>>> das

<br>>> >> >>>> variáveis digitando esses valores.

<br>>> >> >>>> Por exemplo:

<br>>> >> >>>>

<br>>> >> >>>> beta = 10

<br>>> >> >>>> legend("topright", legend = c(expression(beta, paste(" a= 10")))

<br>>> >> >>>>

<br>>> >> >>>> Se eu fizer  legend("topright", legend = c(expression(beta,

<br>>> >> >>>> paste(" =

<br>>> >> >>>> ",

<br>>> >> >>>> beta))) o valor 10 da variável beta não é substituído.

<br>>> >> >>>> Gostaria de alguma forma de não precisar digitar uma informação

<br>>> >> >>>> que

<br>>> >> >>>> já

<br>>> >> >>>> tenho em uma variável.

<br>>> >> >>>>

<br>>> >> >>>>

<br>>> >> >>>>

<br>>> >> >>>> [   ],

<br>>> >> >>>> Pedro Rafael Diniz Marinho.

<br>>> >> >>>>

<br>>> >> >>>>

<br>>> >> >>>> _______________________________________________

<br>>> >> >>>> R-br mailing list

<br>>> >> >>>> [hidden email]

<br>>> >> >>>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e

<br>>> >> >>>> forneça

<br>>> >> >>>> código mínimo reproduzível.

<br>>> >> >>>>

<br>>> >> >>>> ________________________________

<br>>> >> >>>> If you reply to this email, your message will be added to the

<br>>> >> >>>> discussion

<br>>> >> >>>> below:

<br>>> >> >>>>

<br>>> >> >>>>

<br>>> >> >>>>

<br>>> >> >>>> <a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659330.html" rel="nofollow" link="external" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659330.html</a><br>

>> >> >>>> To unsubscribe from R-br, click here.

<br>>> >> >>>> NAML

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>> ________________________________

<br>>> >> >>> _______________________________________________

<br>>> >> >>> R-br mailing list

<br>>> >> >>> [hidden email]

<br>>> >> >>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e

<br>>> >> >>> forneça

<br>>> >> >>> código mínimo reproduzível.

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>> _______________________________________________

<br>>> >> >>> R-br mailing list

<br>>> >> >>> [hidden email]

<br>>> >> >>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e

<br>>> >> >>> forneça

<br>>> >> >>> código mínimo reproduzível.

<br>>> >> >>>

<br>>> >> >>> ________________________________

<br>>> >> >>> If you reply to this email, your message will be added to the

<br>>> >> >>> discussion

<br>>> >> >>> below:

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>>

<br>>> >> >>> <a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659335.html" rel="nofollow" link="external" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659335.html</a><br>

>> >> >>> To unsubscribe from R-br, click here.

<br>>> >> >>> NAML

<br>>> >> >>

<br>>> >> >>

<br>>> >> >

<br>>> >> >

<br>>> >> > _______________________________________________

<br>>> >> > R-br mailing list

<br>>> >> > [hidden email]

<br>>> >> > <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça

<br>>> >> > código

<br>>> >> > mínimo reproduzível.

<br>>> >> _______________________________________________

<br>>> >> R-br mailing list

<br>>> >> [hidden email]

<br>>> >> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça

<br>>> >> código mínimo reproduzível.

<br>>> >>

<br>>> >>

<br>>> >> ________________________________

<br>>> >> If you reply to this email, your message will be added to the

<br>>> >> discussion

<br>>> >> below:

<br>>> >>

<br>>> >>

<br>>> >> <a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659382.html" rel="nofollow" link="external" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659382.html</a><br>

>> >> To unsubscribe from R-br, click here.

<br>>> >> NAML

<br>>> >

<br>>> >

<br>>> >

<br>>> > _______________________________________________

<br>>> > R-br mailing list

<br>>> > [hidden email]

<br>>> > <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça

<br>>> > código

<br>>> > mínimo reproduzível.

<br>>> _______________________________________________

<br>>> R-br mailing list

<br>>> [hidden email]

<br>>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça

>> código mínimo reproduzível.

<br>>>

<br>>>

<br>>> ________________________________

<br>>> If you reply to this email, your message will be added to the discussion

<br>>> below:

<br>>>

<br>>> <a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659385.html" rel="nofollow" link="external" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659385.html</a><br>

>> To unsubscribe from R-br, click here.

<br>>> NAML

<br>>

<br>>

<br>>

<br>> _______________________________________________

<br>> R-br mailing list

<br>> <a href="http://user/SendEmail.jtp?type=node&node=4659387&i=2" rel="nofollow" link="external" target="_blank">[hidden email]</a>

<br>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código

<br>> mínimo reproduzível.

</div></div></div><div><div class="h5">_______________________________________________

<br>R-br mailing list

<br><a href="http://user/SendEmail.jtp?type=node&node=4659387&i=3" rel="nofollow" link="external" target="_blank">[hidden email]</a>

<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.

<br>

        <br>

        <br>

        <hr color="#cccccc" noshade size="1">

        </div></div><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><div><div class="h5">

                <div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>

                </div></div><a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659387.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Combinar-expression-e-paste-tp4659328p4659387.html</a>

        </div><div class="HOEnZb"><div class="h5">

        <div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">

                To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw" target="_blank">click here</a>.<br>

                <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>

        </div></div></div></blockquote></div><br></div>