R - kableExtra 创建带链接的列

Question

我正在创建一个包含超链接列的表格，但这些超链接很长，我想用长文本替换图像，单击它并在新选项卡中打开链接。

例如，使用这段代码

df = iris[c(1,51,101),]
df$hyperlink = c("https://en.wikipedia.org/wiki/Iris_setosa", "https://en.wikipedia.org/wiki/Iris_versicolor", "https://en.wikipedia.org/wiki/Iris_virginica")

kable(df,format = "html")%>%
  kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)

我将最后一列作为超链接获取，但我想要放置一个图像，单击该图像会打开 url(最好在新窗口或选项卡中打开)

Answer 1

您可以通过添加适当的 html 标签来添加可点击的图像。 <a href='...'></a>用于超链接，<img src='...'>用于图像。只需将图片标签放在开始和结束 html 标签之间。另外，一定要包括 escape=FALSE在kable声明使其工作。

library(kableExtra)
library(dplyr)
df = iris[c(1,51,101),]
df$hyperlink = c("<a href='https://en.wikipedia.org/wiki/Iris_setosa'><img src='setosa.png' /</a>", 
"<a href='https://en.wikipedia.org/wiki/Iris_versicolor'><img src='versicolor.png' /></a>", 
"<a href='https://en.wikipedia.org/wiki/Iris_virginica'><img src='virginica.png' /></a>")

kable(df,escape=FALSE,format = "html")%>%
  kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)