当我使用下面的世界银行示例代码时,它可以工作。这意味着浏览器等都很好。
WorldBank <- droplevels(subset(wdiData, !region %in% "Aggregates"))
M <- gvisMotionChart(WorldBank,idvar="country", timevar="year",xvar="life.expectancy", yvar="fertility.rate",colorvar="region", sizevar="population",options=list(width=700, height=600),chartid="WorldBank")
## Display the chart in the browser
plot(M)
但是当我使用以下程序时。没有出现错误,但在绘图命令空白浏览器出现...见下面的程序,数据框和输出。
程序
# This demo shows how to use Google Motion Chart
library(googleVis)
metro<-read.csv("c:/Ram/metromotion.txt",stringsAsFactors=FALSE,header=F) # reads d=from metro.txt into data frame metro
# Naming columns.
colnames(metro)[1]="Time"
colnames(metro)[2]="Station"
colnames(metro)[3]="Latitude"
colnames(metro)[4]="Longitude"
colnames(metro)[5]="Traffic"
colnames(metro)[6]="Kside"
colnames(metro)[7]="Uside"
colnames(metro)[8]="Line"
N <- gvisMotionChart(metro,idvar="Station", timevar="Time",xvar="Kside",yvar="Uside",colorvar="Line", sizevar="Traffic",options=list(width=700, height=600),
chartid="Metro")
# Display the chart in the browser
plot(N)
示例截断数据框
Time Station Latitude Longitude Traffic Kside Uside Line
1 1 abc 17.41 78.58 1000 1000 0 1
2 1 pqr 17.42 78.55 2000 1000 1000 2
3 1 xyz 17.42 78.52 1000 500 500 3
4 1 mno 17.50 78.50 1000 1000 0 4
5 1 def 17.51 78.36 1000 0 1000 5
6 2 abc 17.41 78.58 10000 8000 0 1
7 2 pqr 17.42 78.55 5000 4000 1000 2
8 2 xyz 17.42 78.52 1000 500 500 3
9 2 mno 17.50 78.50 10000 1000 9000 4
10 2 def 17.51 78.36 10000 0 8000 5
浏览器显示
数据:metro•图表ID:Metro•googleVis-0.5.8 R版本3.1.2 (2014-10-31)•Google使用条款•文档和数据政策
问题
数据框架的构建方式存在问题吗?有人可以帮我理解并提供解决方案吗?