Как использовать изображения/значки в качестве меток в highcharter? Р блестящий

Я использую highcharter для создания гистограммы в блестящем приложении, но у меня возникают проблемы с отображением значков в виде меток на оси x. Цель состоит в том, чтобы использовать изображения svg из файла, помещенного в рабочий каталог.

Я приложил пример ниже, и я искал вдохновение в следующих двух ссылках, но у меня возникли проблемы с получением JS-функции в Rshining-setup. https://www.highcharts.com/demo/column-comparison https://www.highcharts.com/forum/viewtopic.php?t=16609

Хотя проблема была в отступе перед кавычками, но когда я отображаю значок в своем приложении, просто используя tags$div(HTML("<img src = \"logoA.svg\">")), он отображается отлично (logoA.svg помещается в папку www)

Любые предложения, как решить эту проблему?

  
library(shiny)
library(highcharter)
library(dplyr)


## app.R ##
server <- function(input, output) {
  output$plot<- renderHighchart({
    
    Label1<- c("A","A","B","B")
    Label2<- c("1","2","1","2")
    Val<- runif(4,0,100)
    col<-c("#d21e1e","#009beb","#ff5a1a","#009beb")
    Data<-data.frame(Label1,Label2,Val,col)
 
    highchart(type="chart") %>%
      hc_add_series(data = Data,type = "column",
                    hcaes(x = Label1,
                          y = Val,
                          group = Label2,
                          color = col),
                    dataLabels = list(enabled = TRUE, format='{point.mean}'))%>%
      hc_legend(enabled = F)%>% 
      hc_xAxis(type= 'category', useHTML=T, labels=list(formatter = JS("function(){
                                                          if(this.value == 'A'){
                                                            return '<img src=\"logoA.svg\"></img>';
                                                          }else if(this.value == 'B')
                                                            return '<img src=\"logoB.svg\"></img>';
                                                          }")) )

  })
}

ui <- fluidPage(
  tags$div(
    HTML("<img src=\"logoA.svg\"></img>")
  ),
  
  highchartOutput("plot")
  
)

shinyApp(ui = ui, server = server)

r javascript highcharts shiny r-highcharter
person kangaro0o    schedule 08.02.2021    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы почти у цели, просто переместите параметр useHTML=T из функции hc_xAxis в список labels:

    highchart(type = "chart") %>%
        hc_add_series(
            data = Data,
            type = "column",
            hcaes(
                x = Label1,
                y = Val,
                group = Label2,
                color = col
            ),
            dataLabels = list(enabled = TRUE, format = '{point.mean}')
        ) %>%
        hc_legend(enabled = F) %>%
        hc_xAxis(type = 'category',
                 labels = list(
                     formatter = JS(
                         "function(){
                              if(this.value == 'A'){
                                return '<img src=\"logoA.svg\"></img>';
                              }else if(this.value == 'B')
                                return '<img src=\"logoB.svg\"></img>';
                              }"
                     ),
                     useHTML = T
                 ))
person HubertL    schedule 08.02.2021
comment
Спасибо, это работает! Мне также нужно было указать ширину и высоту следующим образом: return '‹img src = \LogoA.svg\ width=\50\ height=\60\›' - person kangaro0o; 09.02.2021