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