去除一列数据中出现次数只有一次的数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

比如我有一类数据
name,score
1,2
1,2
2,3
3,2
3,4
看第一列的数据，1和3都出现两次，2至出现一下，删除2这条记录。请教一下是否有好的方法？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：score SCOR name core cor 记录

可以写一个简单的小函数来实现操作：

1. deleteuniquelines <- function(x) {# x为输入的数据框
   
2.         stand.col <- x[, 1] # 设根据x的第一列进行删除操作
   
3.         count <- table(stand.col)
   
4.         if (all(count < 2)) stop("no repeated records")
   
5.         else {
   
6.                 ind <- sapply(stand.col, function(t) ifelse(count[as.character(t)] > 1, TRUE, FALSE))
   
7.         }
   
8.         return(x[ind, ])
   
9. }
   
10. 
    
11. test <- data.frame(name = c(1, 1, 2, 3, 3), score = c(2, 2, 3, 2, 4))
    
12. deleteuniquelines(test)

复制代码

as.data.frame(table(name))结果是两列 一列是name一列是name的frequency
把frequency=1的name挑出来
delete相应的观测值

用dplyr包实现比较简单。
library(dplyr)
dat %>% group_by(name) %>% mutate(count=n()) %>% filter(n>1) %>% select(-count)

dt=data.frame(name=c(1,1,2,3,3),score=c(2,2,3,2,4))
unique(dt)

hugebear 发表于 2015-4-5 03:24
可以写一个简单的小函数来实现操作：

谢谢，新学了不少函数

ofzhengyi 发表于 2015-4-5 15:44
用dplyr包实现比较简单。
library(dplyr)
dat %>% group_by(name) %>% mutate(count=n()) %>% filter(n>1 ...

没用过这个包，看起来很高端

我自己也解决了一下这个问题

1. x.table = table(x[,1])
   
2. x.table = as.matrix(x.table)
   
3. x.select = rownames(x.table)[which(x.table>1)]
   
4. x.select = as.matrix(x.select)
   
5. colnames(x.select) = "ID"
   
6. data = merge(x,x.select,by.x="name",by.y="ID")

复制代码

主要思路是把出现次数大于1的名字提出来，然后join操作一下。

ofzhengyi 发表于 2015-4-5 15:44
用dplyr包实现比较简单。
library(dplyr)
dat %>% group_by(name) %>% mutate(count=n()) %>% filter(n>1 ...

今天认真看了一下这个包，功能真实很强大！再次感谢~！

yilence 发表于 2015-4-6 22:22
今天认真看了一下这个包，功能真实很强大！再次感谢~！

客气了。可以减少很多代码量~