排序表的唯一参数

Question

我有一个表称为myTable（输入）：

user_name session_num 
1  "Joe"   1  
2  "Tom"   2  
3 "Fred"   1  
4  "Tom"   1  
5  "Joe"   2  
6  "John"   1 

我想知道有多少我user_id有只有session_num = 1（输出）：

user_name session_num 
1  "Fred"    1 
2  "John"    1 

Answer 1

下面是使用data.table

library(data.table) 
setDT(df)[, if(all(session_num == 1)) .SD, by = user_name] 
# user_name session_num 
# 1:  Fred   1 
# 2:  John   1 

另一种选择是尝试反联接

df[session_num == 1][!df[session_num != 1], on = "user_name"] 
# user_name session_num 
# 1:  Fred   1 
# 2:  John   1 

Answer 2

这是2行答案：

library(data.table) 
data1<-fread("test.csv") 
data1[user_name == names(which(table(data1$user_name)==1)),][session_num==1,] 

首先看看谁在数据集中只有一次，然后是其中的那些子集，其中session_num==1。

Answer 3

或者我们可以简单地排除具有比1其他会话号的所有用户可能的解决方案，使用base R.

# User's with session number other than 1 
two <- myTable$user_name[myTable$session_num != 1] 

# Exclude them 
myTable[!myTable$user_name %in% two,] 
# user_name session_num 
#3  Fred   1 
#6  John   1 

Answer 4

与dplyr一个同类解决方案：

library(dplyr) 
myTable %>% 
    group_by(user_name) %>% 
    filter(all(session_num == 1)) 

这给：

user_name session_num 
    (fctr)  (int) 
1  Fred   1 
2  John   1