sactyr's questions

我想将图像嵌入到 plotly 图表的 x 轴中（而不是代替 x 轴）。我尝试过的代码：

library(plotly)
library(dplyr)
library(tidyr)

Animals <- c("giraffes", "orangutans", "monkeys")
SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)
data <- data.frame(Animals, SF_Zoo, LA_Zoo) %>% 
  pivot_longer(cols = c(SF_Zoo, LA_Zoo)) %>% 
  mutate(Animals = paste(Animals, "<img src='https://images.plot.ly/language-icons/api-home/r-logo.png'</img>"))


plot_ly(data, x = ~Animals, y = ~value, type = 'bar', color = ~name) %>%
  layout(
    barmode = "stack"
  )

可以看出，img标签被打印为文字字符串。我尝试过包装刻度标签Animals，htmltools::HTML但没有成功。

本plotly 指南讨论了在绘图区域内嵌入图像/徽标，但我想将图像嵌入为刻度标签的一部分。此python SO 解决方案将刻度标签完全替换为图像。

我对在 slickR 的轮播中渲染 DT 数据表感兴趣。我实际的用例是先显示一张图片，然后显示一个表格。下面是我想做的一个简单示例（不过代码会生成一个空的 Shiny 应用程序）：

library(shiny)
library(dplyr)
library(purrr)
library(DT)
library(slickR)

ui <- fluidPage(
  slickROutput("iris_slickr")
)

server <- function(input, output) {
  
  output$iris_slickr <- renderSlickR({
    
    iris_split <- iris %>% 
      split(f = ~Species) 
    
    slickR(
      map(
        names(iris_split)
        ,~datatable(iris_split[[.x]])
      )
    )
    
  })
  
}

shinyApp(ui = ui, server = server)

在上面的例子中，我希望每个鸢尾花品种都有一个幻灯片。我认为这行不通的原因是因为 DT 有自己的渲染功能，我不确定如何将两者结合起来，renderSlickR以及renderDT这是否可能。我知道我可以简单地使用数据表的分页来实现这一点，但正如提到的，我的用例也会在每个表上方有一个图像，例如鸢尾花品种图像。