我正在尝试将一些图像(足球标志)绘制为我的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