Стабилизируйте значения по оси X в динамической гистограмме для блестящего приложения - PullRequest
Новая
       12

Стабилизируйте значения по оси X в динамической гистограмме для блестящего приложения

0 голосов
/ 07 марта 2019

У меня есть блестящее приложение ниже, которое отображает гистограмму.Эта гистограмма зависит от numericInput() боковой панели.Моя цель состоит в том, чтобы метки оси x всегда были такими: 5,10,15,20 и т. Д. Я установил tick0 на 5 и dtick на 5, но когда я выбрал отображение значений более 5, тогда мой xобозначение оси равно 6,11,16 и т. д. Можно ли стабилизировать значения по оси X 5,10,15 и т. д. независимо от значения numericInput()? 

library(shiny)
library(plotly)
# Define UI for miles per gallon application
ui <- pageWithSidebar(

  # Application title
  headerPanel("Miles Per Gallon"),

  sidebarPanel(
    uiOutput("filt")
  ),

  mainPanel(
    plotlyOutput("pl")
  )
)

# Define server logic required to plot various variables against mpg
server <- function(input, output) {
  name<-c("rre","2df","3df","4sd","5fds","6ds4","7sf","8sdf","9sf","10fds","fg")
  count<-c(2,3,4,5,6,7,5,6,1,10,11)
  num<-data.frame(
    name,count
  )
  output$filt<-renderUI({
    numericInput("n1", ">", 5, min = 1, max = max(num$count), step = 1,
                 width = NULL)
  })

  x <- list(
    dtick = 5,
    tick0 = 5
  )

  d<-reactive({
    num[ which(num$count > input$n1), ]
  })

  output$pl<-renderPlotly(
  plot_ly(x = as.factor(d()[,2]), type = "histogram")%>%
    # Add titles in plot and axes
    layout(barmode = "overlay",xaxis=x)
  )
}

shinyApp(ui, server)
...