无效输入：date_trans只有

与GGPLOT2和闪亮实现这个类Date对象所进行的工作的日期范围两个输入选择，并有情节调节X（日期值）相应地调整，但是，我在下面得到这个错误：无效输入：date_trans只有

Invalid input: date_trans works with objects of class Date only

我该如何解决这个问题？这里是我的代码如下：

library(shiny) 
library(ggplot2) 
library(dplyr) 



data <- read.csv("C:/Users/user/Documents/R/R-3.3.1/R CODE/MyData2.csv", header = TRUE) # reading .csv 
newdata <- as.data.frame(data) # converting csv to DF 
newdata$event_date <- as.factor(newdata$event_date) 

str(newdata) 

ui <- fluidPage(

    selectInput("select", label = h3("Select Model"), 
       choices = list("Toyota Camry", "Nissan Altima")), 

    dateInput("strtdate", "Select start date:"), 

    dateInput("enddate", "Select end date:"), 

    plotOutput("hist") 
) 

server <- function(input, output) { 

    output$hist <- renderPlot({ 

    df <- newdata %>% select(event_date,PlatformName,total_events) %>% filter(PlatformName == input$select) %>% group_by(event_date, PlatformName) %>% summarize(total_events = sum(total_events)) 

    gg <- ggplot(df, aes(x= event_date, y = total_events, group =PlatformName)) + 
     geom_line(aes(color = PlatformName)) + 


     labs(title="Total Events vs. Time", x="Event Dates", y="Total Events") + 

       aes(xmin = input$strtdate, 
        xmax = input$enddate) + 


     theme(plot.title=element_text(size=20, face="bold", hjust = 0.5), 
      axis.text.x=element_text(size=10, angle=90,hjust=1,vjust=0.5), 
      axis.text.y=element_text(size=5), 
      axis.title.x=element_text(size=10), 
      axis.title.y=element_text(size=10)) 

    print(gg) 

    }) 
} 

shinyApp(ui = ui, server = server)

来源

2017-04-07 Techno04335

寻求帮助时，你应该包括[重复的例子（http://stackoverflow.com/questions/5963269/how -to-使-A-大-R再现的-例如用样本的输入数据）。如果你在你的数据日期值，确保它们解析为日期（无论他们有'级（）''Date'或'POSIXct'或东西）。现在，你似乎使他们的因素而这不会使事情更容易对R理解。 – MrFlick

解决了这个问题。只需要以日期格式转换特定日期列即可。

途经：

newdata$event_date <- as.Date(newdata$event_date)

因此，新的代码：

library(shiny) 
library(ggplot2) 
library(dplyr) 



data <- read.csv("C:/Users/user/Documents/R/R-3.3.1/R CODE/MyData2.csv", header = TRUE) # reading .csv 
newdata <- as.data.frame(data) # converting csv to DF 


newdata$event_date <- as.factor(newdata$event_date) #CODE IMPLEMENTAITON 


str(newdata) 

ui <- fluidPage(

    selectInput("select", label = h3("Select Model"), 
       choices = list("Toyota Camry", "Nissan Altima")), 

    dateInput("strtdate", "Select start date:"), 

    dateInput("enddate", "Select end date:"), 

    plotOutput("hist") 
) 

server <- function(input, output) { 

    output$hist <- renderPlot({ 

    df <- newdata %>% select(event_date,PlatformName,total_events) %>% filter(PlatformName == input$select) %>% group_by(event_date, PlatformName) %>% summarize(total_events = sum(total_events)) 

    gg <- ggplot(df, aes(x= event_date, y = total_events, group =PlatformName)) + 
     geom_line(aes(color = PlatformName)) + 


     labs(title="Total Events vs. Time", x="Event Dates", y="Total Events") + 

       aes(xmin = input$strtdate, 
        xmax = input$enddate) + 


     theme(plot.title=element_text(size=20, face="bold", hjust = 0.5), 
      axis.text.x=element_text(size=10, angle=90,hjust=1,vjust=0.5), 
      axis.text.y=element_text(size=5), 
      axis.title.x=element_text(size=10), 
      axis.title.y=element_text(size=10)) 

    print(gg) 

    }) 
} 

shinyApp(ui = ui, server = server)

来源

2017-04-07 15:40:58 Techno04335

无效输入：date_trans只有

回答

相关问题