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/
Hi,your web log is a very wonderful one.Thecontent is very useful.
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!
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.
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!
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…
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
Thank you for sharing, it is so great.
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.
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.
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.