唯一性约束

R 中的数据清洗

Maggie Matsui

Content Developer @ DataCamp

什么是重复？

First name Last name Address Credit score
1 Miriam Day 6042 Sollicitudin Avenue 313
2 Miriam Day 6042 Sollicitudin Avenue 313

 

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit St 356
2 Tamekah Forbes P.O. Box 147, 511 Velit St 342
R 中的数据清洗

为何会出现重复？

电脑屏幕上显示数据表。数据录入和人为错误

R 中的数据清洗

为何会出现重复？

带有虫子图标的电脑。缺陷与设计错误。

R 中的数据清洗

为何会出现重复？

5 个数据库围成一圈，各有箭头指向一个更大的数据库。连接或合并错误。

R 中的数据清洗

完全重复

First name Last name Address Credit score
1 Harper Taylor P.O. Box 212, 6557 Nunc Road 655
2 Miriam Day 6042 Sollicitudin Avenue 313
3 Eagan Schmidt 507-6740 Cursus Avenue 728
4 Miriam Day 6042 Sollicitudin Avenue 313
5 Katell Roy Ap #434-4081 Mi Av. 455
6 Katell Roy Ap #434-4081 Mi Av. 455
... ... ... ... ...
R 中的数据清洗

查找完全重复

duplicated(credit_scores)

FALSE FALSE FALSE TRUE FALSE ...

sum(duplicated(credit_scores))

2
R 中的数据清洗

查找完全重复

filter(credit_scores, duplicated(credit_scores))

  first_name last_name                  address credit_score
1     Miriam       Day 6042 Sollicitudin Avenue          313
2     Katell       Roy      Ap #434-4081 Mi Av.          455
R 中的数据清洗

删除完全重复项

credit_scores_unique <- distinct(credit_scores)

sum(duplicated(credit_scores_unique))

0
R 中的数据清洗

部分重复

First name Last name Address Credit score
1 Harper Taylor P.O. Box 212, 6557 Nunc Road 655
2 Eagan Schmidt 507-6740 Cursus Avenue 728
3 Tamekah Forbes P.O. Box 147, 511 Velit Street 356
4 Tamekah Forbes P.O. Box 147, 511 Velit Street 342
5 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620
6 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 636
... ... ... ... ...
R 中的数据清洗

查找部分重复

credit_scores %>%

  count(first_name, last_name) %>%

  filter(n > 1)

  first_name last_name     n
  <fct>      <fct>     <int>
1 Katell     Roy           2
2 Miriam     Day           2
3 Tamekah    Forbes        2
4 Xandra     Barrett       2
R 中的数据清洗

查找部分重复

dup_ids <- credit_scores %>%
  count(first_name, last_name) %>%
  filter(n > 1)

credit_scores %>%
  filter(first_name %in% dup_ids$first_name,  last_name %in% dup_ids$last_name)

  first_name last_name                           address credit_score
1     Xandra   Barrett  P.O. Box 309, 2462 Pharetra, Rd.          620
2    Tamekah    Forbes    P.O. Box 147, 511 Velit Street          356
3     Miriam       Day          6042 Sollicitudin Avenue          313
4     Xandra   Barrett  P.O. Box 309, 2462 Pharetra, Rd.          636
5    Tamekah    Forbes    P.O. Box 147, 511 Velit Street          342
...
R 中的数据清洗

处理部分重复：删除

删除重复，仅保留一条

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356
2 Tamekah Forbes P.O. Box 147, 511 Velit Street 342
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620
4 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 636
R 中的数据清洗

处理部分重复：删除

删除重复，仅保留一条

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356
2
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620
4
R 中的数据清洗

处理部分重复：删除

删除重复，仅保留一条

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620
R 中的数据清洗

删除部分重复项

credit_scores %>%
  distinct(first_name, last_name, .keep_all = TRUE)

    first_name   last_name                                address credit_score
1       Harlan      Hebert             P.O. Box 356, 3869 Non Av.          305
2        Drake        Soto                     643-1409 Ac Avenue          642
3        Felix     Morales                     741-1497 Velit Ave          780
4       Brynne     Charles                  313-3757 Ultrices St.          513
5       Aquila      Dillon      P.O. Box 945, 5550 Aliquam Street          748
...
R 中的数据清洗

处理部分重复：汇总

用统计汇总函数汇总差异值（mean()、max() 等）

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356
2 Tamekah Forbes P.O. Box 147, 511 Velit Street 342
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620
4 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 636
R 中的数据清洗

处理部分重复：汇总

用统计汇总函数汇总差异值（mean()、max() 等）

First name Last name Address Credit score Mean credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356 349
2 Tamekah Forbes P.O. Box 147, 511 Velit Street 342
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620 628
4 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 636
R 中的数据清洗

处理部分重复：汇总

用统计汇总函数汇总差异值（mean()、max() 等）

First name Last name Address Credit score Mean credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 356 349
2
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 620 628
4
R 中的数据清洗

处理部分重复：汇总

用统计汇总函数汇总差异值（mean()、max() 等）

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 349
2
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 628
4
R 中的数据清洗

处理部分重复：汇总

用统计汇总函数汇总差异值（mean()、max() 等）

First name Last name Address Credit score
1 Tamekah Forbes P.O. Box 147, 511 Velit Street 349
3 Xandra Barrett P.O. Box 309, 2462 Pharetra Rd. 628
R 中的数据清洗

汇总部分重复

credit_scores %>%

  group_by(first_name, last_name) %>%

  mutate(mean_credit_score = mean(credit_score))

  first_name last_name address                          credit_score mean_score
1 Tamekah    Forbes    P.O. Box 147, 511 Velit Street            356        349
2 Tamekah    Forbes    P.O. Box 147, 511 Velit Street            342        349
3 Xandra     Barrett   P.O. Box 309, 2462 Pharetra, Rd.          636        628
4 Xandra     Barrett   P.O. Box 309, 2462 Pharetra, Rd.          620        628
5 Katell     Roy       Ap #434-4081 Mi Av.                       455        455
...
R 中的数据清洗

汇总部分重复

credit_scores %>%
  group_by(first_name, last_name) %>%
  mutate(mean_credit_score = mean(credit_score)) %>%

  distinct(first_name, last_name, .keep_all = TRUE) %>%

  select(-credit_score)

  first_name last_name address                          mean_score
  <fct>      <fct>     <fct>                                 <dbl>
1 Tamekah    Forbes    P.O. Box 147, 511 Velit Street          349
2 Xandra     Barrett   P.O. Box 309, 2462 Pharetra, Rd.        628
3 Katell     Roy       Ap #434-4081 Mi Av.                     455
4 Miriam     Day       6042 Sollicitudin Avenue                313
...
R 中的数据清洗

Passons à la pratique !

R 中的数据清洗

Preparing Video For Download...