legends hoverinfo examples color r shiny rstudio plotly

hoverinfo - plotly r color



Mouseover en plotly y brillante (1)

Necesita intercambiar algunas funciones básicas brillantes para sus homólogos de la trama. Es decir, plotOutput -> plotlyOutput y renderPlot -> renderPlotly . Además, esa última plot(p) no es lo que desea devolver: solo desea devolver p (el objeto de la trama).

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)

Tengo un código plotly que llama perfectamente a los nombres de fila de un dataframe en mouseover dentro de RStudio y en RPubs. . . pero no cuando está incrustado en Shiny. El código básico es:

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")

La versión Shiny, sin embargo, está completamente muerta. ¿Qué me estoy perdiendo?

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)