I try to plot a certain glyph using extrafont (on Windows 10):
library(extrafont)
library(ggplot2)
loadfonts()
ft <- fonttable()
ft[grepl("Awesome", ft$FontName), c("FullName", "FamilyName", "FontName")]
# FullName FamilyName FontName
# 367 Font Awesome 5 Brands Regular Font Awesome 5 Brands Regular FontAwesome5Brands-Regular
# 368 Font Awesome 5 Free Solid Font Awesome 5 Free Solid FontAwesome5Free-Solid
ggplot() +
geom_label(aes(x = 1, y = 1, label = "\uf0f3"),
family = "Font Awesome 5 Free Solid", size = 16) +
theme_minimal()
This works as expected:
However, if I try to use another Unicode I just get an empty box:
ggplot() +
geom_label(aes(x = 1, y = 1, label = "\uf1fd"),
family = "Font Awesome 5 Free Solid", size = 16) +
theme_minimal()
For all it is worth, I am using this FontAwesome CheatSheet to get the Unicode hex values.
Why is it not working?
Update
@Pedro was suggetsing in the comments that it may have something to do with the Fontawesome version, so I looked up the v4 Unicodes, here's what I got:
library(rvest)
library(stringr)
library(purrr)
library(tibble)
library(dplyr)
library(ggplot2)
library(extrafont)
doc <- "https://fontawesome.com/v4/cheatsheet/" %>%
read_html()
unicodes <- doc %>%
html_elements(".row .fa+span") %>%
html_text2()
fa <- unicodes %>%
str_subset(fixed("(alias)"), TRUE) %>%
str_extract("[0-9a-f]+") %>%
paste0("0x", .) %>%
map_chr(intToUtf8) %>%
tibble(label = .) %>%
mutate(x = (seq_along(label) - 1) %/% ceiling(sqrt(length(label)))) %>%
group_by(x) %>%
mutate(y = seq_along(label) - 1)
ggplot(fa) +
geom_text(aes(x, y, label = label),
family = "Font Awesome 5 Free Solid", size = 3) +
geom_text(aes(x, y, label = label),
family = "Font Awesome 5 Brands Regular", size = 3, color = "red") +
theme_void()
Session Info
R version 4.2.2 (2022-10-31 ucrt) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows 10 x64 (build 18363) Matrix products: default locale: [1] LC_COLLATE=German_Germany.utf8 LC_CTYPE=German_Germany.utf8 [3] LC_MONETARY=German_Germany.utf8 LC_NUMERIC=C [5] LC_TIME=German_Germany.utf8 attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] ggplot2_3.4.0 extrafont_0.18 loaded via a namespace (and not attached): [1] Rcpp_1.0.9 bslib_0.4.2 compiler_4.2.2 pillar_1.8.1 [5] later_1.3.0 jquerylib_0.1.4 tools_4.2.2 digest_0.6.31 [9] jsonlite_1.8.4 lifecycle_1.0.3 tibble_3.1.8 gtable_0.3.1 [13] pkgconfig_2.0.3 rlang_1.0.6 DBI_1.1.3 shiny_1.7.3 [17] cli_3.5.0 fastmap_1.1.0 Rttf2pt1_1.3.8 withr_2.5.0 [21] dplyr_1.0.10 generics_0.1.3 sass_0.4.4 vctrs_0.5.1 [25] tidyselect_1.2.0 grid_4.2.2 glue_1.6.2 R6_2.5.1 [29] fansi_1.0.3 extrafontdb_1.0 magrittr_2.0.3 scales_1.2.1 [33] promises_1.2.0.1 ellipsis_0.3.2 htmltools_0.5.4 assertthat_0.2.1 [37] mime_0.12 xtable_1.8-4 colorspace_2.0-3 httpuv_1.6.6 [41] utf8_1.2.2 munsell_0.5.0 cachem_1.0.6
