<p dir="ltr">Talvez subset() com o teste nchar(HScode) ==4 resolva.</p>
<div class="gmail_quote">Em 7 de jul de 2016 11:36 PM, "Alexandre Loures via R-br" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
  

    
  
  <div bgcolor="#FFFFFF" text="#000000">
    Boa noite!<br>
    <br>
    Tenho uma base de dados em que uma das variáveis (HScode) possui
    três níveis. Por exemplo, <br>
    <br>
    01<br>
    0101<br>
    010122<br>
    0102<br>
    010233<br>
    02<br>
    0201<br>
    020179<br>
    <br>
    Contudo preciso de um subset apenas com as observações com quatro
    dígitos. Ou seja,<br>
    <br>
    0101<br>
    0102<br>
    0201<br>
    <br>
    structure(list(reporter = c("Albania", "Albania", "Albania", <br>
    "Albania", "Albania", "Albania", "Albania", "Albania", "Albania", <br>
    "Albania", "Albania", "Albania", "Albania", "Albania", "Albania", <br>
    "Albania", "Albania", "Albania", "Albania", "Albania", "Albania", <br>
    "Albania", "Albania", "Albania", "Albania", "Albania", "Albania", <br>
    "Albania", "Albania", "Albania", "Albania", "Albania", "Albania", <br>
    "Albania", "Albania"), HScode = c("01", "0101", "010110", "010190",
    <br>
    "0102", "010210", "010290", "0103", "010310", "010391", "010392", <br>
    "0104", "010410", "010420", "0105", "010511", "010512", "010519", <br>
    "010594", "010599", "0106", "010611", "010612", "010619", "010620",
    <br>
    "010631", "010632", "010639", "010690", "02", "0201", "020110", <br>
    "020120", "020130", "0202"), boundtariff = c("6.571969696969697", <br>
    "8.75", "7.5", "10", "7.291666666666667", "5", "9.583333333333334",
    <br>
    "5", "5", "5", "5", "5", "5", "5", "9.5", "5", "5", "5", "12.5", <br>
    "20", "5", "5", "5", "5", "5", "5", "5", "5", "5",
    "10.27914614121511", <br>
    "10", "10", "10", "10", "10")), datalabel = "", time.stamp = " 7 Jul
    2016 22:53", .Names = c("reporter", <br>
    "HScode", "boundtariff"), formats = c("%54s", "%9s", "%20s"), types
    = c(54L, <br>
    7L, 20L), val.labels = c("", "", ""), var.labels = c("", "", <br>
    ""), version = 12L, row.names = c("1", "2", "3", "4", "5", "6", <br>
    "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", <br>
    "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", <br>
    "29", "30", "31", "32", "33", "34", "35"), class = "data.frame")<br>
    <br>
    <br>
    Alguém saberia como fazer isso?<br>
    <br>
    <br>
    Desde já muito obrigado!<br>
    <br>
    <br>
    <br>
    <div>-- <br>
      
      
      <font size="1"><b>Alexandre Rodrigues Loures</b><br>
        Doutorando em Economia Aplicada<br>
        Universidade Federal da Paraíba - UFPB<br>
        Centro de Ciências Sociais Aplicadas - CCSA<br>
        Programa de Pós-Graduação em Economia - PPGE<br>
        Site: <a href="http://www.ccsa.ufpb.br/ppge" target="_blank">www.ccsa.ufpb.br/ppge</a><br>
        <img alt="orcid" src="cid:part1.69FFCD9C.76A8B5A1@ymail.com" height="16" width="16"> <a href="http://www.orcid.org/0000-0002-1288-0135" target="_blank">www.orcid.org/0000-0002-1288-0135</a></font>
    </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" 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></blockquote></div>