Tạo Infographic với Waffle

Tạo Infographic với gói waffle.

Chúng ta sẽ cùng nhau vẽ các biểu đồ thể hiện phần trăm giữa các nhóm với phong cách của các Infographic với các icon như vài ví dụ sau:

Vẽ nhanh

library(waffle)
group <- c("Nhóm A" = 45, "Nhóm B" = 30, "Nhóm C" = 25)
waffle(group)

Thay đổi số dòng với rows

waffle(group, rows = 5)

Thay đổi màu với colors

waffle(group, rows = 5,
       colors = c("#e41a1c","#377eb8","#4daf4a"))

Thay đổi ICON

Gói waffle sử dụng bộ icon của font chữ fontawesome-webfont.ttf. Font này có thể tìm thấy trong thư mục của gói waffle. Ta dùng gói extrafont để load font này vào R.

library(extrafont)
#' Thư mục chứa font
dir <-"C:/Users/nlxba/Documents/R/win-library/3.6/waffle/fonts"
#' import font
font_import(paths = dir, prompt = F)
#' Kiểm tra 
fonts()[grep("Awesome", fonts())]
## [1] "FontAwesome"
#' Nếu dùng Mac OSX
loadfonts()
#' Nếu dùng Windows
loadfonts(device = "win")

Sau khi đã load font, ta đổi icon với use_glyph =, có thể chỉnh kích thước với glyph_size =. Xem danh sách icon tại đây: https://fontawesome.com/v4.7.0/cheatsheet/

Một vài ví dụ

Hình tròn

waffle(group, rows = 5,
       use_glyph = "circle", glyph_size = 6,
       colors = c("#e41a1c","#377eb8","#4daf4a"))

Hình con bọ

waffle(group, rows = 5,
       use_glyph = "bug", glyph_size = 6,
       colors = c("#e41a1c","#377eb8","#4daf4a"))

Biểu tượng Nam và Nữ 1

group <- c(Nam = 65, Nu = 35)

waffle(group, rows = 5,
       use_glyph = c("male","female"), glyph_size = 6,
       colors = c("#0571b0","#d01c8b"))

Biểu tượng Nam và Nữ 2

waffle(group, rows = 5,
       use_glyph = c("mars","venus"), glyph_size = 6,
       colors = c("#0571b0","#d01c8b"))