根据单个列的内容将数据行添加到小标题

Question

我想根据tibble 列之一中存在的值自动向现有tibble 添加一行或多行。

数据

    A   B   C   D     E
1   1   1   1   5   7.81
2   1   1   1   4   13.12
3   1   1   1   5   3.39
4   1   1   1   4   3.28
5   1   1   1   5   2.69
6   1   1   1   2   5.70
7   1   1   1   1   8.22

如果“D”中缺少“3”，则预期输出

    A   B   C   D     E
1   1   1   1   5   7.81
2   1   1   1   4   13.12
3   1   1   1   5   3.39
4   1   1   1   4   3.28
5   1   1   1   5   2.69
6   1   1   1   2   5.70
7   1   1   1   1   8.22
8   1   1   1   3   0.00

在tibble 列D 中，值的范围应为1:5，具体取决于数据集。

我希望能够识别列D 中是否缺少此范围中的一个或多个数字，如果缺少一个值（例如3），我想添加一个新行来复制列中的数据@ 987654329@ 并在 D 列中输入 3，在 E 列中输入 0。如果缺少两个或多个值（例如 3 和 4）我想添加两行等。

Answer 1

你可以使用tidyr::complete:

library(tidyverse)

Data %>% 
     complete(nesting(A,B,C), D = seq(min(D), max(D), 1L))

#> # A tibble: 8 x 5
#>       A     B     C     D     E
#>   <int> <int> <int> <int> <dbl>
#> 1     1     1     1     1  8.22
#> 2     1     1     1     2  5.7 
#> 3     1     1     1     3 NA   
#> 4     1     1     1     4 13.1 
#> 5     1     1     1     4  3.28
#> 6     1     1     1     5  7.81
#> 7     1     1     1     5  3.39
#> 8     1     1     1     5  2.69

我建议不要使用0 而不是NA，但如果您想将它们添加到底部并将它们作为0，那么这样可以：

Data %>% 
     complete(nesting(A,B,C), D = seq(min(D), max(D), 1L)) %>% 
     arrange(is.na(E)) %>% 
     mutate(E = replace_na(E, 0))

#> # A tibble: 8 x 5
#>       A     B     C     D     E
#>   <int> <int> <int> <int> <dbl>
#> 1     1     1     1     1  8.22
#> 2     1     1     1     2  5.7 
#> 3     1     1     1     4 13.1 
#> 4     1     1     1     4  3.28
#> 5     1     1     1     5  7.81
#> 6     1     1     1     5  3.39
#> 7     1     1     1     5  2.69
#> 8     1     1     1     3  0

^{由reprex package (v0.3.0) 于 2019 年 6 月 20 日创建}