条形图在闪亮的Web应用程序中未显示

Question

我正在尝试在Web应用程序中显示条形图，但有一个白色区域。我在应用程序代码工作之外查看了我的代码。问题是什么？帮帮我？我的条形图代码

output$revenuebyPrd <- renderPlotly({
    plot_ly(data,
      x = ~company_name,
      y = ~revenue,
      type = "bar"
    )
  })

我的数据可以帮助您：

mydb = dbConnect(MySQL(), user='root', password='xxxx', dbname='app', host='localhost')
  on.exit(dbDisconnect(mydb), add = TRUE)
  rs=dbGetQuery(mydb, "SET NAMES 'cp1251'") 
  rs=dbSendQuery(mydb,"select * from companies")
  data=fetch(rs,n=-1)
  rs1=dbSendQuery(mydb,"select revenue from companies")
  revenue=fetch(rs1,n=-1)
  rs2=dbSendQuery(mydb,"select industry from companies")
  industry=fetch(rs2,n=-1)
  rs3=dbSendQuery(mydb,"select company_name from companies")
  industry=fetch(rs3,n=-1)

Answer 1

[在Shiny应用的服务器端渲染对象时，您需要使用随附的render_（）函数。例如，要渲染数据框，请使用renderTable（）。如果您尝试从第三方程序包（例如DT，Plotly）渲染对象，并且该对象与Shiny兼容，则该程序包应包含随附的render_（）函数（例如DT :: renderDT（）， plotly :: renderPlotly（））。

在您的情况下，您正在使用第三方程序包“ plotly”。 Plotly随附了随附的renderPlotly（）和plotlyOutput（）函数，可用于Shiny。因此，您的代码应如下所示：

output$revenuebyPrd <- renderPlotly({
  plot_ly(data,
    x = ~company_name,
    y = ~revenue,
    type = "bar"
  )
})