class: center, middle, inverse, title-slide .title[ # How to make a cool hexsticker (based on tennis) ] .author[ ### Vanessa di Lego ] .institute[ ### Wittgenstein Center (IIASA/OeAW/Univ.Vienna), Vienna Institute of Demography ] .date[ ### 2022/06/07 ] --- class: center, middle ### R is very much like tennis... precise, beautiful, plastic <img src="https://media.giphy.com/media/KyANBUpwmWjDP4W9n7/giphy.gif" width="800" height="500"> --- class: inverse,center, middle ##... and painfully fun! .pull-left[ ] .pull-right[ ] --- ## Today we will learn how: .pull-left[ - use some cool packages to build a hexsticker for your package, project or just for fun - I will use some tennis data and stats to make some graphs for the sticker - The image for the sticker can come from an online source, be developed within R or simply designed in any other platform and read in for the sticker] .pull-right[ ] --- class: inverse,center, middle ## Let´s do this!  --- class: center, middle ## First steps: Install some packages: .pull-left[ ```r library(ggplot2) #for lots library(gplots) #for heatmaps library(RColorBrewer) #for palettes library(tidyverse) # for data wrangling library(dplyr) #for dataset manipulation library(knitr) #for neaty dataset printing library(timelineS) #for timeline plot library(circlize) #for chord-diagrams library(fmsb) #for radar plots library(here) # for setting environment project library(data.table) # for fast reading data and functions library(hexSticker) # the hexsticker package ``` ] .pull-right[ ```r library_toload <- c("dplyr", "knitr", "ggplot2", "gplots", "RColorBrewer", "timelineS", "circlize", "fmsb") invisible(lapply(library_toload, function(x) {suppressPackageStartupMessages(library(x, character.only=TRUE))})) ``` ] --- class: center, middle ## Some examples from the package: Check the [**hexSticker**](https://github.com/GuangchuangYu/hexSticker) github repository for these examples and some troubleshoot. --- class: center, middle ## Example 1: For base R users/graphs using lattice .pull-left[ ```r library(hexSticker) library(lattice) library(here) ``` ``` FALSE here() starts at C:/Users/vdile/Documents/Git/Hex_Present ``` ```r counts <- c(18,17,15,20,10,20,25,13,12) outcome <- gl(3,1,9) treatment <- gl(3,3) bwplot <- bwplot(counts ~ outcome | treatment, xlab=NULL, ylab=NULL, cex=.5, scales=list(cex=.5), par.strip.text=list(cex=.5)) sticker(bwplot, package="hexSticker", p_size=20, s_x=1.05, s_y=.8, s_width=2, s_height=1.5, h_fill="#f9690e", h_color="#f39c12",filename=here("Figures","ex1.png")) ``` ] .pull-right[ <img src="Figures/ex1.png" width="70%" style="display: block; margin: auto;" /> ] --- class: center, middle ## Example 2: For Rstudio users/graphs using ggplot .pull-left[ ```r library(ggplot2) library(here) p <- ggplot(aes(x = mpg, y = wt), data = mtcars) + geom_point() p <- p + theme_void() + theme_transparent() sticker(p, package="hexSticker", p_size=20, s_x=1, s_y=.75, s_width=1.3, s_height=1,filename=here("Figures","ex2.png")) ``` ] .pull-right[ <img src="Figures/ex2.png" width="70%" style="display: block; margin: auto;" /> ] --- class: center, middle ## Example 3: Using any figure or image! .pull-left[ After you save an image or have a specific design you can simply use this image for your sticker: ```r library(here) library(knitr) ## Example 3: For figures already done sticker(here("Figures","beethoven.jpg"), package="hexThoven", p_size=20, s_x=1, s_y=.75, s_width=.6,filename=here("Figures","ex3.png"), h_color="darkred", h_fill="darkgrey") ``` ] .pull-right[ <img src="Figures/ex3.png" width="70%" style="display: block; margin: auto;" /> ] --- class: center, middle ### Now let´s try to use some tennis data! .pull-left[ ```r library_toload <- c("dplyr", "knitr", "ggplot2", "gplots", "RColorBrewer", "timelineS", "circlize", "fmsb") invisible(lapply(library_toload, function(x) {suppressPackageStartupMessages(library(x, character.only=TRUE))})) url_file <- "https://datascienceplus.com/wp-content/uploads/2017/04/tennis-grand-slam-winners.txt" slam_win <- read.delim(url(url_file), sep="\t", stringsAsFactors = FALSE) slam_win$YEAR_DATE <- as.Date(mapply(year_to_date_trnm, slam_win$YEAR, slam_win$TOURNAMENT), format="%Y-%m-%d") kable(head(slam_win, 10)) ```  ] .pull-right[ | YEAR|TOURNAMENT |WINNER |RUNNER.UP |YEAR_DATE | |----:|:---------------|:--------------|:--------------|:----------| | 2017|Australian Open |Roger Federer |Rafael Nadal |2017-01-31 | | 2016|U.S. Open |Stan Wawrinka |Novak Djokovic |2016-09-07 | | 2016|Wimbledon |Andy Murray |Milos Raonic |2016-07-15 | | 2016|French Open |Novak Djokovic |Andy Murray |2016-06-15 | | 2016|Australian Open |Novak Djokovic |Andy Murray |2016-01-31 | | 2015|U.S. Open |Novak Djokovic |Roger Federer |2015-09-07 | | 2015|Wimbledon |Novak Djokovic |Roger Federer |2015-07-15 | | 2015|French Open |Stan Wawrinka |Novak Djokovic |2015-06-15 | | 2015|Australian Open |Novak Djokovic |Andy Murray |2015-01-31 | | 2014|U.S. Open |Marin Cilic |Kei Nishikori |2014-09-07 | ] --- class: inverse, center, middle ## Sticker 1: Grand Slams Winners by Tournament type <img src="Figures/st_1.png" width="35%" style="display: block; margin: auto;" /> --- class: inverse, center, middle ## Mental Toughness One important preditor of being a winner in tennis is your mental toughness. This is a rating that compares players in pressure situations: `$$Mental Toughness Rating = \frac{Mental Points Won}{Mental Points Lost}$$` Mental Points are weighted pressure situations: Mental Point = 2* Best-of-3 Deciding Set + 4 * Best-of-5 Deciding Set + 2 * Final Match + Non-Deciding Set Tie-Break + 2 * Deciding Set Tie Break --- class: center, middle ## Mental Toughness Data on mental toughness was downloaded [**here**](https://www.ultimatetennisstatistics.com/mentalToughness) .pull-left[ ```r library(data.table) library(here) library(dplyr) mt<-fread(here("Data","MentalToughness.csv")) ```  ] .pull-right[ | rank|name |country_name | rating| |----:|:--------------|:--------------|------:| | 1|Novak Djokovic |Serbia | 2.296| | 2|Bjorn Borg |Sweden | 2.278| | 3|Rod Laver |Australia | 2.152| | 4|Kei Nishikori |Japan | 2.031| | 5|Pete Sampras |United States | 2.000| | 6|John McEnroe |United States | 1.995| | 7|Rafael Nadal |Spain | 1.970| | 8|Andy Murray |United Kingdom | 1.941| | 9|Thomas Muster |Austria | 1.937| | 10|Jimmy Connors |United States | 1.901| ] --- ## Let´s do a sticker on mental toughness ranking here just the results!!! Indeed, Djokovic, represented in the map by Serbia, has the highest score on mental toughness. well...not always, though .pull-left[  ] .pull-right[ <img src="Figures/map.png" width="55%" style="display: block; margin: auto;" /> ] --- ## Some useful links - It´s common that people make actual stickers. Use this website for making them and buying [**Sticker Mule**](https://www.stickermule.com/uses/hexagon-stickers) -- - It takes a lot of effort in building and selecting colors. For helpful resources with color palettes use [**Color Space**](https://mycolor.space/?hex=%23845EC2&sub=1) -- - the dimensions for hex sticker we used follows the standard stablished [**here**](http://hexb.in/sticker.html) --- ## Ready to Play?? When all fails, appeal to online [**sticker making**](https://connect.thinkr.fr/hexmake/)