<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div><span>Valeu Jakson</span></div><div></div><div> </div><div><span style="color: rgb(0, 0, 255); font-style: italic; font-weight: bold; font-family: 'times new roman', 'new york', times, serif;">Waldelene Moura</span><br style="color: rgb(0, 0, 255); font-style: italic; font-family: 'times new roman', 'new york', times, serif;"><span style="color: rgb(0, 0, 255); font-style: italic; font-family: 'times new roman', 'new york', times, serif;">Analista de Sistemas</span><br style="color: rgb(0, 0, 255); font-style: italic; font-family: 'times new roman', 'new york', times, serif;"><span style="color: rgb(0, 0, 255); font-style: italic; font-family: 'times new roman', 'new york', times, serif;">Universidade Federal do Maranhão - PROEN</span><br style="color: rgb(0, 0, 255); font-style:
italic; font-family: 'times new roman', 'new york', times, serif;"></div><div style="font-family: 'times new roman', 'new york', times, serif; font-style: italic;"><span style="color:rgb(0, 0, 255);">88680455</span></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Segunda-feira, 7 de Abril de 2014 19:04, Jakson Alves de Aquino <jalvesaq@gmail.com> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv2491302189"><div><div dir="ltr"><br clear="none"><div class="yiv2491302189gmail_extra"><br clear="none"><br clear="none"><div class="yiv2491302189yqt2123264122" id="yiv2491302189yqtfd40869"><div
class="yiv2491302189gmail_quote">2014-04-07 18:49 GMT-03:00 Waldelene Moura <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:waldelene@yahoo.com.br" target="_blank" href="mailto:waldelene@yahoo.com.br">waldelene@yahoo.com.br</a>></span>:<br clear="none">
<blockquote class="yiv2491302189gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex;"><div><div style="font-size: 10pt; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<div><span>Olá </span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none">
</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span>Sou iniciante no R, preciso retirar de uma string um caractere <span style="font-weight:bold;">específico</span> que esteja <span style="font-weight:bold;">repetido, </span>trocando estes por apenas <span style="font-weight:bold;">um</span>,</span></div>
<div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none"></span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span>Ex: a = "23345556333388" gostaria de retirar o 3 especificamente que estão repetidos, logo a string ficaria</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span> a = "2345556388" - só altero onde o 3 aparece, os outros continuam como estão.</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span><br clear="none"></span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span><br clear="none">
</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span>outro exemplo</span></div>
<div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span> texto = "BOLLA CARRO LLATA CASSINO "
aplicando somente para a letra L</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span> texto = "BOLA CARRO LATA CASSINO"</span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;">
<span><br clear="none"></span></div><div style="font-style: normal; font-size: 13.63636302947998px; background-color: transparent; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><span>Alguém poderia me dar uma dica de qual função usar?</span></div>
</div></div></blockquote><div><br clear="none"></div><div><br clear="none"></div><div><div>gsub("33*", "3", a)</div><div>gsub("LL*", "L", gsub(" *", " ", texto))</div></div><div><br clear="none"></div>
<div>No "texto", você também eliminou quase todos os espaços duplicados. Por isso, o exemplo acima inclui um gsub() para eliminar excesso de espaço em branco.</div></div></div></div></div></div></div><br>_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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><br></div> </div> </div> </div> </div></body></html>