Я работал над этой проблемой, и мне не удалось найти решение. Я хотел бы визуально отобразить значения из slider_value в граф журнала, поэтому, по сути, будет только одна линия графика, которая изменит свою крутизну в зависимости от slider_values.
Эта ссылка - именно то, что я хотел бы воспроизвести для моего интерактивного журнала: https://plot.ly/~rreusser/89/# / code : https://plot.ly/r/sliders/ (ссылаясь на ползунок синусоидальной волны)
- Я также упоминал аналогичное устранение неполадок в соответствующем посте, но моя ось продолжает скользить: 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)
Буду признателен, если кто-нибудь сможет помочь определить, в чем причина моих попыток.
Спасибо большое !!