Question

与我不同，我希望你们玩得开心！作为一个傻瓜闪亮的家伙，我需要一些指导。好吧，我的数据中有不同的列。例如：

反馈，SUGGESTED_TAG，语言，国家，日期

我想要的是：

该用户可以通过DateRangeInput和选择日期范围可以根据所选日期过滤掉CategoryData。输出应该是直方图或条形图。

我的代码：

 library(shiny)
    library(shinydashboard)
    library(ggplot2)
    library(dplyr)
    data <- read.csv("data Path")
    CategoryData <- data$SUGGESTED_TAG
    LanguageData <- data$Language
DateData <- data$date
DateFilter <- data.frame(CategoryData, date = as.Date(DateData))

ui <- fluidPage(
 plotOutput('myPlot')
)

server <- function(input, output) {
output$myplot <- renderPlot({
                ggplot(DateFilter %>%
                        filter(date >= input$dateRange[1] & 
                                     date <= input$dateRange[2]))
      })
}

shinyApp(ui = ui, server = server)

我收到错误：

tagAssert中的错误（body，type =“div”，class =“content-wrapper”）：参数“body”缺失，没有默认值

我不知道我是否正走在正确的道路上，请帮助如何过滤出与日期有关的数据.Thankyou

根据R闪亮的日期绘制数据

0 个答案: