Динамический c график изменения выходных данных со значениями ползунка в R блестящий - PullRequest
0 голосов
/ 17 февраля 2020

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

Эта ссылка - именно то, что я хотел бы воспроизвести для моего интерактивного журнала: https://plot.ly/~rreusser/89/# / code : https://plot.ly/r/sliders/ (ссылаясь на ползунок синусоидальной волны)

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

   output$plot <- renderPlotly({
  x <- seq(0,50, 10)
  fun1 <- function(x)(log10(x/(0.03*input$slider_value)) + 6.1) 
  p <- ggplot(data.frame(x=c(0,50, by=10)), aes(x)) +
    stat_function(fun = fun1,  size = 1, aes(color = "green")) +
    coord_flip() +
    ylab("axis_a") +
    xlab("axis_b") +
    guides(color=guide_legend("value")) +
    theme_light() + theme(legend.position = "right") +
    theme_set(theme_grey(base_size = 10)) +
    labs(title="Log Diagram")
  p %>% ggplotly(tooltip = c("text", "y","x"))
     })
Я полагал, что реализация реактивности к графу журналов будет работать, но ничего не отображается:
    fun1 <- reactive({
    a <- seq(min(input$slider_value),max(input$slider_value))
    fun1 <- function(x){(log10(x/(0.03*a)) + 6)} 
     }) 
    output$plot <- renderPlotly({
      x <- seq(0,50, 10)
      p <- ggplot(data.frame(x=c(0,50, by=10)), aes(x)) +
     stat_function(fun = fun1,  size = 1, aes(color = "green")) +
     coord_flip() +
     ylab("axis_a") +
     xlab("axis_b") +
     guides(color=guide_legend("value")) +
     theme_light() + theme(legend.position = "right") +
     theme_set(theme_grey(base_size = 10)) +
     labs(title="Log Diagram")
     p %>% ggplotly(tooltip = c("text", "y","x"))
      })
      }

Вот пользовательский интерфейс для ползунка для обоих проверенных кодов выше:

    ui <-  sliderInput("slider_value", div(style = "color: white", h4("slider_value:")), min = 0, max = 50, value = 1)

Буду признателен, если кто-нибудь сможет помочь определить, в чем причина моих попыток.

Спасибо большое !!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...