::: {.cell hash='05_presentation_cache/revealjs/presence_absence_78d2375896f8d9b42a8ce4b57a22ddac'}

```{.r .cell-code}
gene_genome_matrix_raw <- purrr::reduce(genome_list, dplyr::full_join, by="genes")
gene_genome_matrix <- gene_genome_matrix_raw
gene_genome_matrix[is.na(gene_genome_matrix)] <- 0

gene_genome_matrix <- gene_genome_matrix[order(gene_genome_matrix$genes),]
rownames(gene_genome_matrix) <- gene_genome_matrix$genes
gene_genome_matrix$genes <- NULL

gene_genome_matrix[1:10, 1:10]
```

::: {.cell-output .cell-output-stdout}
```
    A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
AAA  0  1  0  0  0  0  0  0  0  0
AAB  0  0  0  0  0  0  0  0  0  0
AAC  0  0  0  0  1  0  0  0  0  0
AAD  0  0  0  0  0  0  1  0  0  0
AAE  0  0  0  0  0  0  0  0  0  0
AAF  1  1  0  0  0  0  0  0  0  1
AAG  0  0  0  0  0  0  0  0  0  0
AAH  0  0  0  0  0  0  0  0  0  0
AAI  0  0  0  0  0  0  0  1  0  0
AAJ  0  0  0  0  0  0  0  0  0  0
```
:::
:::