删除重复，保持最大绝对值的输入 [英] Remove duplicates keeping entry with largest absolute value

问题描述

假设我有四个样本：id = 1,2,3和4，每个样本都有一个或多个测量值：

 > a<  -  data.frame（id = c（1,1,2,2,3,4），value = c（1,2,3，-4，-5,6））
> a 
 id值
 1 1 1 
 2 1 2 
 3 2 3 
 4 2 -4 
 5 3 -5 
 6 4 6 
  

我想删除重复项，每个ID只保留一个条目 - 绝对值最大的条目的值列。也就是我想要的：

 > a [c（2,4,5,6）]] 
 id值
 2 1 2 
 4 2 -4 
 5 3 -5 
 6 4 6 
  

如何在R中执行此操作？

解决方案

  aa<  -  a [order（a $ id， $ value）），] #sort由id和反向abs（值）
 aa [！duplicateated（aa $ id），]＃取第一行每个id 
 id值
 2 1 2 
 4 2 -4 
 5 3 -5 
 6 4 6 
  

Let's say I have four samples: id=1, 2, 3, and 4, with one or more measurements on each of those samples:

> a <- data.frame(id=c(1,1,2,2,3,4), value=c(1,2,3,-4,-5,6))
> a
  id value
1  1     1
2  1     2
3  2     3
4  2    -4
5  3    -5
6  4     6

I want to remove duplicates, keeping only one entry per ID - the one having the largest absolute value of the "value" column. I.e., this is what I want:

> a[c(2,4,5,6), ]
  id value
2  1     2
4  2    -4
5  3    -5
6  4     6

How might I do this in R?

解决方案

 aa <- a[order(a$id, -abs(a$value) ), ] #sort by id and reverse of abs(value)
 aa[ !duplicated(aa$id), ]              # take the first row within each id
  id value
2  1     2
4  2    -4
5  3    -5
6  4     6

这篇关于删除重复，保持最大绝对值的输入的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！