df = combat_edata1
# Sort the values in each row
df_sorted <- t(apply(df, 1, function(x) sort(x)))
head(df_sorted, 5)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## Arfgap1 21.93373 21.93930 22.09493 22.29880 22.59667 22.65586 23.06674 23.30168
## Apoe 22.59969 23.47953 23.51875 23.63176 24.52558 24.58861 24.65444 24.92959
## Rbbp9 20.95399 21.11208 21.20977 21.64990 22.24809 22.57442 22.71755 23.83626
## Rangap1 20.14662 20.71888 20.84447 21.04482 21.64492 21.64776 22.07396 25.07574
## Lnp 21.08098 21.09491 21.72275 21.76109 21.98982 22.47895 22.66357 23.96970
## [,9]
## Arfgap1 24.32870
## Apoe 25.07771
## Rbbp9 24.06946
## Rangap1 27.86164
## Lnp 25.72523
# Find duplicated rows
duplicate_rows <- duplicated(df_sorted)
head(duplicate_rows, 5)
## Arfgap1 Apoe Rbbp9 Rangap1 Lnp
## FALSE FALSE FALSE FALSE FALSE
#removing of duplicates
duplicate_rows_df <- df[!duplicate_rows, ]
head(duplicate_rows_df, 10)
## Aldh1l1.Cre.MetRs.35_control Aldh1l1.Cre.MetRs.61_control
## Arfgap1 22.29880 23.06674
## Apoe 23.47953 24.92959
## Rbbp9 24.06946 21.64990
## Rangap1 27.86164 22.07396
## Lnp 21.72275 21.76109
## Cacng8 24.77674 22.86883
## Adss 22.83406 23.72005
## Prkca 24.56691 24.03905
## Atp5d 27.02288 22.17432
## Fahd2 22.41839 23.10038
## Aldh1l1.Cre.MetRs.62_control Aldh1l1.Cre.MetRs.39_BCCAO
## Arfgap1 21.93373 21.93930
## Apoe 23.51875 25.07771
## Rbbp9 21.11208 22.71755
## Rangap1 21.04482 20.84447
## Lnp 21.98982 21.09491
## Cacng8 24.66616 23.62419
## Adss 23.55271 24.14017
## Prkca 24.55273 23.97383
## Atp5d 22.81236 21.88369
## Fahd2 22.36774 22.93976
## Aldh1l1.Cre.MetRs.40_BCCAO Aldh1l1.Cre.MetRs.48_BCCAO
## Arfgap1 24.32870 22.65586
## Apoe 24.52558 24.65444
## Rbbp9 20.95399 22.24809
## Rangap1 20.14662 21.64492
## Lnp 22.66357 23.96970
## Cacng8 24.35854 24.75577
## Adss 22.49199 24.00631
## Prkca 23.91976 24.54376
## Atp5d 24.68354 22.12120
## Fahd2 23.16439 23.35248
## Aldh1l1.Cre.MetRs.50_BCCAO Aldh1l1.Cre.MetRs.51_BCCAO
## Arfgap1 23.30168 22.59667
## Apoe 22.59969 23.63176
## Rbbp9 23.83626 21.20977
## Rangap1 21.64776 20.71888
## Lnp 25.72523 21.08098
## Cacng8 24.86118 23.75925
## Adss 22.28048 23.73276
## Prkca 23.84122 24.38963
## Atp5d 24.97158 24.47848
## Fahd2 22.50589 22.91858
## Aldh1l1.Cre.MetRs.52_BCCAO
## Arfgap1 22.09493
## Apoe 24.58861
## Rbbp9 22.57442
## Rangap1 25.07574
## Lnp 22.47895
## Cacng8 25.06008
## Adss 22.87820
## Prkca 24.70170
## Atp5d 27.08917
## Fahd2 22.21941