Build a graph using data from a dataframe in plot_ly



I have the following DF:

I want to build a graph using "plot_ly" where:
X axis -> Corrida
Y axis -> TubosComDefeitoPorCorrida

On the bars, when the user pass the mouse, must show a message like this:

           text =     '</br> \n Total de tubos Inspecionados: ', TubosTotalPorCorrida for each number of "Corrida",
                         '</br> \n Total de tubos ippns: ', TubosComDefeitoPorCorrida for each number of "Corrida",

Like the image below:

By the way, my graph code is actually:

  d <- plot_ly(data = tabela, x = ~tabela[,categoria], y = ~tabela[,eixoY],
               ##marker = list(color = "Red"),
               type = "bar",
               showlegend = F,
               hoverinfo = 'text',
               text = ~paste(switch (categoria,"corrida" = "Corrida","veio" = "Veio","sequencial" = "Barra sequencial","bloco" = "Bloco"), tabela[,categoria],
                             '</br> \n Total de tubos Inspecionados: ', lupas_inspecionadas,
                             '</br> \n Total de tubos ippns: ', tubos_indicados,
                             '</br> \n Qtd. Tubos ippns: ', tabela$ippn,
                             '</br> \n Percentual Absoluto: ', tabela$perc_absoluto,
                             '</br> \n Percentual Relativo: ', tabela$perc_relativo)) %>%
    layout(legend = list(orientation = 'h')) %>%
    layout(title = switch(categoria,"corrida"= paste0("\n Estratificação de ",paste(defeito, collapse=", ")," por Corrida"),
                          "veio"=paste0("\n Estratificação de ",paste(defeito, collapse=", ")," por Veio"),
                          "sequencial"=paste0("\n Estratificação de ",paste(defeito, collapse=", ")," por Barra Sequencial"),
                          "bloco"=paste0("\n Estratificação de ",paste(defeito, collapse=", ")," por Bloco")),
           xaxis = list(title = F,showticklabels = T),
           yaxis = list(title = switch(eixoY,"ippn" = "Qtd. Peças",
                                       "perc_absoluto" = "%",
                                       "perc_relativo" = "%")

That is not a dataframe, that is a screenshot, to help us help you, could you please turn this into a REPRoducible EXample (reprex) illustrating your issue?