class: center, middle, inverse, title-slide .title[ # Data Analysis and Visualization ] .subtitle[ ## Chapter 4. Advanced Visualization and Communication ] .author[ ### Iñaki Úcar ] .institute[ ### Department of Statistics | uc3m-Santander Big Data Institute ] .institute[ ### Bachelor in Data and Business Analytics ] .date[ ###
Licensed under Creative Commons Attribution
CC BY 4.0
Last generated: 2025-09-06
] --- class: base24 # Catalog of Graphs and Applications .footnote[Based on [The R Graph Gallery](https://r-graph-gallery.com/)] .pull-left[ - .distribution[[Distribution](ch3_1.html#3)].icons[      ] - .correlation[[Correlation](ch3_2.html#3)].icons[       ] - .ranking[[Ranking](ch3_3.html#3)].icons[       ] - .part[[Part of a Whole](ch3_4.html#3)].icons[       ] ] .pull-right[ - .evolution[[Evolution](ch3_5.html#3)].icons[      ] - .map[[Map](ch3_6.html#3)].icons[       ] - .flow[[Flow](ch3_7.html#3)].icons[      ] - .other[[Other resources](ch3_8.html#3)].icons[     ] ] --- class: other # Other Resources .footnote[[< Contents](#2)] [](https://r-graph-gallery.com/animation.html) [](https://r-graph-gallery.com/interactive-charts.html) [](https://www.data-to-viz.com/caveats.html) [](https://www.data-to-art.com/) .bottom[Animation] .bottom[Interactive] .bottom[Caveats] .bottom[Data Art] <br> .black.font120[ ] --- class: other # Other Resources  Animation .footnote[[< Contents](#2)] .pull-left-mod[ ``` r ggplot(gapminder::gapminder) + aes(gdpPercap, lifeExp) + geom_point(aes(size=pop, color=continent), alpha=0.7) + scale_size(range=c(2, 12), guide=NULL) + scale_x_log10() + theme(legend.position=c(1, 0), legend.justification=c(1, 0)) + * gganimate::transition_time(year) + * gganimate::ease_aes("linear") + * labs(title="Year: {frame_time}") ``` ] .pull-right-mod[ <img src="ch3_files/animation-1.gif" style="display: block; margin: auto;" /> ] --- class: other # Other Resources  Interactivity .footnote[[< Contents](#2)] .pull-left-mod[ ``` r ggplot(gapminder::gapminder) + aes(gdpPercap, lifeExp) + geom_point(aes(size=pop, color=continent), alpha=0.7) + scale_size(range=c(2, 12), guide=NULL) + scale_x_log10() + theme_gray(base_size=10) + * aes(frame=year, text=country) -> p *plotly::ggplotly(p) |> plotly::layout(legend=list( x=1, y=0, xanchor="right")) ``` ] .pull-right-mod[
] --- class: other # Other Resources  Caveats .footnote[[< Contents](#2)] <iframe src="https://www.data-to-viz.com/caveats.html" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe> --- class: other # Other Resources  Inspiration .footnote[[< Contents](#2)] <iframe src="https://www.dataviz-inspiration.com/" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe> --- class: other # Other Resources  Data Art .footnote[[< Contents](#2)] <iframe src="https://www.data-to-art.com/" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe> --- class: other # Other Resources | Chart selection .footnote[[< Contents](#2)] <iframe src="https://www.data-to-viz.com/#explore" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe> --- class: other # Other Resources | Chart selection .footnote[[< Contents](#2)] <iframe src="https://datavizproject.com/" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe> --- class: other # Other Resources | Extensions .footnote[[< Contents](#2)] <iframe src="https://exts.ggplot2.tidyverse.org/gallery/" style="position:relative;left:0;top:0;width:100%;height:100%" frameborder="0" scrolling="yes"></iframe>