tennis players

Packages

library(flextable)
library(magrittr)
library(data.table)
library(magrittr)
library(dplyr)

Data

This dataset was created by hand. It represents a ranking of tennis players. It includes in addition to some statistics the names of the images representing the flag of the player’s country of origin as well as a picture of the player.

tennis_players <-
  data.frame(
    Rank = 1:10,
    Player = c(
      "Roger Federer", "Lleyton Hewitt", "Feliciano Lopez", "Ivo Karlovic", "Andy Murray",
      "Pete Sampras", "Greg Rusedski", "Tim Henman", "Novak Djokovic", "Andy Roddick"
    ),
    Percentage = c(92.63, 85.29, 89.86, 94.87, 88.89, 92.66, 90.33, 83.77, 89.12, 92.76),
    `Games Won` = c(2739L, 1740L, 1684L, 1645L, 1528L, 1478L, 1476L, 1461L, 1442L, 1410L),
    `Total Games` = c(2957L, 2040L, 1874L, 1734L, 1719L, 1595L, 1634L, 1744L, 1618L, 1520L),
    Matches = c(205L, 149L, 122L, 113L, 121L, 105L, 116L, 110L, 106L, 103L),
    head = c(
      "federer_head.png", "hewitt_head.png", "lopez_head.png", "karlovic_head.png",
      "murray_head.png", "sampras_head.png", "rusedski_head.png", "henman_head.png",
      "djokovic_head.png", "roddick_head.png"
    ),
    flag = c(
      "sui.png", "aus.png", "esp.png", "cro.png", "gbr.png", "usa.png",
      "gbr.png", "gbr.png", "srb.png", "usa.png"
    ),
    stringsAsFactors = FALSE
  ) %>%
  mutate(
    head = file.path("players", head),
    flag = file.path("flags", flag)
  )
tennis_players
##    Rank          Player Percentage Games.Won Total.Games Matches
## 1     1   Roger Federer      92.63      2739        2957     205
## 2     2  Lleyton Hewitt      85.29      1740        2040     149
## 3     3 Feliciano Lopez      89.86      1684        1874     122
## 4     4    Ivo Karlovic      94.87      1645        1734     113
## 5     5     Andy Murray      88.89      1528        1719     121
## 6     6    Pete Sampras      92.66      1478        1595     105
## 7     7   Greg Rusedski      90.33      1476        1634     116
## 8     8      Tim Henman      83.77      1461        1744     110
## 9     9  Novak Djokovic      89.12      1442        1618     106
## 10   10    Andy Roddick      92.76      1410        1520     103
##                         head          flag
## 1   players/federer_head.png flags/sui.png
## 2    players/hewitt_head.png flags/aus.png
## 3     players/lopez_head.png flags/esp.png
## 4  players/karlovic_head.png flags/cro.png
## 5    players/murray_head.png flags/gbr.png
## 6   players/sampras_head.png flags/usa.png
## 7  players/rusedski_head.png flags/gbr.png
## 8    players/henman_head.png flags/gbr.png
## 9  players/djokovic_head.png flags/srb.png
## 10  players/roddick_head.png flags/usa.png

Images

fs::dir_tree("players")
## players
## ├── djokovic_head.png
## ├── federer_head.png
## ├── henman_head.png
## ├── hewitt_head.png
## ├── karlovic_head.png
## ├── lopez_head.png
## ├── murray_head.png
## ├── roddick_head.png
## ├── rusedski_head.png
## └── sampras_head.png
fs::dir_tree("flags")
## flags
## ├── aus.png
## ├── cro.png
## ├── esp.png
## ├── gbr.png
## ├── srb.png
## ├── sui.png
## └── usa.png

Flextable code

Init the flextable

ft <- flextable(tennis_players,
  col_keys = c(
    "Rank", "Player", "Percentage",
    "Games.Won", "Total.Games", "Matches"
  )
) 

Mix text and images

ft <- compose(ft, 
    j = "Player",
    value = as_paragraph(
      as_image(src = head, width = .5, height = 0.5),
      " ",
      as_image(src = flag, width = .5, height = 0.33),
      " ", as_chunk(x = Player, fp_text_default(color = "#337ab7"))
    )
  )

Apply a theme

ft <- theme_zebra(ft) %>% 
      autofit()
ft