Почему data.frame не преобразует тип столбца 'unknown' в дату? - PullRequest
0 голосов
/ 28 февраля 2019

Друзья стека переполнение , у меня чертовски много времени получается, что мой поддельный 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:

Screenshot of interactive hover plot

Дата больше не отображается в формате. Просто изменяется на этот нечетный числовой.Есть идеи?

Я тоже пробовал 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)

1 Ответ

0 голосов
/ 28 февраля 2019

Попробуйте это:

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