#r #ggplot2 #shiny #action-button #numeric-input
Вопрос:
Я написал приложение на языке Shiny, в котором вы можете увидеть гистограмму, если нажмете «Посмотреть график».
С другой стороны, у вас есть 2 числа, в которых вы можете изменять минимальное и максимальное значения оси x. На самом деле, если вы измените эти значения и снова нажмете «Просмотреть график», вы увидите, что ось x изменилась.
Однако я хотел, чтобы у меня была кнопка для сброса значений и восстановления исходного графика. Это работает.
Проблема в том, что если вы попытаетесь изменить минимальное и максимальное значения, чтобы повторить процесс (после нажатия кнопки сброса), вы не сможете. Числа были удалены автоматически, и вы не сможете изменить их значения, если не закроете приложение и не откроете его снова.
Возможно, код слишком сложен для построения одной гистограммы, но это простой код из оригинала.
Кто-нибудь может мне в этом помочь?
Большое спасибо.
Мой код:
library(shiny)
library(ggplot2)
################### DATA ########################
val <- c(2.1490626,3.7928443,2.2035281,1.5927854,3.1399245,2.3967338,3.7915825,4.6691277,3.0727319,2.9230937,2.6239759,3.7664386,4.0160378,1.2500835,4.7648343,0.0000000,5.6740227,2.7510256,3.0709322,2.7998003,4.0809085,2.5178086,5.9713330,2.7779843,3.6724801,4.2648527,3.6841084,2.5597235,3.8477471,2.6587736,2.2742209,4.5862788,6.1989269,4.1167091,3.1769325,4.2404515,5.3627032,4.1576810,4.3387921,1.4024381,0.0000000,4.3999099,3.4381837,4.8269218,2.6308474,5.3481382,4.9549753,4.5389650,1.3002293,2.8648220,2.4015338,2.0962332,2.6774765,3.0581759,2.5786137,5.0539080,3.8545796,4.3429043,4.2233248,2.0434363,4.5980727)
df1 <- data.frame(val)
df1$type <- "Type 1"
val <- c(3.7691229,3.6478055,0.5435826,1.9665861,3.0802654,1.2248374,1.7311236,2.2492826,2.2365337,1.5726119,2.0147144,2.3550348,1.9527204,3.3689502,1.7847986,3.5901329,1.6833872,3.4240479,1.8372175,0.0000000,2.5701453,3.6551315,4.0327091,3.8781182)
df2 <- data.frame(val)
df2$type <- "Type 2"
df3 <- rbind(df1, df2)
################ SHINY APP ########################
ui <- fluidPage(
titlePanel("Histogram"),
sidebarLayout(
sidebarPanel(
numericInput("xmin", "Min", value=NULL),
numericInput("xmax", "Max", value=NULL),
actionButton("reset", "Reset the x-axis"),
actionButton("add_plot", "See the plot")
),
mainPanel(
plotOutput("plot"),
)
)
)
server <- function(session, input, output) {
histogram_function <- reactive({
hist <- ggplot(df3, aes(val, fill=type))
geom_histogram(position = "identity", colour = "grey40", bins = 10)
ggtitle("Here must be a title")
xlab("Values")
ylab("Frequency")
facet_grid(type ~ .)
theme(strip.text.x = element_blank(),
strip.text.y = element_blank())
hist <- hist coord_cartesian(xlim=c(input$xmin, input$xmax))
return(hist)
})
v <- reactiveValues(plot = NULL)
observeEvent(input$add_plot, {
v$plot <- histogram_function()
})
observe({
if(input$reset >0){
updateNumericInput(session, "xmin", "Min", value=NA)
updateNumericInput(session, "xmax", "Max", value=NA)
v$plot <- histogram_function()
updateNumericInput(session, "xmin", "Min", value=NULL)
updateNumericInput(session, "xmax", "Max", value=NULL)
}
})
output$plot <- renderPlot({
if (is.null(v$plot)) return()
v$plot
})
}
shinyApp(ui = ui, server = server)
Ответ №1:
Я думаю, что следующее должно выполнить эту работу, все, что я действительно добавил, — это сброс графика v$plot <- NULL и зависимость с observeEvent
library(shiny)
library(ggplot2)
################### DATA ########################
val <- c(2.1490626,3.7928443,2.2035281,1.5927854,3.1399245,2.3967338,3.7915825,4.6691277,3.0727319,2.9230937,2.6239759,3.7664386,4.0160378,1.2500835,4.7648343,0.0000000,5.6740227,2.7510256,3.0709322,2.7998003,4.0809085,2.5178086,5.9713330,2.7779843,3.6724801,4.2648527,3.6841084,2.5597235,3.8477471,2.6587736,2.2742209,4.5862788,6.1989269,4.1167091,3.1769325,4.2404515,5.3627032,4.1576810,4.3387921,1.4024381,0.0000000,4.3999099,3.4381837,4.8269218,2.6308474,5.3481382,4.9549753,4.5389650,1.3002293,2.8648220,2.4015338,2.0962332,2.6774765,3.0581759,2.5786137,5.0539080,3.8545796,4.3429043,4.2233248,2.0434363,4.5980727)
df1 <- data.frame(val)
df1$type <- "Type 1"
val <- c(3.7691229,3.6478055,0.5435826,1.9665861,3.0802654,1.2248374,1.7311236,2.2492826,2.2365337,1.5726119,2.0147144,2.3550348,1.9527204,3.3689502,1.7847986,3.5901329,1.6833872,3.4240479,1.8372175,0.0000000,2.5701453,3.6551315,4.0327091,3.8781182)
df2 <- data.frame(val)
df2$type <- "Type 2"
df3 <- rbind(df1, df2)
################ SHINY APP ########################
ui <- fluidPage(
titlePanel("Histogram"),
sidebarLayout(
sidebarPanel(
numericInput("xmin", "Min", value=NULL),
numericInput("xmax", "Max", value=NULL),
actionButton("reset", "Reset the x-axis"),
actionButton("add_plot", "See the plot")
),
mainPanel(
plotOutput("plot"),
)
)
)
server <- function(session, input, output) {
v <- reactiveValues(plot = NULL)
histogram_function <- reactive({
hist <- ggplot(df3, aes(val, fill=type))
geom_histogram(position = "identity", colour = "grey40", bins = 10)
ggtitle("Here must be a title")
xlab("Values")
ylab("Frequency")
facet_grid(type ~ .)
theme(strip.text.x = element_blank(),
strip.text.y = element_blank())
hist <- hist coord_cartesian(xlim=c(input$xmin, input$xmax))
return(hist)
})
observeEvent(input$add_plot, {
v$plot <- histogram_function()
})
observeEvent(input$reset,{
updateNumericInput(session, "xmin", "Min", value=NA)
updateNumericInput(session, "xmax", "Max", value=NA)
v$plot <- NULL
},ignoreNULL = TRUE,ignoreInit = TRUE)
output$plot <- renderPlot({
if (is.null(v$plot)) {
return()
}
v$plot
})
}
shinyApp(ui = ui, server = server)
Комментарии:
1. Большое спасибо! Не могли бы вы объяснить мне, почему вы используете ignoreNULL = TRUE и ignoreInit = TRUE? Я никогда ими не пользовался и не знаю, что они делают.
2. Таким образом, это инициализация, при первой загрузке она не сработает по умолчанию, следовательно, «ignoreInit = TRUE
, then if it is every aNULL» она также не сработает, следовательно,ignoreNULL = TRUE