блестящий слайдер R с несколькими значениями - PullRequest
Новая
       27

блестящий слайдер R с несколькими значениями

0 голосов
/ 26 мая 2020

Мне нужно использовать ползунок при построении гистограммы. Дело в том, что когда я им пользуюсь, это не очень хорошо. Единственные рабочие значения здесь (от 1 до 36) - 3, 5, 9, 25, 36. Итак, я хотел бы изменить ползунок и сделать доступными только эти значения. Это мой код: CLIENT 

h2('Percentuale di cacao'),
    # Slider per l'istogramma della percentuale di cacao
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins1", "Number of bins:", min = 1, max = 36, value = 10),

        ),
        # Plot dell'istogramma 
        mainPanel(
            plotOutput("distPlot1")
        )
    ),

SERVER 

output$distPlot1 <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins1)
        hist(chocolate$CocoaPerc, nclass = input$bins1, xlab="Percentuale di cacao", main="Frequenza della percentuale
            di cacao", col = c("chocolate", "chocolate3", "chocolate2", "chocolate4"))
    })

Я видел другие вопросы, на которые некоторые пользователи отвечали использовать shinyWidgets, но после просмотра документации я все еще не знаю, как я мог бы положить это сюда. Не могли бы вы мне помочь?

1 Ответ

1 голос
/ 26 мая 2020

Да, вы можете использовать sliderTextInput из shinyWidgets пакета. Вы предоставляете различные значения для выбора, и когда вы получаете значение на входе в виде текста, вы должны преобразовать их в числа перед использованием.

UI 

...
sliderTextInput("bins1", "Number of bins:", choices=c("3", "5", "9", "25", "36"))
...

SERVER 

...
bins <- seq(min(x), max(x), length.out = as.integer(input$bins1))
... nclass = as.integer(input$bins1) ...
...
...