É só salvar numa variável separada<br><br>dados<-matrix(sample(1:4,27,replace=T),ncol=3)<br>dados<br><br>#substituir x por y<br>x<-c(1,2)<br>y<-c(2,4)<br><br>#substituição<br>dados2 <- dados<br>for (i in seq_along(dados)) { dados[dados2 == x[i]] <- y[i] }<br>
<br>#final<br>dados2 # Dados originais<br>dados # Dados alterados<br><br><div class="gmail_quote">2012/6/29 andrebvs <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Bom dia Benilton!<br><br>Na verdade é só substituir de uma vez, porque se for substituir de um por um, o que for atualizado, vai atualizar novamente. Mas o que estou querendo é o seguinte:<br>
<br>Por exemplo:<br><br> M=c(3,19,22,27,34,<br> 3,12,22,34,43,<br> 3,12,27,43,54,<br> 12,19,27,34,43,<br> 4,16,21,36,41,<br> 4,9,16,30,41,<br> 4,9,21,30,36,<br> 9,16,21,36,41,<br> 5,8,24,35,47,<br> 5,15,24,38,52)<br><br>Saída:<div class="im">
<br><br> [1,] 3 19 22 27 34<br> [2,] 3 12 22 34 43<br> [3,] 3 12 27 43 54<br> [4,] 12 19 27 34 43<br> [5,] 4 16 21 36 41<br> [6,] 4 9 16 30 41<br> [7,] 4 9 21 30 36<br>
[8,] 9 16 21 36 41<br> [9,] 5 8 24 35 47<br> [10,] 5 15 24 38 52<br><br></div>Trocar onde tem v1 por v2:<br><br>v1 <
- c(9,11,12,15,18,19,21,22,23,24,27,30,32,35,36,39,41,46,52,54,55,56,57,58)<br>v2 <-c(10,12,13,14,17,23,24,25,28,29,30,32,33,36,37,41,42,44,51,52,53,54,59,60)<br><br>Final desejado:<br><br>[1,] 3 23 25 30 34<br>
[2,] 3 13 25 34 43<br> [3,] 3 13 30 43 52<br> [4,] <a href="tel:13%20%C2%A0%C2%A0%2023%C2%A0%2030%20%C2%A0%2034%C2%A0%C2%A0%2043" value="+551323303443" target="_blank">13 23 30 34 43</a><br>
[5,] 4 16 24 37 42<br> ...<br><br> [10,] 5 14 29 38 51<br><br>É isso!<br><br>
<hr style="border-top:1px solid #ccc">
Em 28/06/2012 16:30, <b>Augusto Ribas < <a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a> ></b> escreveu:<div><div class="h5"><br>#exemplo<br>dados<-matrix(sample(1:4,9,replace=T),ncol=3,nrow=3)<br>
dados<br><br>#substituir x por y<br>x<-c(2,3)<br>y<-c(8,9)<br><br>#substituição<br>for (i in seq_along(dados)) { dados[dados == x[i]] <- y[i] }<br><br>#final<br>dados<br><br>O que não funcionou?<br>Utiliza o comando dput(suamatriz) aqui dai da pra testar o exemplo nela.<br>
<br>E uma pergunta, vc quer trocar 11 por 12 e depois 12 por 13, ou seja<br>na matriz final vai ficar onde era 11 e 12 um 13<br>ou so trocar uma vez?<br>se vc tem :<br>11 11<br>12 12<br><br><br>vc quer<br>13 13<br>13 13<br>
<br>ou<br>12 12<br>13 13<br>?<br><br><br></div></div>Em 28 de junho de 2012 14:46, andrebvs escreveu:<div class="im"><br>> Obg Benilton, mas o script não funcionou!<br>><br>><br>> ________________________________<br>
</div>> Em 28/06/2012 15:02, Beni
lton Carvalho < <a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a> ><div class="im"><br>> escreveu:<br>><br>> for (i in seq_along(valores_atuais))<br>> matriz[matriz == valores_na_matriz[i]] = valores_atuais[i]<br>
><br>><br>> b<br>><br>> 2012/6/28 andrebvs :<br>><br>>> Como atualizo alguns dos seguintes valores da matriz abaixo:<br>>><br>>> [,1] [,2] [,3] [,4] [,5]<br>>> [1,] 3 19 22 27 34<br>
>> [2,] 3 12 22 34 43<br>>> [3,] 3 12 27 43 54<br>>> [4,] 12 19 27 34 43<br>>> [5,] 4 16 21 36 41<br>>> [6,] 4 9 16 30 41<br>>> [7,] 4 9 21 30 36<br>
>> [8,] 9 16 21 36 41<br>>> [9,] 5 8 24 35 47<br>>> [10,] 5 15 24 38 52<br></div>>> [11,] 5Â
� 8 15 35 38<div class="HOEnZb"><div class="h5"><br>>> [12,] 8 15 24 38 Â 52<br>><br>>> [13,] 7 11 23 39 46<br>>> [14,] 7 18 32 46 49<br>>> [15,] 7 11 18 23 39<br>
>> [16,] 11 18 32 39 46<br>>> [17,] 3 16 23 35 54<br>>> [18,] 3 5 16 36 46<br>>> [19,] 3 5 23 35 46<br>>> [20,] 5 16 35 36 54<br>>> [21,] 4 7 22 30 47<br>
>> [22,] 4 22 24 30 34<br>>> [23,] 4 7 24 34 47<br>>> [24,] 7 22 24 34 49<br>>> [25,] 8 19 21 32 43<br>>> [26,] 8 11 21 38 43<br>>> [27,] 8 19 32 38 50<br>
>> [28,] 11 19 21 32
43<br>>> [29,] 9 12 18 39 41<br>>> [30,] 9 15 27 39 52<br>>> [31,] 9 12 15 18Â � 27<br>><br>>> [32,] 12 18 27 39 41<br>>> [33,] 3 15 21 35 39<br>
>> [34,] 3 4 21 22 39<br>>> [35,] 3 15 22 35 47<br>>> [36,] 4 15 21 22 39<br>>> [37,] 5 7 19 38 46<br>>> [38,] 5 19 27 38 54<br>>> [39,] 5 7 23 27 46<br>
>> [40,] 7 23 27 38 46<br>>><br>>> Os valores a serem atualizados (sbstituídos) da matriz são:<br>>><br>>> valores_na_matriz <-<br>>> c(9,11,12,15,18,19,21,22,23,24,27,30,32,35,36,39,41,46,52,54,55,56,57,58)<br>
>><br>>> Pelos correspondentes valores abai
xo:<br>>><br>>> valores_atuais <-<br>>> c(10,12,13,14,17,23,24,25,28,29,30,32,33,36,37,41,42,44,51,52,53,54,59,60)<br>>><br>>> ou seja, substituir na: 9 por 10, 11 por 12, 12 poe 13, ..., 58 por 60.<br>
>><br>>> desde já agradeço!<br>>><br>>> Att.<br>>> André<br>>><br>>><br>>> _______________________________________________<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<br>
>> código<br>>> mínimo reproduzível.<br>> _______________________________________________<br>> R-br mailing list<br>> R-br@listas.c3sl.ufpr.b
r<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<br>
> mínimo reproduzível.<br>><br>><br>> _______________________________________________<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<br>
> mínimo reproduzível.<br><br><br><br>-- <br>Grato<br>Augusto C. A. Ribas<br><br>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.he
liohost.org</a><br>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>_______________________________________________<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.<br>
</div></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>