Google график движения визуализации в R показывает пустой граф

Question

Когда я сюжет моей googleVis движения график он показывает пустой граф:

Это пример dataframe я использую:

track  time UTM_WGS84.Longitude UTM_WGS84.Latitude 
1  1 1447628396   5.571687   51.43634 
2  1 1447628396   5.571689   51.43634 
3  1 1447628396   5.571689   51.43635 
4  1 1447628397   5.571690   51.43635 
5  1 1447628397   5.571691   51.43635 
6  1 1447628397   5.571691   51.43635 
7  1 1447628398   5.571692   51.43635 
8  1 1447628398   5.571692   51.43635 
9  1 1447628398   5.571693   51.43635 
10  2 1447628383   5.571698   51.43638 
11  2 1447628383   5.571698   51.43638 
12  2 1447628384   5.571698   51.43638 
13  2 1447628384   5.571699   51.43638 

Это код:

vis1 <- gvisMotionChart(dfL, idvar='track', timevar='time') 
plot(vis1) 

Может кто-нибудь, пожалуйста, помогите мне разобраться в проблеме?

Answer 1

time является сложным и может быть выражена только в одном из следующих форматов, перечисленных в Google Charts Форматы данных https://developers.google.com/chart/interactive/docs/gallery/motionchart?csw=1#Data_Format

Год - Тип колонки: «Номер». Пример: 2008.

Месяц, день и год - Тип столбца: 'date'; значения должны быть экземплярами даты javascript.

Номер недели - Тип столбца: 'string'; значения должны использовать шаблон YYYYWww, , который соответствует ISO 8601. Пример: «2008W03».

Квартал - Тип колонны: 'string'; значения должны иметь шаблон YYYYQq, который соответствует ISO 8601. Пример: «2008Q3».

Вы можете протестировать этот пример кода, который работает:

library(googleVis) 

dfL <- 
"track time UTM_WGS84.Longitude UTM_WGS84.Latitude 
1 2008W03 5.571687 51.43634 
1 2008W04 5.571690 51.43635 
1 2009W07 5.571692 51.43635 
2 2008W03 5.571698 51.43638 
2 2008W04 5.571699 51.43638" 

dfL <- read.csv(text = dfL, header = TRUE, sep = " ", stringsAsFactors = FALSE) 

# Type conversion 
dfL$UTM_WGS84.Longitude <- as.numeric(dfL$UTM_WGS84.Longitude) 
dfL$UTM_WGS84.Latitude <- as.numeric(dfL$UTM_WGS84.Latitude) 
dfL$track <- as.factor(dfL$track) 
dfL$time <- as.numeric(dfL$time) 

vis1 <- gvisMotionChart(dfL, 
         idvar = "track", 
         timevar = "time" 
         ) 
plot(vis1) 

Вы можете посетить how to deal with POSIXlt format time using gvisMotionChart? и попробовать другой вид Google чарты gvisAnnotatedTimeLine