在R中應用函數以比較列

Question

我有一個名為df的數據df 。 我想檢查每個文檔的xcoordinate 和 ycoordinate是否相同。

doc <- c("doc1", "doc2", "doc3") 
xcor <- c(3,4,5,3,4,5,3,4,4)   
ycor <- c(2,6,8,2,6,8,2,6,8) 
df <- data.frame(doc,xcor,ycor) 
df

doc xcor ycor  
doc1    3    2   
doc2    4    6  
doc3    5    8 
doc1    3    2  
doc2    4    6    
doc3    5    8  
doc1    3    2  
doc2    4    6  
doc3    4    8

我現在正在為所有應用功能苦苦掙扎，但這並不會導致期望的結果。
哪一個

doc1 TRUE  
doc2 TRUE  
doc3 FALSE

Answer 1

我認為您不需要apply功能。 在消除重復的行之后，我們可以計算重復文檔的數量：

table(df[!duplicated(df),]$doc) == 1

 doc1  doc2  doc3 
 TRUE  TRUE FALSE

或更短（@DavidArenburg）：

table(unique(df)$doc) == 1

Answer 2

好了，您仍然可以使用lapply實現它：

unlist(lapply(lapply(lapply(split(df, doc), unique), nrow), `==`, 1))

看起來有點凌亂，但可以。