Question

我正在尝试在RMD文件中创建一个闪亮的Flexdashboard，我想在同一图中比较我们的软件与不同线条的性能。
只要不添加任何线条，我的代码工作正常，它显示了我的散点图，但是当我尝试添加一行时，我收到以下错误消息：
Warning: Error in UseMethod: no applicable method for 'plotly_build' applied to an object of class "c('tbl_df', 'tbl', 'data.frame')"[No stack trace available]

起初，我认为我要可视化的数据类别存在问题，因为原始plot_ly散点图（即“测试”）中使用的数据属于tbl_df类我的“ datasetM5”属于data.frame类。
因此，我使用datasetM5 <- as_tibble(datasetM5)将其转换为小标题，但它仍然不起作用。
我不知道是否这很重要，但是我事先使用data.frame和之前计算出的向量创建了“ datasetM5”。
代码基本上看起来像这样，包括一些inputWidgets来交互式过滤要显示的数据：

test <- read_excel ("PATH-to-the-xlsx-file")

Interactive Data Visualizations {data-icon="fa-signal"}
=======================================

Row
-----------------

### Chart A


ui = fluidPage(
    pickerInput("varL", label = "Laser:",choices = uL, options = list(`actions-box` = TRUE),multiple = T, selected = uL ),

plotlyOutput(outputId = "plot1")

  )
  server = function(input, output) {
output$plot1 <-renderPlotly({

plot_ly(test, x = ~FR, y = ~L)
add_lines(datasetM5, x = ~FR , y = ~L, color = "green")
    })
  }    

  shinyApp(ui,server)

预期结果将是在现有图形中以绿色显示第二行。
我对R和Shiny还是很陌生，所以请告诉我我是否犯了菜鸟错误或忘记提供一些关键信息。谢谢！

尝试在有光泽的flexdashboard上向绘图图添加线时如何解决错误：“'plotly_build'[...]没有适用的方法”

0 个答案: