0

我正在尝试查看是否有办法将 tab_spanner 中的标签更改为网络图像。

  df %>%
  gt() %>%
  tab_spanner(label = "https://resources.premierleague.com/premierleague/photos/players/250x250/p97299.png", columns = vars(instances_1, rank_1)) %>%
  tab_spanner(label = "https://resources.premierleague.com/premierleague/photos/players/250x250/p95658.png", columns = vars(instances_2, rank_2))

我之前曾使用 text_transform 和 web_image 函数在列中添加图像，但如果 gt 中存在该功能，则不确定当它不是列时如何更改标签。

  text_transform(
    locations = cells_body(vars(url)),
    fn = function(x) {
      web_image(url = x,
                height = px(22.5))
    }
  )

我在下面提供了一个来自 Iris 的示例数据集。实际上，我会用这个网址（https://upload.wikimedia.org/wikipedia/commons/thumb/7/78/Petal-sepal.jpg/220px-Petal-sepal.jpg）和此网址中带有此图片的花瓣标签（https://upload.wikimedia.org/wikipedia/commons/thumb/e/e2/Tulip_Tulipa_clusiana_%27Lady_Jane%27_Rock_Ledge_Flower_2000px.jpg/198px-Tulip_Tulipa_clusiana_%27Lady_Jane%27_Rock_Ledge_Flower_2000px.jpg）

iris %>%
  filter((Sepal.Length==5.1 & Species=='versicolor')) %>%
  select(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width) %>%
  gt() %>%
  tab_spanner(label = "Sepal", columns = vars(Sepal.Length, Sepal.Width)) %>%
  tab_spanner(label = "Petal", columns = vars(Petal.Length, Petal.Width))

谢谢你的帮助！

4

0 回答 0