R語言中提取兩個數據框中完全相同的行及保留唯一行

 

a <- 1:5
b <- letters[1:5]
c <- LETTERS[1:5]
d <- rep(1,5)
dat1 <- data.frame(rbind(a,b,c))
dat2 <- data.frame(rbind(b,c,d))
dat1
dat2
dat3 <- rbind(dat1,dat2)
dat3
dup <- dat3[duplicated(dat3),]
dup
uniq <- dat3[!duplicated(dat3),]
uniq

> a <- 1:5
> b <- letters[1:5]
> c <- LETTERS[1:5]
> d <- rep(1,5)
> dat1 <- data.frame(rbind(a,b,c))
> dat2 <- data.frame(rbind(b,c,d))
> dat1     ## 測試數據框1
  X1 X2 X3 X4 X5
a  1  2  3  4  5
b  a  b  c  d  e
c  A  B  C  D  E
> dat2     ## 測試數據框2
  X1 X2 X3 X4 X5
b  a  b  c  d  e
c  A  B  C  D  E
d  1  1  1  1  1
> dat3 <- rbind(dat1,dat2)   ## 按行合並兩個測試數據框 > dat3
   X1 X2 X3 X4 X5
a   1  2  3  4  5
b   a  b  c  d  e
c   A  B  C  D  E
b1  a  b  c  d  e
c1  A  B  C  D  E
d   1  1  1  1  1
> dup <- dat3[duplicated(dat3),]  ## 提取重復行 > dup
   X1 X2 X3 X4 X5
b1  a  b  c  d  e
c1  A  B  C  D  E
> uniq <- dat3[!duplicated(dat3),]   ## 保留偉一行 > uniq
  X1 X2 X3 X4 X5
a  1  2  3  4  5
b  a  b  c  d  e
c  A  B  C  D  E
d  1  1  1  1  1