Hi. Maybe this:

ct <- table(test)
as.numeric(names(ct[ct==max(ct)]))
test[test[,1]%in%as.numeric(names(ct[ct==max(ct)])),,drop=FALSE]

?

Andrija

On Wed, Jul 11, 2012 at 8:33 PM, Amanduh320 <aadams26@uwo.ca> wrote:

> I'm stuck on a seemingly simple problem. I'm trying to subset the data by
> several numbers and it cuts out half of the rows. Here is the sample code:
>
> test <- as.matrix(c(1,1,1,1,3,3,7,7,7,7))
> Count <- tapply(test[,1], test[,1], length)   # count for each value
> spp <- unique(test[,1])
> Count1 <- as.data.frame(cbind(Count,spp))
> Max <- max(Count)
> Count1$sppMax <- ifelse(Count1$Count >= Max, Count1$spp, 0)  # only keep
> values that =Max
> Count2 <- subset(Count1, sppMax > 0)    #get rid of values that are less
> than Max
> AllMax <- unique(Count2$sppMax)
> test2 <- subset(test, test[,1] == AllMax)
>
>
> this works where there is only one value for AllMax, how to make it work
> when there are multiple?
>
> Thank you!
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Subset-based-on-multiple-values-tp4636159.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]

