[R] find and

[Ulrik Stervbo]

Using dplyr:

library(dplyr)

# Counting unique
DF4 %>%
  group_by(city) %>%
  filter(length(unique(var)) == 1)

# Counting not duplicated
DF4 %>%
  group_by(city) %>%
  filter(sum(!duplicated(var)) == 1)

HTH
Ulrik


On Sat, 18 Mar 2017 at 15:17 Rui Barradas <ruipbarradas at sapo.pt> wrote:

> Hello,
>
> I believe this does it.
>
>
> sp <- split(DF4, DF4$city)
> want <- do.call(rbind, lapply(sp, function(x)
>                 if(length(unique(x$var)) == 1) x else NULL))
> rownames(want) <- NULL
> want
>
>
> Hope this helps,
>
> Rui Barradas
>
> Em 18-03-2017 13:51, Ashta escreveu:
> > Hi all,
> >
> > I am trying to find a city that do not have the same "var" value.
> > Within city the var should be the same otherwise exclude the city from
> > the final data set.
> > Here is my sample data and my attempt. City1 and city4 should be
> excluded.
> >
> > DF4 <- read.table(header=TRUE, text=' city  wk var
> > city1  1  x
> > city1  2  -
> > city1  3  x
> > city2  1  x
> > city2  2  x
> > city2  3  x
> > city2  4  x
> > city3  1  x
> > city3  2  x
> > city3  3  x
> > city3  4  x
> > city4  1  x
> > city4  2  x
> > city4  3  y
> > city4  4  y
> > city5  3  -
> > city5  4  -')
> >
> > my attempt
> >       test2  <-   data.table(DF4, key="city,var")
> >       ID1    <-   test2[ !duplicated(test2),]
> >      dps     <-   ID1$city[duplicated(ID1$city)]
> >     Ddup  <-   which(test2$city %in% dps)
> >
> >      if(length(Ddup) !=0)  {
> >            test2   <-  test2[- Ddup,]  }
> >
> > want     <-  data.frame(test2)
> >
> >
> > I want get the following result but I am not getting it.
> >
> >     city wk var
> >    city2  1   x
> >    city2  2   x
> >    city2  3   x
> >    city2  4   x
> >    city3  1   x
> >    city3  2   x
> >   city3  3   x
> >   city3  4   x
> >   city5  3   -
> >   city5  4   -
> >
> > Can some help me out the problem is?
> >
> > Thank you.
> >
> > ______________________________________________
> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > 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.
> >
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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]]