Google Visualisierung Bewegungsdiagramm in R zeigt leere Grafik

Question

Wenn ich meine googleVis Bewegungsdiagramm zeichnen sie eine leere Grafik zeigt:

Dies ist ein Beispiel für die Datenrahmen Ich verwende:

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 

Dies ist der code:

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

Kann mir bitte jemand helfen, das problem herauszufinden?

Answer 1

time ist schwierig und kann nur in einem der folgenden Formate in Google Charts Datenformate https://developers.google.com/chart/interactive/docs/gallery/motionchart?csw=1#Data_Format

Jahr aufgeführt ausgedrückt werden - Säulentyp: ‚Zahl‘. Beispiel: 2008.

Monat, Tag und Jahr - Spaltentyp: 'Datum'; Werte sollten Javascript Date-Instanzen sein.

Wochennummer- Spaltentyp: 'string'; Werte sollten das Muster YYYYWww, verwenden, das ISO 8601 entspricht. Beispiel: "2008W03".

Viertel - Spaltentyp: 'string'; Die Werte sollten das Muster YYYYQq haben, das ISO 8601 entspricht. Beispiel: '2008Q3'.

Sie können diesen Beispielcode testen, das funktioniert:

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) 

Sie how to deal with POSIXlt format time using gvisMotionChart? besuchen und versuchen, andere Art von google-Charts als gvisAnnotatedTimeLine