<div dir="ltr">muchas gracias!!</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mié, 15 mar 2023 a las 6:12, Carlos Ortega (<<a href="mailto:cof@qualityexcellence.es">cof@qualityexcellence.es</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Hola,</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Juntandolo todo se puede hacer así...</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">#-----------------------------<br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">cadena <- c(<br> 'si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3',<br> 'si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1',<br> 'si p1 == 5 == 0,7 si p1 == 5 = 0,7',<br> 'si p1 == 5 = 0,7 si p1 == 5 = 0,7',<br> 'si p1 == 6 == 0 si p1 == 6 = 0',<br> 'si p1 == 7 == no aplica si p1 == 7 = no aplica'<br>)<br><br># Función para reemplazar el último "==" por un "=" en una cadena<br>replace_last_equal <- function(s) {<br> miwords <- unlist(strsplit(s, "=="))<br> paste0(paste(miwords[1:(length(miwords) - 1)], collapse = '=='), '=', miwords[length(miwords)])<br>}<br><br># Aplicar la función a cada elemento de la cadena<br>cadenew <- as.vector( sapply(cadena, replace_last_equal))<br><br># Ver el resultado<br>print(cadenew)<br>#-----------------------------<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Gracias,</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Carlos Ortega</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mié, 15 mar 2023 a las 0:28, Carlos Ortega (<<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Hola,</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Prueba a envolver el strplit con unlist(), así:<br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">b <- unlist(strsplit(a, "=="))</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Pero entendí que lo que quieres es sustituir el último "==" por un "="....</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mar, 14 mar 2023 a las 23:06, juan manuel dias (<<a href="mailto:juamadias@gmail.com" target="_blank">juamadias@gmail.com</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">hola! ,me sirve, pero el tema es que necesito crear tres variables nuevas con el resultado de strsplit....pero me genera una lista y no lo estoy pudiendo combinar con mutate de dplyr....</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mar, 14 mar 2023 a las 7:46, juan manuel dias (<<a href="mailto:juamadias@gmail.com" target="_blank">juamadias@gmail.com</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="auto">Muchas gracias!! Lo pruebo!!!</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mar., 14 de marzo de 2023 04:55, Proyecto R-UCA <<a href="mailto:r-uca@uca.es" target="_blank">r-uca@uca.es</a>> escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div>Buenas,</div><div><br></div><div>Una opción es partir la cadena usando el == como separador y luego recomponerla.</div><div><br></div><div>> a <- "p1 == 1 o 2 o p2 == 1 == 1,3"</div><div>> b <- strsplit(a, "==")</div><div>> b <- b[[1]]</div><div>> b</div><div>[1] "p1 " " 1 o 2 o p2 " " 1 " " 1,3" </div><div>> paste0(paste0(b[1:(length(b)-1)], collapse = '=='), '=', b[length(b)])</div><div>[1] "p1 == 1 o 2 o p2 == 1 = 1,3"</div><div><br></div><div>Un saludo, Manuel.</div><div><span></span></div><div><br></div><div>El lun, 13-03-2023 a las 19:15 -0300, juan manuel dias escribió:</div><blockquote type="cite" style="margin:0px 0px 0px 0.8ex;border-left:2px solid rgb(114,159,207);padding-left:1ex"><div dir="ltr">hola ,muchas gracias!<div>no conocía esa librería para los regex...respecto a la pregunta de Carlos, puedo tener más de un == dentro de la cadena, por ejemplo así: </div><div><br></div><div>así está</div><div><span style="font-family:Arial;font-size:13.3333px">si p1 == 1 o 2 o p2 == 1 == 1,3</span><br></div><div><span style="font-family:Arial;font-size:13.3333px"><br></span></div><div><span style="font-family:Arial;font-size:13.3333px">así necesito</span></div><div><span style="font-family:Arial;font-size:13.3333px">si p1 == 1 o 2 o p2 == 1 = 1,3</span><br></div></div><div><br></div><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El lun, 13 mar 2023 a las 18:11, Juan Abasolo (<juan.abasolo@ehu.eus>) escribió:<br></div><blockquote type="cite" style="margin:0px 0px 0px 0.8ex;border-left:2px solid rgb(114,159,207);padding-left:1ex"><div dir="ltr"><div>Mientras aparezca alguien que sepa guiarte bien, te muestro desde mi autodidactez por dónde encararía. Y lo que para mí fue un gran descubirmiento: El paquete RegExplain,</div><div><img src="cid:ii_lf7bh1uk0" alt="irudia.png" width="578" height="427"><br>(==)([\d, \w]*=[\d, \w]*)$</div><div><br></div><div>Eso captura en dos grupos diferentes todo lo que está desde el final hasta el primer igual, más todo lo que sigue hasta en igual doble, que lo excluye y lo captura como otro grupo. <br></div><div>Tenés que conseguir cambiar solamente el primer grupo. Y se me acabó la sapienza.</div><div><br></div><div>Suerte</div><div><br></div></div><div><br></div><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Hau idatzi du juan manuel dias (<a href="mailto:juamadias@gmail.com" rel="noreferrer" target="_blank">juamadias@gmail.com</a>) erabiltzaileak (2023 mar. 13(a), al. (20:38)):<br></div><blockquote type="cite" style="margin:0px 0px 0px 0.8ex;border-left:2px solid rgb(114,159,207);padding-left:1ex"><div>Hola,<br></div><div><br>Tengo una variable string que tiene muchos casos, pero necesito en cada uno<br>de ellos reemplazar el último "==" por "=".<br></div><div><br>asi está asi necesito<br>si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3<br>si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1<br>si p1 == 5 == 0,7 si p1 == 5 = 0,7<br>si p1 == 5 = 0,7 si p1 == 5 = 0,7<br>si p1 == 6 == 0 si p1 == 6 = 0<br>si p1 == 7 == no aplica si p1 == 7 = no aplica<br></div><div><br>Muchas gracias!!<br></div><div><br>Juan.<br></div><div><br> [[alternative HTML version deleted]]<br></div><div><br>_______________________________________________<br>R-help-es mailing list<br></div><div><a href="mailto:R-help-es@r-project.org" rel="noreferrer" target="_blank">R-help-es@r-project.org</a><br></div><div><a href="https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$" rel="noreferrer noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br></div></blockquote></div><div><br clear="all"><br><span>-- </span><br></div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div><span style="font-family:monospace">Juan Abasolo, PhD<br></span></div><div><span style="font-family:monospace"><br>Hizkuntzaren eta Literaturaren Didaktika Saila | <span>EUDIA ikerketa taldea</span></span></div><div><span style="font-family:monospace">Bilboko Hezkuntza Fakultatea</span></div><span style="font-family:monospace">Euskal Herriko Unibertsitatea UPV/EHU</span></div><div dir="ltr"><span style="font-family:monospace"><br></span></div><div><span style="font-family:monospace">Sarriena auzoa z/g 48940 - Leioa (Bizkaia)</span></div><div><span style="font-family:monospace"><br></span></div><div><span style="font-family:monospace">T : (+34) 94 601 7567</span></div><div><span style="font-family:monospace">Telegram: @JuanAbasolo</span></div><div><span style="font-family:monospace">Skype : abasolo72</span></div></div></div></blockquote></div><div>_______________________________________________<br></div><div>R-help-es mailing list<br></div><div><a href="mailto:R-help-es@r-project.org" rel="noreferrer" target="_blank">R-help-es@r-project.org</a><br></div><div><a href="https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$" rel="noreferrer" target="_blank">https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$</a> <br></div></blockquote></div>
_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" rel="noreferrer" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</blockquote></div>
</blockquote></div>
_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</blockquote></div><br clear="all"><br><span>-- </span><br><div dir="ltr"><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></div>
</blockquote></div><br clear="all"><br><span>-- </span><br><div dir="ltr"><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></div>
</blockquote></div>