r - 如何使用ggtext将图像绘制为y轴标签？

Question

我正在尝试将一些图像（足球标志）绘制为我的y轴标签，使用ggtext. 但是，当我尝试查看绘图时收到以下错误消息。

函数错误（类型、msg、asError = TRUE）：

我已经尝试过一些关于如何使用 绘制图像的在线示例ggtext，所以我对导致错误的原因有点困惑。对此的任何帮助将不胜感激。

谢谢你。

library(tidyverse)
library(ggalt)
library(ggtext)

data <- tibble(
  label = c("https://a.espncdn.com/i/teamlogos/nfl/500/tb.png",
            "https://a.espncdn.com/i/teamlogos/nfl/500/no.png",
            "https://a.espncdn.com/i/teamlogos/nfl/500/pit.png",
            "https://a.espncdn.com/i/teamlogos/nfl/500/ind.png",
            "https://a.espncdn.com/i/teamlogos/nfl/500/gb.png"),
  x1 = c(0.219, 0.169, 0.103, 0.193, 0.345),
  x2 = c(0.258, -0.030, 0.071, 0.315, 0.223)
)

link_to_img <- function(x, width = 30) {
  glue::glue("<img src='{x}' width='{width}'/>")
}

plot <- data %>%
  mutate(label = link_to_img(label)) %>%
  ggplot() +
  geom_dumbbell(aes(x = x1, xend = x2, y = label)) +
  theme(axis.text.y = element_markdown())

plot

标签： rggplot2ggtext