R使用覆盖率数据库的完整功能

我试图在覆盖率数据库中填充隐式丢失的数据。对于每个场地、样带和样方，我希望每个样方包含整个数据库中的所有“标签”。因此，特定样方中缺失的任何标签都应包含等于0的“覆盖率”变量（参见所需输出）

数据库

---

默认情况下，数据

complete

是对您的团队的尊重，因此从技术上讲，每个团队内的一切都是

complete

d

取消分组，然后重试：

解组（数据）%>%
完整（场地、样带、样方、标签、填充=列表（覆盖率=0））
##tibble:24 x 5
#现场样带样方标签覆盖率
#                          
#1韩1裸子0.15
#2 HAN 1 CCA 0.07
#3个月1个月0
#4韩1波克梅亚0
#5韩1波科姆0.18
#6韩1波洛0.42
#7韩1草皮0.17
#8韩1海胆0.01
#9 HAN 1 2裸底座0.06
#10韩1 2 CCA 0.04
# # ... 还有14行

complete

默认情况下是向您的团队致敬，因此从技术上讲，每个团队内的一切都是

完成的

取消分组，然后重试：

解组（数据）%>%
完整（场地、样带、样方、标签、填充=列表（覆盖率=0））
##tibble:24 x 5
#现场样带样方标签覆盖率
#                          
#1韩1裸子0.15
#2 HAN 1 CCA 0.07
#3个月1个月0
#4韩1波克梅亚0
#5韩1波科姆0.18
#6韩1波洛0.42
#7韩1草皮0.17
#8韩1海胆0.01
#9 HAN 1 2裸底座0.06
#10韩1 2 CCA 0.04
# # ... 还有14行
这解决了我的问题。非常感谢。这解决了我的问题。非常感谢。
data <- structure(list(Site = c("HAN", "HAN", "HAN", "HAN", "HAN", "HAN", 
"HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", 
"HAN", "HAN", "HAN", "HAN"), Transect = c(1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Quadrat = c(1, 1, 1, 1, 
1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3), Label = c("Bare-Subst", 
"CCA", "PorComp", "PorLob", "Turf", "Urchins", "Bare-Subst", 
"CCA", "PocMea", "PorComp", "PorLob", "Turf", "Bare-Subst", "CCA", 
"MontiPat", "PocMea", "PorComp", "PorLob", "Turf"), percent_cover = c(0.15, 
0.07, 0.18, 0.42, 0.17, 0.01, 0.06, 0.04, 0.01, 0.09, 0.55, 0.25, 
0.05, 0.03, 0.01, 0.02, 0.24, 0.37, 0.28)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -19L), spec = structure(list(
    cols = list(Name = structure(list(), class = c("collector_character", 
    "collector")), Date = structure(list(), class = c("collector_character", 
    "collector")), Site = structure(list(), class = c("collector_character", 
    "collector")), Transect = structure(list(), class = c("collector_double", 
    "collector")), Quadrat = structure(list(), class = c("collector_double", 
    "collector")), Aux4 = structure(list(), class = c("collector_logical", 
    "collector")), Aux5 = structure(list(), class = c("collector_logical", 
    "collector")), Row = structure(list(), class = c("collector_double", 
    "collector")), Column = structure(list(), class = c("collector_double", 
    "collector")), Label = structure(list(), class = c("collector_character", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1), class = "col_spec"), groups = structure(list(
    Site = c("HAN", "HAN", "HAN"), Transect = c(1, 1, 1), Quadrat = c(1, 
    2, 3), .rows = list(1:6, 7:12, 13:19)), row.names = c(NA, 
-3L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))
data_desired <- structure(list(Site = c("HAN", "HAN", "HAN", "HAN", "HAN", "HAN", 
"HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", 
"HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN", "HAN"
), Transect = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1), Quadrat = c(1, 1, 1, 1, 1, 1, 1, 
1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 2), Label = c("Bare-Subst", 
"CCA", "MontiPat", "PocMea", "PorComp", "PorLob", "Turf", "Urchins", 
"Bare-Subst", "CCA", "MontiPat", "PocMea", "PorComp", "PorLob", 
"Turf", "Urchins", "Bare-Subst", "CCA", "MontiPat", "PocMea", 
"PorComp", "PorLob", "Turf", "Urchins"), percent_cover = c(0.15, 
0.07, 0, 0, 0.18, 0.42, 0.17, 0.01, 0.06, 0.04, 0, 0.01, 0.09, 
0.55, 0.25, 0, 0.05, 0.03, 0.01, 0.02, 0.24, 0.37, 0.28, 0)), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -24L), spec = structure(list(
    cols = list(Site = structure(list(), class = c("collector_character", 
    "collector")), Transect = structure(list(), class = c("collector_double", 
    "collector")), Quadrat = structure(list(), class = c("collector_double", 
    "collector")), Label = structure(list(), class = c("collector_character", 
    "collector")), percent_cover = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1), class = "col_spec"))
data_new <- data %>% complete(Site, Transect, Quadrat, Label, fill = list(percent_cover = 0))