R填充空白数据框

Question

我有一个数据框，看起来如下。

     Q      C       N
     2      234     white
     3      888     white
     4      543     white
     5      234     white
     1      098     Blue
     3      126     Blue
     5      366     Black
     1      222     pink
     2      897     pink  

我希望数据框看起来像这样。

     Q      C       N
     1      555     white
     2      234     white
     3      888     white
     4      543     white
     5      234     white
     1      098     Blue
     2      0       Blue
     3      126     Blue
     4      0       Blue
     5      0       Blue
     1      0       Black
     2      0       Black
     3      0       Black
     4      0       Black
     5      366     Black
     1      222     pink
     2      897     pink  
     3      0       pink
     4      0       pink
     5      0       pink  

我希望它看起来像这样。 这个想法是，如果Q始终没有出现，我总是必须从1-5开始。我希望数据框有一行，因为质量是缺少名称的那一行，并为C填充0。谢谢

Answer 1

library(tidyr)
complete(df, Q, N, fill = list(C = 0))

获取您想要的（假设您的数据称为df ）。 它会重新排列列和行的顺序，但是您可以根据需要进行排序。

---

使用此数据作为输入：

df <- structure(list(Q = c(2L, 3L, 4L, 5L, 1L, 3L, 5L, 1L, 2L), C = c(234L, 
888L, 543L, 234L, 98L, 126L, 366L, 222L, 897L), N = structure(c(4L, 
4L, 4L, 4L, 2L, 2L, 1L, 3L, 3L), .Label = c("Black", "Blue", 
"pink", "white"), class = "factor")), .Names = c("Q", "C", "N"
), class = "data.frame", row.names = c(NA, -9L))

df
#   Q   C     N
# 1 2 234 white
# 2 3 888 white
# 3 4 543 white
# 4 5 234 white
# 5 1  98  Blue
# 6 3 126  Blue
# 7 5 366 Black
# 8 1 222  pink
# 9 2 897  pink

complete(df, Q, N, fill = list(C = 0))
# # A tibble: 20 x 3
#        Q      N     C
#    <int> <fctr> <dbl>
# 1      1  Black     0
# 2      1   Blue    98
# 3      1   pink   222
# 4      1  white     0
# 5      2  Black     0
# 6      2   Blue     0
# 7      2   pink   897
# 8      2  white   234
# 9      3  Black     0
# 10     3   Blue   126
# 11     3   pink     0
# 12     3  white   888
# 13     4  Black     0
# 14     4   Blue     0
# 15     4   pink     0
# 16     4  white   543
# 17     5  Black   366
# 18     5   Blue     0
# 19     5   pink     0
# 20     5  white   234

Answer 2

我们也可以在base R使用expand.grid进行merge

transform(merge(expand.grid(Q= unique(df$Q), N = unique(df$N)), 
               df, all.x=TRUE), C = replace(C, is.na(C), 0))
#   Q     N   C
#1  1 Black   0
#2  1  Blue  98
#3  1  pink 222
#4  1 white   0
#5  2 Black   0
#6  2  Blue   0
#7  2  pink 897
#8  2 white 234
#9  3 Black   0
#10 3  Blue 126
#11 3  pink   0
#12 3 white 888
#13 4 Black   0
#14 4  Blue   0
#15 4  pink   0
#16 4 white 543
#17 5 Black 366
#18 5  Blue   0
#19 5  pink   0
#20 5 white 234