如何利用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!")

但它只适用于#图1

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

错误: FontAwesome未找到。安装via：https://github.com/FortAwesome/Font-Awesome/tree/master/fonts

这种联系根本不存在。

谢谢!

Answer 1

我也有过同样的问题。您可能想尝试从他们重命名为字体系列的版本.ttf中安装诉4.7，这可能就是为什么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，他们有一个逐步的指导下载字体外库。真的很容易。希望这能帮到别人！基本上，下载链接中提供的fontawese-webfont.ttf，然后：

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