Building Pictograms

Esse é o site original.

extrafont::loadfonts(quiet = TRUE)

extrafont::fonttable() %>% 
  as_tibble() %>% 
  filter(grepl("Awesom", FamilyName)) %>% 
  select(afmfile, FullName, FamilyName, FontName)

## # A tibble: 4 x 4
##   afmfile                    FullName            FamilyName  FontName   
##   <chr>                      <chr>               <chr>       <chr>      
## 1 fontawesome-webfont.afm.gz FontAwesome Regular FontAwesome FontAwesome
## 2 FontAwesome.afm.gz         FontAwesome         FontAwesome FontAwesome
## 3 fontawesome-webfont.afm.gz FontAwesome Regular FontAwesome FontAwesome
## 4 FontAwesome.afm.gz         FontAwesome         FontAwesome FontAwesome

fa_grep("rocket")

## [1] "rocket"     "rocketchat"

fa_grep("bread|pizza|apple|pear|peach|lemon|sandwich")

## [1] "apple"        "apple-pay"    "cc-apple-pay" "lemon"

estou com problema no pacote

tibble(
  food_group = factor(
    c("Fruit", "Sandwiches", "Pizza"),
    levels=c("Fruit", "Sandwiches", "Pizza")
  ),
  consumption = c(5, 20, 52)
) -> xdf


ggplot(xdf, aes(label = food_group, values = consumption)) +
  geom_pictogram(n_rows = 10, make_proportional = TRUE, color = "black") +
  scale_label_pictogram(
    name = NULL,
    values = c(
      Fruit = "apple-alt", 
      Sandwiches = "bread-slice", 
      Pizza = "pizza-slice"
    )
  ) +
  coord_equal() +
  theme_ipsum_rc(grid="") +
  theme_enhance_waffle() +
  theme(legend.key.height = unit(2.25, "line")) +
  theme(legend.text = element_text(size = 10, hjust = 0, vjust = 0.75))

ggplot(xdf, aes(label = food_group, values = consumption, color = food_group)) +
  geom_pictogram(n_rows = 10, make_proportional = TRUE) +
  scale_color_manual(
    name = NULL,
    values = c(
      Fruit = "#a40000",
      Sandwiches = "#c68958", 
      Pizza = "#ae6056"
    )
  ) +
  scale_label_pictogram(
    name = NULL,
    values = c(
      Fruit = "apple-alt", 
      Sandwiches = "bread-slice", 
      Pizza = "pizza-slice"
    )
  ) +
  coord_equal() +
  theme_ipsum_rc(grid="") +
  theme_enhance_waffle() +
  theme(legend.key.height = unit(2.25, "line")) +
  theme(legend.text = element_text(size = 10, hjust = 0, vjust = 0.75))