Как добавить значки в подписи и заголовки ggplot?

Question

Как добавить значки в подписи и заголовки ggplot?

Прямо сейчас я пытаюсь поместить значки в визуализации ggplot. С этой целью я проверил пару руководств в Интернете, и когда я запускаю следующий пример кода Клауса Уилке,

      library(ggtext)
library(ggplot2)

ggplot(mtcars) +
  aes(mpg, disp) +
  geom_point() +
  labs(title = "This font is awesome:
       <span style='font-family: \"Font Awesome 6 Free Solid\"'>&#62766; &#62650; &#62577;</span>") +
  theme(plot.title = element_markdown())

все выглядит хорошо, как вы можете видеть в следующем результате

Однако, чтобы сымитировать этот код для другой моей визуализации, скажем, прошлой недели. TidyTuesdayвызов Babynamesданные, я использую следующий код,

      library(ggplot2)
library(ggtext)
library(tidyverse)
library(showtext)
library(ggrepel)


font_add_google("Martel", family = "title")
font_add_google("Libre Caslon Display", family = "subtitle")
font_add_google("Space Mono", family = "axis")
font_add_google("Spartan", family = "caption")

showtext_auto()

tuesdata <- tidytuesdayR::tt_load('2022-03-22')
babynames <- tuesdata$babynames


babynames %>%
  group_by(year) %>%
  top_n(1, n) %>%
  ggplot(aes(x = year, y = prop)) +
  geom_step(size = 0.5, show.legend = FALSE, direction = "hv") +
  theme_bw() +
  labs(x = "Year", 
       y = "Proportion",
       title = "How Unique are Names in the United States?",
       subtitle = "This visualization illustrates the proportion of most given baby names in that year between 1880 and 2017",
       caption = "Source: {babynames} package | Plot: <span style='font-family: \"Font Awesome 6 Brands\"'>&#xf09b;</span> muhammetozkrca | TidyTuesday-Week 12") +
  background_grid(major = 'none', minor = "none") +
  theme(
    plot.title = element_text(hjust = 0.5, family = "title", size = 20),
    plot.subtitle = element_markdown(hjust = 0.5, family = "subtitle", size = 14), # note that to color numbers differently, I used element_markdown not element_text function
    plot.caption = element_markdown(hjust = 0.5, size = 7),
    legend.position = c(0.9, 0.6),
    legend.justification = "center",
    legend.title = element_text(family = "caption", hjust = 1, vjust = 0.7),
    legend.title.align = 0.5,
    axis.title.x = element_text(family = "axis"),
    axis.title.y = element_text(family = "axis"),
    panel.border = element_blank(),
    axis.ticks = element_blank())

и я получил эту ошибку

      Error in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y,  : 
  polygon edge not found

Иногда я также получаю эту ошибку

      In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
  font family 'Font Awesome 6 Free Solid' not found, will use 'wqy-microhei' instead

Подводя итог, я не очень понимаю, что происходит. Когда я искал похожие запросы, я увидел, что проблема в основном связана с тем, что у пользователей нет файлов шрифтов на их ПК. Тем не менее, если бы это было проблемой для меня, я не думаю, что смогу воспроизвести пример Уилке. Поэтому, если вы можете помочь мне в решении этой проблемы, я буду благодарен за это. Заранее спасибо.

2

r ggplot2 icons ggtext showtext

Источник

user14919023 01 апр '22 в 21:18

1 ответ

Другие вопросы по тегам r ggplot2 icons ggtext showtext

user12993861 02 апр '22 в 11:27 2022-04-02 11:27 · Answer 1 · 2022-04-02 11:27

Проблема в том, что вы используете showtextдля рендеринга текста. Для этого необходимо добавить локальные шрифты через font_addчтобы их можно было использовать в сюжете:

      library(ggplot2)
library(ggtext)
library(showtext)
#> Loading required package: sysfonts
#> Loading required package: showtextdb
library(ggrepel)
library(cowplot)

font_add_google("Martel", family = "title")
font_add_google("Libre Caslon Display", family = "subtitle")
font_add_google("Space Mono", family = "axis")
font_add_google("Spartan", family = "caption")

fa_path <- systemfonts::font_info(family = "Font Awesome 6 Brands Regular")[["path"]]
font_add(family = "fa-brands", regular = fa_path)

showtext_auto()

ggplot(babynames, aes(x = year, y = prop)) +
  geom_step(size = 0.5, show.legend = FALSE, direction = "hv") +
  theme_bw() +
  labs(
    x = "Year",
    y = "Proportion",
    title = "How Unique are Names in the United States?",
    subtitle = "This visualization illustrates the proportion of most given baby names in that year between 1880 and 2017",
    caption = "Source: {babynames} package | Plot: <span style='font-family: \"fa-brands\"'>&#xf09b;</span> muhammetozkrca | TidyTuesday-Week 12"
  ) +
  background_grid(major = "none", minor = "none") +
  theme(
    plot.title = element_text(hjust = 0.5, family = "title", size = 20),
    plot.subtitle = element_markdown(hjust = 0.5, family = "subtitle", size = 14),
    plot.caption = element_markdown(hjust = 0.5, size = 14),
    legend.position = c(0.9, 0.6),
    legend.justification = "center",
    legend.title = element_text(family = "caption", hjust = 1, vjust = 0.7),
    legend.title.align = 0.5,
    axis.title.x = element_text(family = "axis"),
    axis.title.y = element_text(family = "axis"),
    panel.border = element_blank(),
    axis.ticks = element_blank()
  )

ДАННЫЕ

      babynames <- structure(list(
  X = c(
    875979L, 895453L, 915066L, 934495L, 954004L,
    973836L, 994240L, 1015321L, 1037346L, 1060379L, 1084841L, 1109784L,
    1135041L, 1160654L, 1186574L, 1212571L, 1238789L, 1265481L, 1292890L,
    1321132L, 1350394L, 1380480L, 1410860L, 1441772L, 1473351L, 1505753L,
    1539167L, 1573759L, 1608606L, 1623219L, 1657921L, 1691988L, 1725891L,
    1759623L, 1792892L, 1826120L, 1859218L, 1892197L
  ), year = 1980:2017,
  sex = c(
    "M", "M", "M", "M", "M", "M", "M", "M", "M", "M",
    "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M",
    "M", "M", "M", "M", "M", "M", "M", "F", "F", "F", "F", "F",
    "F", "F", "F", "F"
  ), name = c(
    "Michael", "Michael", "Michael",
    "Michael", "Michael", "Michael", "Michael", "Michael", "Michael",
    "Michael", "Michael", "Michael", "Michael", "Michael", "Michael",
    "Michael", "Michael", "Michael", "Michael", "Jacob", "Jacob",
    "Jacob", "Jacob", "Jacob", "Jacob", "Jacob", "Jacob", "Jacob",
    "Jacob", "Isabella", "Isabella", "Sophia", "Sophia", "Sophia",
    "Emma", "Emma", "Emma", "Emma"
  ), n = c(
    68693L, 68765L, 68228L,
    67995L, 67736L, 64906L, 64205L, 63647L, 64133L, 65382L, 65282L,
    60785L, 54386L, 49550L, 44470L, 41402L, 38365L, 37548L, 36614L,
    35361L, 34471L, 32541L, 30568L, 29630L, 27879L, 25830L, 24841L,
    24273L, 22591L, 22298L, 22905L, 21837L, 22304L, 21213L, 20924L,
    20435L, 19471L, 19738L
  ), prop = c(
    0.03703079, 0.03692247,
    0.03615445, 0.0364911, 0.03610228, 0.03373805, 0.03342343,
    0.03264834, 0.03204521, 0.03120182, 0.03034735, 0.0286831,
    0.02591513, 0.02399562, 0.02182099, 0.02058782, 0.01915021,
    0.01879903, 0.01806194, 0.01734789, 0.01651392, 0.01573989,
    0.0147991, 0.01410917, 0.0131991, 0.01214938, 0.01133859,
    0.01096627, 0.0103702, 0.01102237, 0.01169646, 0.011285,
    0.01151924, 0.01102629, 0.01072117, 0.01050471, 0.01009677,
    0.0105275
  )
), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, -38L), groups = structure(list(
  year = 1980:2017,
  .rows = structure(list(
    1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,
    10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L,
    21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L,
    32L, 33L, 34L, 35L, 36L, 37L, 38L
  ), ptype = integer(0), class = c(
    "vctrs_list_of",
    "vctrs_vctr", "list"
  ))
), row.names = c(NA, -38L), class = c(
  "tbl_df",
  "tbl", "data.frame"
), .drop = TRUE))