[R] How can I get the Ids with Duplicated key and corresponding Ids with original key?

[Sri krishna Devarayalu Balanagu]

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:jim at bitwrit.com.au]
Sent: Monday, August 13, 2012 3:37 PM
To: Sri krishna Devarayalu Balanagu
Cc: r-help at 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).