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

Posted 2023-02-16

【中文标题】ggtext::geom_textbox：如何将链接显示为原始文本？

【英文标题】：ggtext::geom_textbox: How to display links as raw text?

【发布时间】：2021-05-26 15:44:24

【问题描述】：

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

library(ggtext)
library(ggplot2)

test_data <- data.frame(x = 1,
                        y = 2,
                        text = "https://www.***.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 日创建}

【问题讨论】：

可能相关：***.com/questions/42259826/…

谢谢，我会调查的。它不是关于显示超链接，而是关于在文本框中显示链接作为原始文本。

【参考方案1】：

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

library(ggtext)
library(ggplot2)

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

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

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