Does this do what you need? is.dup <- key %in% key[duplicated(key)]
-Don -- Don MacQueen Lawrence Livermore National Laboratory 7000 East Ave., L-627 Livermore, CA 94550 925-423-1062 On 8/13/12 4:07 AM, "Sri krishna Devarayalu Balanagu" <balanagudevaray...@gvkbio.com> wrote: >Thank you for the quick response. >But I want those duplicated with Ids in a separate vector like >Duplicated.ids in the below example? >Duplication should be checked for Publication and Reference combination, >not on a single variable. > > >Regards >Rayalu >-----Original Message----- >From: Jim Lemon [mailto:j...@bitwrit.com.au] >Sent: Monday, August 13, 2012 3:37 PM >To: Sri krishna Devarayalu Balanagu >Cc: r-help@r-project.org >Subject: Re: [R] How can I get the Ids with Duplicated key and >corresponding Ids with original key? > >On 08/13/2012 07:17 PM, Sri krishna Devarayalu Balanagu wrote: >> >> In this following example Id 4 is duplicated with Id 1. >> Like this I want both Ids (Duplicated and Duplicated with). Can anyone >>help? >> >> df<- data.frame( >> "Publication" = c(1, 2, 3, 1, 4, 5, 2, 3), >> "Reference" = c("a", "b", "c", "a", "d", "e", "b", "c"), >> "Id"= c(1, 2, 3, 4, 5, 6, 7, 8) >> ) >> >> key<- paste(df$Publication, df$Reference, sep="_") >> df.key<- cbind(key, df) >> Duplicated.ids<- df.key[duplicated(df.key$key), c("Id")] >> >Hi Sri krishna Devarayalu Balanagu, >Does this do it? > >cat("Id Publication(s)\n") >for(pub in unique(df$Publication)) > cat(pub,"-",df$Id[which(df$Publication==pub)],"\n") > >Jim >________________________________ >Notice: The information contained in this electronic mail message is >intended only for the use of the designated recipient. This message is >privileged and confidential. and the property of GVK BIO or its >affiliates and subsidiaries. If the reader of this message is not the >intended recipient or an agent responsible for delivering it to the >intended recipient, you are hereby notified that you have received this >message in error and that any review, dissemination, distribution, or >copying of this message is strictly prohibited. If you have received this >communication in error, please notify us immediately by telephone >+91-40-66929999<tel:%2B91-40-66929999> and destroy any and all copies of >this message in your possession (whether hard copies or electronically >stored copies). > >______________________________________________ >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. ______________________________________________ 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.
