r - تمرير الماوس في بلوتلي وبراقة



shiny rstudio (1)

تحتاج إلى مبادلة بعض الوظائف الأساسية لامعة نظرائهم بلوتلي. على وجه التحديد plotOutput -> plotlyOutput و renderPlot -> renderPlotly . أيضا، أن plot(p) الماضي plot(p) ليست ما تريد العودة: كنت ترغب فقط في العودة p (كائن المؤامرة).

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)

ui <- fluidPage(
  titlePanel("Word Frequency Analysis for Meiji-era Authors"),
  mainPanel(
    plotlyOutput("plot"),
    dataTableOutput("Print")
  )
)


server <- function(input, output){            
  output$plot<-renderPlotly({
    p <- plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "text")
    #plot(p)
    p
  })
  output$Print<-renderDataTable({Trial})     
}

shinyApp(ui = ui, server = server)

لدي بعض التعليمات البرمجية بلوتلي الذي يدعو تماما أسماء الصف من داتافريم على تمرير الماوس داخل كل من رستوديو وعلى ربوبس. . . ولكن ليس عندما جزءا لا يتجزأ من لامعة. الرمز الأساسي هو:

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)
plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "markers") 

النسخة لامعة، ومع ذلك، هو ميت تماما. ماذا ينقصني؟

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)

ui <- fluidPage(
  titlePanel("Word Frequency Analysis for Meiji-era Authors"),
      mainPanel(
      plotOutput("plot"),
      dataTableOutput("Print")
    )
  )


server <- function(input, output){


  output$plot<-renderPlot({
    p <- plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "text")
    plot(p)
  })
  output$Print<-renderDataTable({Trial})



}

shinyApp(ui = ui, server = server)