{"id":87,"date":"2012-06-23T18:39:36","date_gmt":"2012-06-23T15:39:36","guid":{"rendered":"http:\/\/ekqvist.goeuropeinfo.com\/rbloggerqvist\/?p=87"},"modified":"2012-06-23T18:39:36","modified_gmt":"2012-06-23T15:39:36","slug":"r-and-gvisgeomap","status":"publish","type":"post","link":"https:\/\/science.ekqvist.fi\/blogi\/uncategorized\/r-and-gvisgeomap\/","title":{"rendered":"R and gVisGeoMap"},"content":{"rendered":"

Helppoa kuin hein\u00e4nteko<\/h1>\n

\"\"<\/a><\/p>\n

Here in Finland we have phrase: ” Helppoa kuin hein\u00e4nteko”. Now my purpose is to indicate what is the relation between this phrase and using R library googleVis.
\nIn this example we use UN datasets from this source<\/a>.<\/p>\n

All datasets used in this examples You could download bloggerqvist server. Of course I encourage You to find appropriate UN dataset and find data within your interest.<\/p>\n

Example1: Coke Oven gas production 2006-2009 (TJ)<\/h2>\n

################################################################
\nUN data source:
\nhttp:\/\/data.un.org\/
\nCoke oven gas - production
\n################################################################
\n# setting amazing library
\nlibrary(googleVis)
\n################################################################
\n# download data
\ninput <- read.table(\"http:\/\/energy.goeuropeinfo.com\/data\/un_data\/UNdata_Export_20120622_210218958.csv\", header=TRUE, sep=\";\", na.strings=\"NA\", dec=\",\", strip.white=TRUE)<\/code><\/p>\n

#selecting yearly data
\nselect09<- input[which(input$Year==\"2009\"),]
\nselect08<- input[which(input$Year==\"2008\"),]
\nselect07<- input[which(input$Year==\"2007\"),]
\nselect06<- input[which(input$Year==\"2006\"),]
\n<\/code>
\n#selecting variables
\nMap09<- data.frame(select09$Country.or.Area, select09$Quantity)
\nMap08<- data.frame(select08$Country.or.Area, select08$Quantity)
\nMap07<- data.frame(select07$Country.or.Area, select07$Quantity)
\nMap06<- data.frame(select06$Country.or.Area, select06$Quantity)
\n<\/code>
\n#change variable name
\nnames(Map09)<- c(\"Country\", \"Coke-oven gas prod. TJ\")
\nnames(Map08)<- c(\"Country\", \"Coke-oven gas prod. TJ\")
\nnames(Map07)<- c(\"Country\", \"Coke-oven gas prod. TJ\")
\nnames(Map06)<- c(\"Country\", \"Coke-oven gas prod. TJ\")
\n<\/code>
\n#year 2009
\nunmap09=gvisGeoMap(Map09, locationvar=\"Country\", numvar=\"Coke-oven gas prod. TJ\", options=list(height=350, dataMode='regions', chartid=\"Coke-oven prod 2009\"))
\n#year 2008
\nunmap08=gvisGeoMap(Map08, locationvar=\"Country\", numvar=\"Coke-oven gas prod. TJ\", options=list(height=350, dataMode='regions'))
\n#year 2007
\nunmap07=gvisGeoMap(Map07, locationvar=\"Country\", numvar=\"Coke-oven gas prod. TJ\", options=list(height=350, dataMode='regions'))
\n#year 2006
\nunmap06=gvisGeoMap(Map06, locationvar=\"Country\", numvar=\"Coke-oven gas prod. TJ\", options=list(height=350, dataMode='regions'))
\n<\/code>
\n#testing that all is ok
\nplot(unmap09)
\nplot(unmap08)
\nplot(unmap07)
\nplot(unmap06)
\n<\/code>
\n# saving just created map into html-file
\ncat(unmap09$html$chart, file=\"j:\/todo\/UN\/undata_cokeoven_prod_TJ_2009.html\")
\ncat(unmap08$html$chart, file=\"j:\/todo\/UN\/undata_cokeoven_prod_TJ_2008.html\")
\ncat(unmap07$html$chart, file=\"j:\/todo\/UN\/undata_cokeoven_prod_TJ_2007.html\")
\ncat(unmap06$html$chart, file=\"j:\/todo\/UN\/undata_cokeoven_prod_TJ_2006.html\")<\/code><\/p>\n

Results file looks like this:
\nMap 2009<\/a>, 2008<\/a>, 2007<\/a> and 2006<\/a><\/p>\n

Have fun,
\nMarko<\/p>\n

…..oops Here Is also an another example….<\/p>\n

Example2: Energy use (kg oil eqv per capita)<\/h2>\n

\"\"<\/a><\/p>\n

################################################################
\nUN data source:
\nhttp:\/\/data.un.org\/
\nenergy use
\n################################################################
\nlibrary(googleVis)
\ninput <- read.table(\"http:\/\/energy.goeuropeinfo.com\/data\/UNdata_Export_20120623_070334184_energyuse_kg_eqv_oil_per_capita.txt\", header=TRUE, sep=\";\", na.strings=\"NA\", dec=\",\", strip.white=TRUE)
\n# select year into matrices
\nselect09<- input[which(input$Year==\"2009\"),]
\nselect08<- input[which(input$Year==\"2008\"),]
\nselect07<- input[which(input$Year==\"2007\"),]
\nselect06<- input[which(input$Year==\"2006\"),]
\n<\/code>
\n#select area and value field
\nMap09<- data.frame(select09$Country.or.Area, select09$Value)
\nMap08<- data.frame(select08$Country.or.Area, select08$Value)
\nMap07<- data.frame(select07$Country.or.Area, select07$Value)
\nMap06<- data.frame(select06$Country.or.Area, select06$Value)
\n<\/code>
\nnames(Map09)<- c(\"Country\", \"Energy Use Eqv oil kg per capita\")
\nnames(Map08)<- c(\"Country\", \"Energy Use Eqv oil kg per capita\")
\nnames(Map07)<- c(\"Country\", \"Energy Use Eqv oil kg per capita\")
\nnames(Map06)<- c(\"Country\", \"Energy Use Eqv oil kg per capita\")
\n<\/code>
\nunmap09=gvisGeoMap(Map09, locationvar=\"Country\", numvar=\"Energy Use Eqv oil kg per capita\", options=list(height=350, dataMode='regions'))
\nunmap08=gvisGeoMap(Map08, locationvar=\"Country\", numvar=\"Energy Use Eqv oil kg per capita\", options=list(height=350, dataMode='regions'))
\nunmap07=gvisGeoMap(Map07, locationvar=\"Country\", numvar=\"Energy Use Eqv oil kg per capita\", options=list(height=350, dataMode='regions'))
\nunmap06=gvisGeoMap(Map06, locationvar=\"Country\", numvar=\"Energy Use Eqv oil kg per capita\", options=list(height=350, dataMode='regions', chartid=\"06\"),chartid=\"06\")
\n<\/code><\/code><\/p>\n

plot(unmap09)
\nplot(unmap08)
\nplot(unmap07)
\nplot(unmap06)<\/p>\n


\ncat(unmap09$html$chart, file=\"j:\/todo\/UN\/undata_energyuse_eqvkgpercapita_2009.html\")
\ncat(unmap08$html$chart, file=\"j:\/todo\/UN\/undata_energyuse_eqvkgpercapita_2008.html\")
\ncat(unmap07$html$chart, file=\"j:\/todo\/UN\/undata_energyuse_eqvkgpercapita_2007.html\")
\ncat(unmap06$html$chart, file=\"j:\/todo\/UN\/undata_energyuse_eqvkgpercapita_2006.html\")
\n<\/code><\/p>\n

that’s it…<\/p>\n","protected":false},"excerpt":{"rendered":"

Helppoa kuin hein\u00e4nteko Here in Finland we have phrase: ” Helppoa kuin hein\u00e4nteko”. Now my purpose is to indicate what is the relation between this phrase and using R library googleVis. In this example we use UN datasets from this source. All datasets used in this examples You could download bloggerqvist server. Of course I […] Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"gallery","meta":[],"categories":[20,22,1],"tags":[29,33,36,48],"_links":{"self":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/87"}],"collection":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/comments?post=87"}],"version-history":[{"count":0,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/87\/revisions"}],"wp:attachment":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/media?parent=87"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/categories?post=87"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/tags?post=87"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}