count: false .panel1-the_chunk-auto[ ``` r *ggplot(penguins) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + * aes(dims = dims(bill_length_mm:body_mass_g)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + * aes(color = species) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> *p0 ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 *p0 + geom_umap(epochs = 1) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> *p; p0 + geom_umap(epochs = 2) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> *p; p0 + geom_umap(epochs = 3) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> *p; p0 + geom_umap(epochs = 5) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> *p; p0 + geom_umap(epochs = 8) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> p; p0 + geom_umap(epochs = 8) -> *p; p0 + geom_umap(epochs = 13) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> p; p0 + geom_umap(epochs = 8) -> p; p0 + geom_umap(epochs = 13) -> *p; p0 + geom_umap(epochs = 21) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> p; p0 + geom_umap(epochs = 8) -> p; p0 + geom_umap(epochs = 13) -> p; p0 + geom_umap(epochs = 21) -> *p; p0 + geom_umap(epochs = 34) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> p; p0 + geom_umap(epochs = 8) -> p; p0 + geom_umap(epochs = 13) -> p; p0 + geom_umap(epochs = 21) -> p; p0 + geom_umap(epochs = 34) -> *p; p0 + geom_umap(epochs = 55) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r ggplot(penguins) + aes(dims = dims(bill_length_mm:body_mass_g)) + aes(color = species) -> p0 p0 + geom_umap(epochs = 1) -> p; p0 + geom_umap(epochs = 2) -> p; p0 + geom_umap(epochs = 3) -> p; p0 + geom_umap(epochs = 5) -> p; p0 + geom_umap(epochs = 8) -> p; p0 + geom_umap(epochs = 13) -> p; p0 + geom_umap(epochs = 21) -> p; p0 + geom_umap(epochs = 34) -> p; p0 + geom_umap(epochs = 55) -> *p; p0 + geom_umap(epochs = 89) ``` ] .panel2-the_chunk-auto[ <!-- --> ] <style> .panel1-the_chunk-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-the_chunk-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 120%} @media print { .has-continuation { display: block; } } code.r.hljs.remark-code{ position: relative; overflow-x: hidden; } code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } </style>