寻找缺失的配对组合

Question

我有一个数据框。我想找出某个地区没有记录哪种疾病。例如： A区没有腮腺炎

我想做的是，只要一个地区没有疾病，我想在第 n 列中记录一个零。

我认为它可能类似于

DATA$missing<-DATA%>% if (DISEASE %in% DISEASE){"no"}

但这行不通，我真的没想到它会起作用，但确实希望它会...

这是我的数据，在此示例中，我通过过滤原始测试数据帧从区域 A 中删除了 Mumps。我如何确定 Mumps 不在这个新数据集中的区域 A 中？以及可能缺失的 DISEASE AND AREA 的其他组合，然后 return count 列中的 n = 0 值？谢谢。

library (tidyverse)
library (epitools)


# here's my made up data

DISEASE = c("Marco Polio","Marco Polio","Marco Polio","Marco Polio","Marco Polio",
            "Mumps","Mumps","Mumps","Mumps","Mumps",
            "Chicky Pox","Chicky Pox","Chicky Pox","Chicky Pox","Chicky Pox")
YEAR = c(2011, 2012, 2013, 2014, 2015,
         2011, 2012, 2013, 2014, 2015,
         2011, 2012, 2013, 2014, 2015)
VALUE = c(82,89,79,51,51,
          79,91,69,89,78,
          71,69,95,61,87)
AREA =c("A", "B","C")

DATA = data.frame(DISEASE, YEAR, VALUE,AREA)

DATA<-DATA%>%filter(DISEASE !="Mumps" | AREA !="A")

编辑：我的预期结果是这样

new_row<-c("Mumps","2015",0,"A")
DATA<-rbind(DATA,new_row)

Answer 1

DATA %>% complete(AREA, DISEASE, fill=list(VALUE=0))
# A tibble: 14 x 4
# Groups:   AREA [3]
   AREA  DISEASE      YEAR VALUE
   <fct> <fct>       <dbl> <dbl>
 1 A     Chicky Pox   2013    95
 2 A     Marco Polio  2011    82
 3 A     Marco Polio  2014    51
 4 A     Mumps          NA     0
 5 B     Chicky Pox   2011    71
 6 B     Chicky Pox   2014    61
 7 B     Marco Polio  2012    89
 8 B     Marco Polio  2015    51
 9 B     Mumps        2013    69
10 C     Chicky Pox   2012    69
11 C     Chicky Pox   2015    87
12 C     Marco Polio  2013    79
13 C     Mumps        2011    79
14 C     Mumps        2014    89

如果您希望 0 行具有特定年份，您可以将其添加到 fill=list() 参数中。

寻找缺失的配对组合

Finding missing pair combinations

r

dplyr

data-munging