Title

suppressPackageStartupMessages(library(googleVis))
a = read.table("D:/statistics climate change data analysis/work_all/code_interest/data_gprd_google_bubble_try.txt", 
    header = T)
T <- gvisTable(a)
x1 <- gvisMotionChart(a, idvar = "area", timevar = "year")
print(x1, "chart")