ggtext::geom_textbox：如何将链接显示为原始文本？

问题描述

我正在尝试在文本框中显示 Web 链接（作为原始文本）。但是，出现错误（不幸的是，我不是 HTML 专家）。这有什么方法可以重新格式化 Web 链接，以便它们可以在文本框中显示为原始文本？谢谢！

library(ggtext)
library(ggplot2)

test_data <- data.frame(x = 1,y = 2,text = "https://www.stackoverflow.com") 

ggplot(test_data,aes(x = x,y = y,label = text)) +
  geom_textBox()

#> Error: gridtext has encountered a tag that isn't supported yet: <a>
#> Only a very limited number of tags are currently supported.

^{由 reprex package (v1.0.0) 于 2021 年 2 月 24 日创建}

解决方法

我找到了一个非常简单的解决方案。如果您使用 HTML 实体转义相关字符，它会起作用。

library(ggtext)
library(ggplot2)

test_data <- data.frame(x = 1,y = 2,text = "https:&#47;&#47;www&#46;stackoverflow.com") 

ggplot(test_data,aes(x = x,y = y,label = text)) +
  geom_textbox(width = 0.6)

^{由 reprex package (v1.0.0) 于 2021 年 2 月 24 日创建}