測試：

test1 <- data.frame(v1 = 1:5, v2 = letters[1:5])
test1
test2 <- data.frame(v1 = 1:5, v2 = letters[1:5])
test2
test1 %in% test2
all(test1 == test2)
test3 <- data.frame(v1 = 1:5, v2 = letters[1:5])
test3
test4 <- data.frame(v1 = 2:6, v2 = letters[1:5])
test4
test3 %in% test4
all(test3 
 
== test4)

> test1 <- data.frame(v1 = 1:5, v2 = letters[1:5])  ## 測試資料框1
> test1
  v1 v2
1  1  a
2  2  b
3  3  c
4  4  d
5  5  e
> test2 <- data.frame(v1 = 1:5, v2 = letters[1:5])  ##測試資料框2
> test2
  v1 v2
1  1  a
2  2  b
3  3  c
4  4  d
5  5  e
> test1 %in% test2    ## 用%in%判斷，按列進行判斷，每一列返回一個布林值
 

[1] TRUE TRUE
> all(test1 == test2)   ## 用all進行判斷，只返回一個值
[1] TRUE
> test3 <- data.frame(v1 = 1:5, v2 = letters[1:5])  ## 測試資料框3
> test3
  v1 v2
1  1  a
2  2  b
3  3  c
4  4  d
5  5  e
> test4 <- data.frame(v1 = 2:6, v2 = letters[1:5])  ##測試資料框4
> test4
  v1 v2
1  2  a
2  3  b
3
 
  4  c
4  5  d
5  6  e
> test3 %in% test4  
[1] FALSE  TRUE      ## 第一列不同，第二列相同
> all(test3 == test4)  ## 整體判斷
[1] FALSE