我正在创建一个闪亮的应用程序,显示各种股票的各种财务指标的趋势 . 各个股票的财务指标在每个季度末提供 .
我想让我的最终用户能够使用Slider Input来选择 date range 进行分析 . 之前关于SO的问题涉及使用 single value 作为滑块而不是范围(例如this post) . 因此,我无法复制解决方案 .
以下是我正在使用的包和模拟数据文件 . 共有3列:(a)日期,(b)股票,(c)特定指标的 Value .
library(shiny)
library(readxl)
library(dplyr)
library(ggplot2)
library(lubridate)
df <- data.frame(Date = c("30/09/2018", "30/06/2018", "31/03/2018", "31/12/2017", "30/09/2017", "30/06/2017",
"31/03/2017", "30/09/2018", "30/06/2018", "31/03/2018", "31/12/2017", "30/09/2017", "30/06/2017",
"31/03/2017"),
Stock = c(rep("AAA", 7), rep("BBB", 7)),
Value = c(5.1, 5.2, 5.6, 5.5, 5.6, 5.7, 5.6, 6.4, 6.9, 6.7, 7.2, 7.2, 7.2, 7.7))
df$Date <- as.Date(df$Date, format = "%d/%m/%Y")
df$Stock <- as.character(df$Stock)
以下是用户界面:
# Define UI for application
ui <- fluidPage(
# Application title
titlePanel("Stock Financials Trend"),
# Sidebar with slider input to select date range
sidebarLayout(
sidebarPanel(
selectInput("Stock_selector",
"Stock:",
c("AAA", "BBB")),
# Add a Slider Input to select date range
sliderInput("Date_range_selector", "Select Date Range",
min = 2017,
max = 2018,
value = c(2017, 2018))
),
# Show a plot of the trend
mainPanel(
plotOutput("plot")
)
)
)
服务器如下:
server <- function(input, output) {
filtered_df <- reactive({
df %>%
filter(Stock == input$Stock_selector & year(Date) == between(year(Date), input$Date_range_selector[1], input$Date_range_selector[2]))
})
output$plot <- renderPlot({
ggplot(filtered_df(), aes_string(x = "Date", y = "Value")) + geom_line() + geom_point() +
labs(title = paste(input$Stock_selector, "Trend", sep = " "), y = "Value")
})
}
# Run the application
shinyApp(ui = ui, server = server)
我的脚本显示使用dplyr表达式完成过滤,然后将其分配给反应式表达式,随后用于与ggplot绘图 .
上面的脚本显示空白输出 .
我也尝试用 year(as.Date("2017", format = "%d/%m/%Y"))
替换 sliderInput
函数中2017和2018的 numeric
值,但输出仍然失败 .
所需的输出类似于以下内容(假设选择了库存AAA,范围设置为2018年至2018年):
谢谢!
1 回答
您需要在过滤器语句中删除
year(Date) ==
,即将其更改为: