<html>
<head>
<meta name="generator" content="Windows Mail 17.5.9600.20911">
<style data-externalstyle="true"><!--
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
}
p.MsoNormal, li.MsoNormal, div.MsoNormal {
margin:0in;
margin-bottom:.0001pt;
}
p.MsoListParagraphCxSpFirst, li.MsoListParagraphCxSpFirst, div.MsoListParagraphCxSpFirst,
p.MsoListParagraphCxSpMiddle, li.MsoListParagraphCxSpMiddle, div.MsoListParagraphCxSpMiddle,
p.MsoListParagraphCxSpLast, li.MsoListParagraphCxSpLast, div.MsoListParagraphCxSpLast {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
line-height:115%;
}
--></style></head>
<body dir="ltr">
<div data-externalstyle="false" dir="ltr" style="font-family: 'Calibri', 'Segoe UI', 'Meiryo', 'Microsoft YaHei UI', 'Microsoft JhengHei UI', 'Malgun Gothic', 'sans-serif';font-size:12pt;"><div>Olá Listeiros,</div><div><br></div><div>Estou com um problema na criação de novas listas no R. Abaixo segue parte do meu código:<br><br>arq_1 <- read.table("C:/Users/Paulo/Documents/Alturas_Ilha_Fiscal-2015-10-22/Alturas_Ilha_Fiscal/50140002560102196123121961ALT_MOD.xls")<br></div><div><br></div><div>######################################################################################################## Fazendo a mao mes a mes ####################<br></div><div><br></div><div>jan <- arq_1[which(arq_1$V2==1),]<br>fev <- arq_1[which(arq_1$V2==2),]<br>mar <- arq_1[which(arq_1$V2==3),]<br>abril <- arq_1[which(arq_1$V2==4),]<br>maio <- arq_1[which(arq_1$V2==5),]<br>junho <- arq_1[which(arq_1$V2==6),]<br>julho <- arq_1[which(arq_1$V2==7),]<br>agosto <- arq_1[which(arq_1$V2==8),]<br>setembro <- arq_1[which(arq_1$V2==9),]<br>outubro <- arq_1[which(arq_1$V2==10),]<br>novembro <- arq_1[which(arq_1$V2==11),]<br>dezembro <- arq_1[which(arq_1$V2==12),]</div><div><br></div><div>################automatizando#####################</div><div><br></div><div>for (i in 1:12){</div><div><br></div><div>mes[i] <- arq_1[which(arq_1$V2==i),]<br> <br> }<br><br>Eu gostaria de poder automatizar o primeiro processo, a captação de um bloco da lista arq_1 para a variável mes[i], porém eu recebo a mensagem:<br><br>There were 12 warnings (use warnings() to see them)</div><div><br></div><div>e ao abrir os warnings:<br><br>Warning messages:<br>1: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>2: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>3: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>4: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>5: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>6: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>7: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>8: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>9: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>10: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>11: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>12: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br><br>Fazendo pelo processo manual dá certo, mas pq fazendo pelo processo “automatizado" não é possível. Peço ajuda de vocês para encontrar uma saída!<br><br>Um grande abraço a todos<br><br>Paulo.<br><br><br></div><div data-signatureblock="true"><div><br></div><div>Sent from Windows Mail</div><div><br></div></div></div>
</body>
</html>