r - 如何在 R 上使用华夫饼制作人类信息图？

Question

我想做一个这样的人类信息图

我正在尝试使用华夫饼功能：

install.packages(c("waffle", "extrafont"))
library(waffle)
library(extrafont)
font_import()

# check that Font Awesome is imported
fonts()[grep("Awesome", fonts())]

# use this if things look odd in RStudio under Windows
loadfonts(device = "win")

# Chart 1
waffle(c(50, 30, 15, 5), rows = 5, title = "Your basic waffle chart")

# Chart 2
waffle(c(50, 30, 15, 5), rows = 5, use_glyph = "child", glyph_size = 6, 
       title = "Look I made an infographic using R!")

但它只适用于#Chart 1

对于#Chart 2，我收到以下错误消息：

错误：未找到 FontAwesome。通过以下方式安装：https ://github.com/FortAwesome/Font-Awesome/tree/master/fonts

链接不存在。

谢谢！

Answer 1

我知道这个问题是很久以前被问到的，但我一直在寻找这个问题的答案几个小时，并尝试了 StackOverflow 问题推荐的所有内容。但是，我发现唯一真正有效的是来自以下来源：https : //www.listendata.com/2019/06/create-infographics-with-r.html 他们有下载 fontawesome 的分步说明使用额外字体库。真的很容易。希望这对某人有帮助！基本上，下载链接中提供的 fontawesome-webfont.ttf，然后：

library(extrafont)
extrafont::font_import (path="C:/Users/insert/your/own/path", pattern = "awesome", prompt = FALSE)
loadfonts(device = "win")

Answer 2

这对我有用。只需检查安装字体的路径：

library(sysfonts)
font.add("FontAwesome", regular = "C:/WINDOWS/FONTS/FONTAWESOME-WEBFONT.TTF")

Answer 3

我遇到过同样的问题。您可能想尝试从版本Font Awesome v. 4.7安装 .ttf他们重命名了字体系列，这可能是 R 没有为我们找到它的原因。华夫饼可能尚未更新以反映这一点。这对我有用。