排序表的唯一參數

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