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

Question

我想制作一个这样的人类信息图 adynaton

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

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。通过以下方式安装：

该链接不存在。

谢谢！

Answer 1

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

Answer 2

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

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

Answer 3

我知道这个问题已经问了很久了，但是我一直在寻找这个问题的答案已有几个小时，并且已经尝试了StackOverflow问题所建议的一切。但是，我发现唯一有效的方法是来自以下来源：https://www.listendata.com/2019/06/create-infographics-with-r.html 他们具有使用extrafont库下载fontawesome的分步指导。真的很容易。希望这对某人有帮助！ 基本上，下载链接中提供的fontawesome-webfont.ttf，然后：

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