[R] Common elements

[Rui Barradas]

Hello,

If I understand correctly, here are two different ways of doing what you 
want.

1) base R.

i <- duplicated(df1[[2]])
j <- duplicated(df1[[2]], fromLast = TRUE)
res <- df1[i | j, ]

res[order(res[[2]]), ]    # not strictly needed


2) with package dplyr. If you do not want to order by Mother,
delete the last %>%, at the end of the line and the next line, 
arrange(Mother).

library(dplyr)

df1 %>% group_by(Mother) %>% filter(n() > 1) %>%
   arrange(Mother)


#------------ dataset ------------------
# Note that your data seems to be a matrix,
# read.table creates data.frames

df1 <- read.table(text = "
       Animal Mother
[1,]   1143    430
[2,]   1144    134
[3,]   1146      3
[4,]   1147    151
[5,]   1150    230
[6,]   1156    290
[7,]   1157    227
[8,]   1159    757
[9,]   1160      3
[10,]   1161    236
[11,]   1162    231
[12,]   1164    132
[13,]   1165    420
[14,]   1168    290
[15,]   1169    229
[16,]   1172    425
[17,]   1173    134
[18,]   1174    234
[19,]   1175    233
[20,]   1178    239
[21,]   1179    757
[22,]   1180    236
[23,]   1185    420
[24,]   1186    389
[25,]   1190    425
[26,]   1192    235
", header = TRUE)
row.names(df1) <- NULL



Hope this helps,

Rui Barradas


Às 17:51 de 08/03/2019, Silvano Cesar da Costa escreveu:
> Hi,
> 
> I have a dataset with ten columns, but I need extract only lines that has
> common elements.
> The columns are:
> 
>        Animal Mother
>   [1,]   1143    430
>   [2,]   1144    134
>   [3,]   1146      3
>   [4,]   1147    151
>   [5,]   1150    230
>   [6,]   1156    290
>   [7,]   1157    227
>   [8,]   1159    757
>   [9,]   1160      3
> [10,]   1161    236
> [11,]   1162    231
> [12,]   1164    132
> [13,]   1165    420
> [14,]   1168    290
> [15,]   1169    229
> [16,]   1172    425
> [17,]   1173    134
> [18,]   1174    234
> [19,]   1175    233
> [20,]   1178    239
> [21,]   1179    757
> [22,]   1180    236
> [23,]   1185    420
> [24,]   1186    389
> [25,]   1190    425
> [26,]   1192    235
> 
> How can I do this?
> 
> Thanks.
> 
> Prof. Dr. Silvano Cesar da Costa
> Universidade Estadual de Londrina
> Centro de Ciências Exatas
> Departamento de Estatística
> 
> Fone: (43) 3371-4346
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help using 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.
>