為什么data.frame不能將列類型“未知”轉換為日期？

Question

堆棧溢出之友，我真想讓我的假data.frame轉換為類類型“ date”。

數據

library(anytime)

fake.data<-data.frame(

  date = c('01/01/2019', '01/02/2019', '01/03/2019', '01/04/2019', '01/05/2019', '01/06/2019', '01/07/2019',
           '01/01/2019', '01/02/2019', '01/03/2019', '01/04/2019', '01/05/2019', '01/06/2019', '01/07/2019'),

  location = c('Point A', 'Point A', 'Point A', 'Point A', 'Point A', 'Point A', 'Point A',
               'Point B', 'Point B', 'Point B', 'Point B', 'Point B', 'Point B', 'Point B'
  ),

  vehicle = c('ZZ12', 'ZZ12', 'AA12', 'AA12', 'AA12', 'AA12', 'ZZ12',
              'ZZ12', 'ZZ12', 'AA12', 'AA12', 'AA12', 'AA12', 'ZZ12'),

  count = c(2, 1, 4, 4, 3, 4, 2,
            3, 3, 1, 1, 5, 6, 6),
  stringsAsFactors = FALSE)

該結構返回：

>str(fake.data$date)
 chr [1:14] "01/01/2019" "01/02/2019" "01/03/2019" "01/04/2019" "01/05/2019" "01/06/2019" "01/07/2019" "01/01/2019" "01/02/2019" ...

我將類類型更改為“日期”的嘗試仍然失敗。 例如：

fake.data$date<- anydate(fake.data$date)

返回：

> head(str(fake.data))
'data.frame':   14 obs. of  4 variables:
 $ date    : Date, format: "2019-01-01" "2019-01-02" "2019-01-03" "2019-01-04" ...
 $ location: chr  "Point A" "Point A" "Point A" "Point A" ...
 $ vehicle : chr  "ZZ12" "ZZ12" "AA12" "AA12" ...
 $ count   : num  2 1 4 4 3 4 2 3 3 1 ...

這似乎很棒，但是當我嘗試將其用於可視化（即繪圖）時，我得到了我認為的樣子。POSIXct：

日期不再以格式顯示。只是更改為該奇數。 有任何想法嗎？

我也嘗試了as.Date ， as.character(as.Date(...)) ，無濟於事。 奇怪的是..圖表底部的日期仍然呈現正確的格式。

應用程序副本

ui<- shinyUI(
  fluidPage(
    plotOutput("plotthis", hover="clickthis"),    
    tableOutput("rawdata")                      
  )
)
server<- shinyServer(function(input,output) {

  output$plotthis<- renderPlot({

    ggplot(fake.data,aes(x=date, y=vehicle)) +
      geom_point()
  })

  output$rawdata<- renderTable({  
    nearPoints(fake.data,input$clickthis, threshold = 10)   
  })
})
shinyApp(ui, server)

Answer 1

嘗試這個 ：

library(lubridate)
fake.data$new_date <- dmy(fake.data$date)