Как использовать плотно в R блестящий - PullRequest
0 голосов
/ 19 февраля 2020

Я пытаюсь добавить график для вывода, который я сгенерировал, используя блестящий. Я получаю ошибку для генерации графа. Может кто-нибудь, пожалуйста, посмотрите и помогите. Параметры гистограммы - это выходные данные, основанные на расчетах.

server
output$graph<- renderPlotly({

  plotly( x= c(as.numeric(input$contract), round(frateperton()), differencerate()),

         y= c('Contract Rate', 'ZBC Rate', 'Difference'),

         name = "Zero Based Rate Chart",

         type = "bar")

})


UI
plotlyOutput("graph"),

1 Ответ

1 голос
/ 19 февраля 2020

Прежде всего, два замечания к вашему сообщению:

  • это не воспроизводимо, см. здесь , чтобы узнать, что такое воспроизводимый пример и как сделать один
  • очевидно, что вы не искали достаточно. Ввод «r блестящий сюжетный вывод» в любой поисковой системе дает несколько возможных решений (например, здесь ).

В следующий раз, когда у вас возникнут проблемы, пожалуйста, рассмотрите эти два момента, прежде чем принимать сообщение о StackOverflow.

Теперь ответим (используя данные iris, поскольку ваш пример не воспроизводим):

library(shiny)
library(plotly)

ui <- fluidPage(
  selectInput("choice", "Choose", choices = names(iris), selected = NULL),
  plotlyOutput("graph")
  )

server <- function(input, output, session){

  output$graph <- renderPlotly({
    plot_ly(iris, x = ~get(input$choice), y = ~Sepal.Length, type = 'scatter', mode = 'markers')
  })
}

shinyApp(ui, server)
...