count: false .panel1-the_chunk-auto[ ``` r *abc_df <- ggdoremi:::join_phrases_drm_lyrics( * drm_phrases = drm_abc, * lyrics_phrases = lyrics_abc) ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) *abc_df ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 40 × 6 # Groups: id_phrase [6] id_phrase id_in_phrase drm doremi freq lyric <int> <int> <fct> <fct> <dbl> <chr> 1 1 1 d do 440 A 2 1 2 d do 440 B 3 1 3 s sol 660 C 4 1 4 s sol 660 D 5 1 5 l la 742. E 6 1 6 l la 742. F 7 1 7 s sol 660 G 8 2 1 f fa 587. H 9 2 2 f fa 587. I 10 2 3 m mi 557. J # ℹ 30 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% * ggplot() ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_03_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + * aes(radius = as.numeric(drm) - 2) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_04_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + * stamp_staff_dms(-2) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_05_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + * geom_dandalion_segment() ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_06_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + * geom_dandalion_point(size = 13, * fill = "white", * shape = 21) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_07_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + * aes(label = lyric) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_08_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + * geom_dandalion_text(size = 6.5) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_09_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + * coord_equal() ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_10_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + * theme_void() ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_11_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> *abc_plot_full ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full *abc_plot_full ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_13_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% * (ggdoremi:::join_phrases_drm_lyrics( * drm_abc, lyrics_abc)[1:26,]) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_14_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% (ggdoremi:::join_phrases_drm_lyrics( drm_abc, lyrics_abc)[1:26,]) + * aes(color = doremi) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_15_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% (ggdoremi:::join_phrases_drm_lyrics( drm_abc, lyrics_abc)[1:26,]) + aes(color = doremi) -> *abc26 ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% (ggdoremi:::join_phrases_drm_lyrics( drm_abc, lyrics_abc)[1:26,]) + aes(color = doremi) -> abc26 *abc26 ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_17_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% (ggdoremi:::join_phrases_drm_lyrics( drm_abc, lyrics_abc)[1:26,]) + aes(color = doremi) -> abc26 abc26 + * aes(label = doremi) ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_18_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r abc_df <- ggdoremi:::join_phrases_drm_lyrics( drm_phrases = drm_abc, lyrics_phrases = lyrics_abc) abc_df %>% ggplot() + aes(radius = as.numeric(drm) - 2) + stamp_staff_dms(-2) + geom_dandalion_segment() + geom_dandalion_point(size = 13, fill = "white", shape = 21) + aes(label = lyric) + geom_dandalion_text(size = 6.5) + coord_equal() + theme_void() -> abc_plot_full abc_plot_full %+% (ggdoremi:::join_phrases_drm_lyrics( drm_abc, lyrics_abc)[1:26,]) + aes(color = doremi) -> abc26 abc26 + aes(label = doremi) + * guides(color = "none") ``` ] .panel2-the_chunk-auto[ ![](abc2_embed_files/figure-html/the_chunk_auto_19_output-1.png)<!-- --> ] <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: 80%} @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>