count: false .panel1-the_chunk-auto[ ``` r *library(ggcirclepack) ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) *songs ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 2,429 × 8 season week order contestant song artist song_theme result <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr> 1 Season_01 20020618_top_30_g… 1 Tamyra Gr… And … Jenni… <NA> Advan… 2 Season_01 20020618_top_30_g… 2 Jim Verra… When… Doris… <NA> Advan… 3 Season_01 20020618_top_30_g… 3 Adriel He… I'll… Edwin… <NA> Elimi… 4 Season_01 20020618_top_30_g… 4 Rodesia E… Dayd… The M… <NA> Elimi… 5 Season_01 20020618_top_30_g… 5 Natalie B… Crazy Patsy… <NA> Elimi… 6 Season_01 20020618_top_30_g… 6 Brad Estr… Just… James… <NA> Elimi… 7 Season_01 20020618_top_30_g… 7 Ryan Starr The … The K… <NA> Advan… 8 Season_01 20020618_top_30_g… 8 Justinn W… When… Percy… <NA> Elimi… 9 Season_01 20020618_top_30_g… 9 Kelli Glo… I Wi… Dolly… <NA> Wild … 10 Season_01 20020618_top_30_g… 10 Christoph… Stil… Brian… <NA> Wild … # ℹ 2,419 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% * ggplot() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + * aes(id = "All") ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + * geom_circlepack() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + * geom_circlepack_text(aes(lineheight = I(.7))) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + * aes(fill = I("aliceblue")) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + * coord_equal() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + * aes(id = artist) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + * aes(label = after_stat(area)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + * data_mutate_filter(n(), c(artist), .value >= 15) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + * aes(label = str_wrap(after_stat(id), 12)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + * data_filter(artist == "Stevie Wonder") ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + * aes(fill = I("plum1")) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + * aes(id = song) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + * aes(label = str_wrap(after_stat(paste0(id, " ", * area, "X")), 12)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + * scale_size(range = c(2,3)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + scale_size(range = c(2,3)) + * data_replace(data = songs |> * filter(artist == "Stevie Wonder") |> * mutate(song = str_remove(song, "\\(Stevie Wonder\\)")) |> * mutate(song = str_replace(song, "bout", "Bout"))) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + scale_size(range = c(2,3)) + data_replace(data = songs |> filter(artist == "Stevie Wonder") |> mutate(song = str_remove(song, "\\(Stevie Wonder\\)")) |> mutate(song = str_replace(song, "bout", "Bout"))) -> * p ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + scale_size(range = c(2,3)) + data_replace(data = songs |> filter(artist == "Stevie Wonder") |> mutate(song = str_remove(song, "\\(Stevie Wonder\\)")) |> mutate(song = str_replace(song, "bout", "Bout"))) -> p *p$data ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 56 × 8 season week order contestant song artist song_theme result <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr> 1 Season_01 20020625_top_30_g… 2 Gil Sinuet Ribb… Stevi… <NA> Elimi… 2 Season_01 20020625_top_30_g… 10 Justin Gu… Ribb… Stevi… <NA> Advan… 3 Season_01 20020702_top_30_g… 9 Khaleef C… My C… Stevi… <NA> Elimi… 4 Season_01 20020710_wildcard… 4 R. J. Hel… Late… Stevi… <NA> Advan… 5 Season_01 20020716_top_10_p… 1 Ryan Starr If Y… Stevi… <NA> Safe 6 Season_01 20020716_top_10_p… 6 Justin Gu… For … Stevi… <NA> Safe 7 Season_01 20020716_top_10_p… 9 AJ Gil My C… Stevi… <NA> Safe 8 Season_01 20020730_top_7_fi… 6 R. J. Hel… Supe… Stevi… <NA> Safe 9 Season_02 20030204_top_32_g… 3 J.D. Adams All … Stevi… <NA> Elimi… 10 Season_02 20030204_top_32_g… 7 Charles G… Over… Stevi… <NA> Advan… # ℹ 46 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + scale_size(range = c(2,3)) + data_replace(data = songs |> filter(artist == "Stevie Wonder") |> mutate(song = str_remove(song, "\\(Stevie Wonder\\)")) |> mutate(song = str_replace(song, "bout", "Bout"))) -> p p$data -> *songs_stevie_cleaned ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(ggcirclepack) songs %>% ggplot() + aes(id = "All") + geom_circlepack() + geom_circlepack_text(aes(lineheight = I(.7))) + aes(fill = I("aliceblue")) + coord_equal() + aes(id = artist) + aes(label = after_stat(area)) + data_mutate_filter(n(), c(artist), .value >= 15) + aes(label = str_wrap(after_stat(id), 12)) + data_filter(artist == "Stevie Wonder") + aes(fill = I("plum1")) + aes(id = song) + aes(label = str_wrap(after_stat(paste0(id, " ", area, "X")), 12)) + scale_size(range = c(2,3)) + data_replace(data = songs |> filter(artist == "Stevie Wonder") |> mutate(song = str_remove(song, "\\(Stevie Wonder\\)")) |> mutate(song = str_replace(song, "bout", "Bout"))) -> p p$data -> songs_stevie_cleaned ``` ] .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: 90%} @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>