Augusto, vc esta' confundindo as coisas.
O que ainda esta' presente e' o *nivel* 4, mas nenhuma das observacoes pertence ao nivel 4... Veja, por exemplo, o resultado de: table(test2[['V1']]) e conte quantas observacoes pertencem ao nivel 4 (zero). b 2011/4/28 Augusto Ribas <[email protected]> > Opa Gustavo. Do seu jeito so funciona quando não é fator. > Eu economizei para fazer o exemplo ali, mas os dados são um data frame e a > que quero usa pra seleciona é um fator. > So se tiver um sort.factor, numero inteiro da erro dae. > > Mas aproveitando, deixa eu fazer mais uma perguntinha: > > #Repostando o exemplo > > test<-matrix(c(rep(1:3,each=5),rep(4,each=4),rep(5,each=6),runif(50)),byrow=F,nrow=25) > test > test<-as.data.frame(test) > test[[1]] <- as.factor(test[[1]]) > names(test) > str(test) > counts<-table(test[['V1']]) > counts > sel<-names(counts)[counts > 4] > sel > test2<-subset(test, V1 %in% sel) > test2 > #até aqui ok so que o level 4 ainda ficou > levels(test2[,1]) > > Como eu tiro ele? > > E Walmes, problema não são so os comandos, mas eu me embanano mesmo para > implementar as coisas. Eu entendo o que o Benilton fez, mas não tava > vizualizando faze daquele jeito. > > > > Em 28 de abril de 2011 19:05, Gustavo Henrique de Carvalho < > [email protected]> escreveu: > >> Outra forma: >> >> bleh <- rle(sort.int(test[, 1])) >> bleh <- bleh$values[bleh$lengths > 4] >> >> test[test[, 1] %in% bleh, ] >> >> 2011/4/28 Walmes Zeviani <[email protected]>: >> > Pessoal, >> > >> > Vejam o cartão de referência do R (no google: R reference card). Ele tem >> > todas essas opções de operadores lógicos, de datas, de horas, de >> importação, >> > parâmetros gráficos, distribuição de probabilidades, etc. Vale a pena >> ter >> > ele salvo no navegador ou impresso na gaveta mais próxima. >> > >> > À disposição. >> > Walmes. >> > >> > >> ========================================================================== >> > Walmes Marques Zeviani >> > LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 >> W) >> > Departamento de Estatística - Universidade Federal do Paraná >> > fone: (+55) 41 3361 3573 >> > VoIP: (3361 3600) 1053 1173 >> > e-mail: [email protected] >> > twitter: @walmeszeviani >> > homepage: http://www.leg.ufpr.br/~walmes >> > linux user number: 531218 >> > >> ========================================================================== >> > >> > _______________________________________________ >> > R-br mailing list >> > [email protected] >> > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> > >> > >> _______________________________________________ >> R-br mailing list >> [email protected] >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> > > > > -- > Grato > Augusto C. A. Ribas > > Site Pessoal: http://augustoribas.heliohost.org/ > http://dhost.info/augusto/ > Lattes: http://lattes.cnpq.br/7355685961127056 > > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > > -- Successful people ask better questions, and as a result, they get better answers. (Tony Robbins)
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
