<div dir="ltr"><div>Felipe, veja se é isto o que tu deseja. Talvez não seja a solução mais elegante, mas aparentemente funciona:</div><div><br></div><div><div># gera dados aleatorios</div><div><br></div><div>set.seed(123)</div><div><br></div><div>n <- 100</div><div><br></div><div>x <- paste(rpois(n, 5), rbinom(n, 1, .4)+1, rpois(n, 5), sep=".")</div><div><br></div><div># separa os elementos das strings de acordo com os pontos</div><div><br></div><div>x.split <- unlist(strsplit(x, "[.]"))</div><div><br></div><div># seleciona apenas os elementos do meio dos dados originais, que são os elementos 2, 5, 8, etc. do vetor x.split</div><div><br></div><div>unlist(strsplit(x, "[.]"))[seq(from=2, to=length(x.split), by=3)]</div><div><br></div><div># para transformar o resultado acima em numeros</div><div><br></div><div>as.numeric(unlist(strsplit(x, "[.]"))[seq(from=2, to=length(x.split), by=3)])</div></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-25 16:37 GMT-03:00 Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
Desculpem pelo assunto equivocado no e-mail anterior.<br>
<br>
Em <a href="tel:25-08-2015%2016" value="+12508201516" target="_blank">25-08-2015 16</a>:18, Felipe escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Prezados,<br>
<br>
Tenho a seguinte variável:<br>
> dim(dados)<br>
> [1] 189 24<br>
<br>
Escola.Pd.Pr.sujeito<br>
8.2.6<br>
2.1.5<br>
2.1.8<br>
2.1.7<br>
2.1.6<br>
2.2.1<br>
11.2.2<br>
7.1.6<br>
7.1.5<br>
7.1.4<br>
12.2.4<br>
.....<br>
<br>
Quero criar uma nova variável que guarde os valores no meio (que variam entre 1 e 2)<br>
Pensei em usar a função substring:<br>
<br>
> variavel.nova<-substr(d$Escola.Pd.Pr.sujeito,3,3)<br>
<br>
Mas como o primeiro valor varia entre 1 e 12 não dá. Pensei em adicionar com a função paste(), mais um caracter no início dos valores que não são dezenas pois assim as posições seriam compatíveis para usar substr(d$Escola.Pd.Pr.sujeito,4,4).<br>
<br>
> paste("0",d$<a href="http://Escola.Pd.Pr" target="_blank">Escola.Pd.Pr</a>.sujeito, sep = '')<br>
<br>
Como poderia fazer isso?<br>
<br><span class="HOEnZb"><font color="#888888">
</font></span></blockquote><span class="HOEnZb"><font color="#888888">
<br>
-- <br>
Atenciosamente<br>
Felipe E. Barletta Mendes<br>
Estatístico - Conre3 9766-A<br>
<a href="tel:%2B55%20%2841%29-92077191" value="+554192077191" target="_blank">+55 (41)-92077191</a><br>
<a href="tel:%2B55%20%2841%29-33287216" value="+554133287216" target="_blank">+55 (41)-33287216</a><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" rel="noreferrer" 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="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</font></span></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div></div>
</div>