如何解决ActionButton在闪亮的R中添加/删除错误栏?
我有一个R Shiny脚本,我想使用actionButton
从图中添加/删除错误条。这是到目前为止我开发的数据和代码,但是我在使用geom_errorbar的linkung actionButton苦苦挣扎
library(shiny)
library(ggplot2)
library(dplyr)
ui <- fluidPage(theme = shinytheme("darkly"),titlePanel("Stream Metabolism (open-channel,single-station)"),sidebarLayout(
sidebarPanel(
# Select type of trend to plot
selectInput(inputId = "Name",label = strong("Site Name"),choices = unique(stack_data1$Name),selected = "Waimea Stream at Mandeville"),# Select date range to be plotted
dateRangeInput("date",strong("Date range"),start = "2019-01-15",end = "2019-01-28",min = "2007-01-01",max = "2050-07-31"),# Select whether to overlay smooth trend line
checkboxInput(inputId = "smoother",label = strong("Overlay smooth trend line"),value = FALSE),# Display only if the smoother is checked
actionButton("add_btn","Add error bars"),actionButton("rm_btn","Remove error bars"),textOutput("counter")
),# Output: Description,lineplot,and reference
mainPanel(h3("Gross primary productivity (GPP)"),plotOutput(outputId = "lineplot1",height = "300px"),h3("Ecosystem respiration (ER)"),plotOutput(outputId = "lineplot2",)
)
)
server <- function(input,output) {
# Subset data
selected_trends <- reactive({
stack_data1 %>% filter(Name==input$Name)})
# Create scatterplot object the plotOutput function is expecting
output$lineplot1 <- renderPlot({
ggplot(selected_trends(),aes(x=selected_trends()$date,y=selected_trends()$GPP.daily)) +
geom_line(stat="identity") + geom_errorbar(aes(ymin=GPP.daily-GPP.se,ymax=GPP.daily+GPP.se))
})
output$lineplot2 <- renderPlot({
ggplot(selected_trends(),y=selected_trends()$ER.daily)) +
geom_line(stat="identity") + geom_errorbar(aes(ymin=ER.daily-ER.se,ymax=ER.daily+ER.se))
})
}
shinyApp(ui = ui,server = server)
数据:
stack_data1 <- structure(list(Name = c("Waimea","Waimea","Mandiville","Mandiville"),GPP.daily = c(2.117490461,2.691075696,1.84678193,2.198962707,1.112202786,2.022502917,2.449018167,2.751946861,1.170689454,2.346309621,2.727397795,2.680414728),GPP.se = c(0.1,0.9,0.5,0.2,0.3,0.1,0.1),ER.daily = c(-4.641115676,-5.928219632,-4.229082781,-4.313901881,-2.319110803,-5.025002375,-5.656338405,-5.686842614,-2.43665092,-4.87119492,-5.669055542,-6.893142768
),ER.se = c(1,2,1.2,1.4,0.8,0.6,1,0.7,1.5,1.3),date = structure(c(1547463600,1547550000,1547636400,1547722800,1547809200,1547895600,1547463600,1547895600),class = c("POSIXct","POSIXt"
),tzone = "")),row.names = c(NA,12L),class = "data.frame")
有人可以帮忙吗?
解决方法
您可以使用radioButton
来满足您的需求:
library(shiny)
library(ggplot2)
library(dplyr)
stack_data1 <- structure(list(Name = c("Waimea","Waimea","Mandiville","Mandiville"),GPP.daily = c(2.117490461,2.691075696,1.84678193,2.198962707,1.112202786,2.022502917,2.449018167,2.751946861,1.170689454,2.346309621,2.727397795,2.680414728),GPP.se = c(0.1,0.9,0.5,0.2,0.3,0.1,0.1),ER.daily = c(-4.641115676,-5.928219632,-4.229082781,-4.313901881,-2.319110803,-5.025002375,-5.656338405,-5.686842614,-2.43665092,-4.87119492,-5.669055542,-6.893142768
),ER.se = c(1,2,1.2,1.4,0.8,0.6,1,0.7,1.5,1.3),date = structure(c(1547463600,1547550000,1547636400,1547722800,1547809200,1547895600,1547463600,1547895600),class = c("POSIXct","POSIXt"
),tzone = "")),row.names = c(NA,12L),class = "data.frame")
ui <- fluidPage(
titlePanel("Stream Metabolism (open-channel,single-station)"),sidebarLayout(
sidebarPanel(
# Select type of trend to plot
selectInput(inputId = "Name",label = strong("Site Name"),choices = unique(stack_data1$Name),selected = "Waimea Stream at Mandeville"),# Select date range to be plotted
dateRangeInput("date",strong("Date range"),start = "2019-01-15",end = "2019-01-28",min = "2007-01-01",max = "2050-07-31"),# Select whether to overlay smooth trend line
checkboxInput(inputId = "smoother",label = strong("Overlay smooth trend line"),value = FALSE),# Display only if the smoother is checked
radioButtons("err_bar","Error bar",c("With error bar" = "yes","No error bar" = "no")),textOutput("counter")
),# Output: Description,lineplot,and reference
mainPanel(h3("Gross primary productivity (GPP)"),plotOutput(outputId = "lineplot1",height = "300px"),h3("Ecosystem respiration (ER)"),plotOutput(outputId = "lineplot2",)
)
)
server <- function(input,output) {
# Subset data
selected_trends <- reactive({
stack_data1 %>% filter(Name==input$Name)})
# Create scatterplot object the plotOutput function is expecting
output$lineplot1 <- renderPlot({
p <- ggplot(selected_trends(),aes(x=selected_trends()$date,y=selected_trends()$GPP.daily)) +
geom_line(stat="identity")
if (input$err_bar=="yes") { p <- p+ geom_errorbar(aes(ymin=GPP.daily-GPP.se,ymax=GPP.daily+GPP.se))}
p
})
output$lineplot2 <- renderPlot({
p <- ggplot(selected_trends(),y=selected_trends()$ER.daily)) +
geom_line(stat="identity")
if (input$err_bar=="yes") { p <- p + geom_errorbar(aes(ymin=ER.daily-ER.se,ymax=ER.daily+ER.se))}
p
})
}
shinyApp(ui = ui,server = server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。