Блог

У меня есть следующий фрагмент кода на моем блестящем сервере:

   output$SimilarityComparison <- renderPlotly({
    df <- newmpresults[place == input$CitySelected amp; upc_code == input$SKUSelected amp; category == input$categoryselectedtrends,]
    graph.title <- df$description
    plot_ly(
      #newmpresults[place == input$CitySelected amp; upc_code == input$SKUSelected amp; category == input$categoryselectedtrends,],
      df,
      x=~quantity,
      y = ~unit_price,
      text = ~paste("Precio: ", unit_price, '$<br>Cantidad:', quantity, '<br>MP:', type),
      color = ~as.factor(type)) %>%
      add_markers()%>%
      layout(
        title = ~paste('Producto:', graph.title),
        xaxis = list(title ='Cantidad'),
        yaxis = list(title ='Precio')) %>%
      config(displayModeBar = FALSE)
  })

  

и я бы хотел, чтобы при изменении выбора в пользовательском интерфейсе заголовок моего графика менялся и отображался на графике (только layout( title = ~paste('Producto:', graph.title) часть вызывает у меня проблемы). Я думал, что это будет так же просто, как просто объявить df$description в качестве моего ввода заголовка, но он не отображается на графике. Все остальное работает хорошо. Любой совет, который вы могли бы мне дать?

Если df$description это не одна запись, у вас есть вектор в качестве заголовка. Попробуйте это

 graph.title <- unique(df$description)
layout( title = paste('Producto:', graph.title)