Visualization of Dynamic Changes Using googleVis, r, and dropbox

Published by admin on September 12th, 2011

GoogleVis could be used to visualize the dynamic change of social pattern. Here I will test some examples.

library(googleVis)

data(package="googleVis")
# Data sets in package ‘googleVis’:
# Andrew            Hurricane Andrew: googleVis example data set
# CityPopularity    CityPopularity: googleVis example  data set
# Exports           Exports: googleVis example data set
# Fruits            Fruits: googleVis example data set
# OpenClose         OpenClose: googleVis example data set
# Population        Population: googleVis example data  set
# Regions           Regions: googleVis example data set
# Stock             Stock: googleVis example data set

# Visualizing the hurricane of Andrew

data(Andrew)
plot(Andrew)

AndrewGeoMap <- gvisGeoMap(Andrew, locationvar='LatLong', numvar='Speed_kt',
hovervar='Category',
options=list(width=600,height=300,
region='US', dataMode='Markers'))
plot(AndrewGeoMap)
AndrewGeoMap$html$chart
setwd("d:/r")
cat(AndrewGeoMap$html$chart, file="AndrewGeoMap.html")
# then you can find it in the work directory.
# Since WordPress doesn’t allow embedded JavaScript. I  put it into dropbox public folder and i past the

link is given here.

Further, I visualize the dynamic change of cell phone ratio in the world.

# fixed telephone use

ftel<-read.csv("d:/r/Fixed Telephone.csv", header = T, sep = ",", quote = "\"'",  dec = ".")[1:7263,]
ftelr<-read.csv("d:/r/Fixed Telephone ratio.csv", header = T, sep = ",", quote = "\"'",    dec = ".")

ftelm<-merge(ftelr, ftel, by=c("Country.or.Area","Year"))

ftelm<-cbind(ftelm[,1:3], ftelm[,5])
names(ftelm)<-c("Country or Area","Year","Percentage","Users")
library("googleVis")
fixed_telephone_motion<- gvisMotionChart(ftelm, idvar="Country or Area", timevar="Year", options=list(width=1024, height=768))plot(fixed_telephone_motion)
setwd("d:/r")
cat(fixed_telephone_motion$html$chart, file="fixed_telephone_motion.html")

The geographical distribution of cell phone usge (per 100 people)

The motion chart of cell phone usage (per 100 people)

# International news coverage visualization

Finally, i visualize the international news of different countries during August of 2011.

You may not be able to see the links above, I made a web page to show the result, click here:

http://weblab.com.cityu.edu.hk/chengjun/

    分享到:


10 Responses

  1. Hi,your web log is a very wonderful one.Thecontent is very useful.

  2. An amazing share, I merely given this on to a associate who was conducting a little research on this. And then he in fact bought me breakfast because I came across it with regard to him.. giggle. So ok, i’ll reword that: Thnx for your treat! However yeah Thnkx intended for spending plenty of time to discuss that, I feel powerfully about it along with love examining more on the following topic. If at all possible, as you become knowledge, would you head updating your website with more points? It is very helpful for me. Big flash up in this blog post!

  3. Astonishingly smart thanks, I do believe your audience might very well want a good deal a lot of stories like this stick with it the wonderful onerous work.

  4. I uncovered your internet page by way of research motors even when seeking out for that connected topic, your internet page demonstrated up up. give a large number of as a consequence of you for that fabulous blog. Amazingg skills! hold on man, you rock!

  5. I wished to thanks for this wonderful go through!! I undoubtedly taking pleasure in each small little bit of it I’ve you bookmarked to verify out new things you post…

  6. diablo 3 says:

    Wonderful wordpress website right here.. It is tough to locate top quality composing like yours nowadays. I genuinely recognize individuals like you! just take treatment

  7. Thank you for sharing, it is so great.

  8. I like this data presented and it has given me some sort of commitment to have success for some reason, so keep up the good work.

  9. Lorri Bagley says:

    Im no expert, but I think you just made the best point. You certainly know a whole lot about what youre talking about, and I can actually get behind that. Thanks for becoming so upfront and so honest about the subject matter. I truly feel like I’ve a greater understanding now.

  10. Cheers conducive on the efficient information. Admittedly unprejudiced wen upward! I just consistently accomplish certainly not bourgeoning in these yet brooding most people could a new briskly buddy-buddy depredate along with I’m indubitable a lot of people suavity typically the a lesser amount of at just about any rate.


Leave a Reply

Your email address will not be published. Required fields are marked *