用统计到的频数作为条件进行排序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据格式： 时间                车牌             设备编码
2019-09-06    川A123456      ********
2019-09-07    川A123456      ********
2019-09-08    川A123456      ********
2019-09-09    川A333333      ********
2019-09-09    川A123456      ********
2019-09-10    川A333333      ********
2019-09-10    川A666666      ********

实现效果：
筛选出现频数大于3的车牌并维持原记录，即预想的结果是
时间                车牌             设备编码
2019-09-06    川A123456      ********
2019-09-07    川A123456      ********
2019-09-08    川A123456      ********


2019-09-09    川A123456      ********

代码：
data<-data[which(table(data$车牌)>3),]

问题：
经过调试发现，which(table(data$车牌)>10)能正确选出大于10的车牌，但会对结果建立一个新的序列，所以which得到的int值不再对应原始data的位置，因此选出的车牌并不是目标车牌，请问有什么其他办法能达到我的目的吗？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 数据处理 数据清洗原理

1. library(tidyverse)
   
2. 
   
3. x <- tribble(
   
4.    ~时间,                ~车牌,
   
5.   '2019-09-06',    '川A123456',      
   
6.     '2019-09-07',    '川A123456',   
   
7.     '2019-09-08',    '川A123456',   
   
8.     '2019-09-09',    '川A333333',   
   
9.     '2019-09-09',    '川A123456',   
   
10.     '2019-09-10',    '川A333333',   
    
11.     '2019-09-10',    '川A666666'   
    
12. )
    
13. 
    
14. filter.x <- x %>%
    
15.   count(车牌) %>%
    
16.   filter(n > 3)
    
17.   
    
18. result <- filter.x %>%
    
19.   left_join(x, by=c('车牌'='车牌'))
    
20. 
    
21. 车牌          n 时间      
    
22.   <chr>     <int> <chr>     
    
23. 1 川A123456     4 2019-09-06
    
24. 2 川A123456     4 2019-09-07
    
25. 3 川A123456     4 2019-09-08
    
26. 4 川A123456     4 2019-09-09

复制代码

drunkfish69 发表于 2020-4-17 19:29

万分感谢，真棒老哥，这段代码让我想起来我之前用python也是类似用的两个数据框合并实现的，我竟然忘了这个思路。