ChartSPARQL.r

require(rCharts)

library(SPARQL)
library(ggplot2)
library(countrycode)

endpoint <- "http://worldbank.270a.info/sparql"

options <- NULL # Output XML/JSON

sparql_prefix <- "

PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#>
PREFIX xsd: <http://www.w3.org/2001/XMLSchema#>
PREFIX owl: <http://www.w3.org/2002/07/owl#>
PREFIX dcterms: <http://purl.org/dc/terms/>
PREFIX foaf: <http://xmlns.com/foaf/0.1/>
PREFIX skos: <http://www.w3.org/2004/02/skos/core#>
PREFIX wgs: <http://www.w3.org/2003/01/geo/wgs84_pos#>
PREFIX dbo: <http://dbpedia.org/ontology/>
PREFIX dbp: <http://dbpedia.org/property/>
PREFIX dbr: <http://dbpedia.org/resource/>
PREFIX sdmx: <http://purl.org/linked-data/sdmx#>
PREFIX sdmx-attribute: <http://purl.org/linked-data/sdmx/2009/attribute#>
PREFIX sdmx-dimension: <http://purl.org/linked-data/sdmx/2009/dimension#>
PREFIX sdmx-measure: <http://purl.org/linked-data/sdmx/2009/measure#>
PREFIX qb: <http://purl.org/linked-data/cube#>
PREFIX year: <http://reference.data.gov.uk/id/year/>
PREFIX void: <http://rdfs.org/ns/void#>

PREFIX wbld: <http://worldbank.270a.info/>
PREFIX property: <http://worldbank.270a.info/property/>
PREFIX classification: <http://worldbank.270a.info/classification/>
PREFIX indicator: <http://worldbank.270a.info/classification/indicator/>
PREFIX country: <http://worldbank.270a.info/classification/country/>
PREFIX income-level: <http://worldbank.270a.info/classification/income-level/>
PREFIX lending-type: <http://worldbank.270a.info/classification/lending-type/>
PREFIX region: <http://worldbank.270a.info/classification/region/>
PREFIX source: <http://worldbank.270a.info/classification/source/>
PREFIX topic: <http://worldbank.270a.info/classification/topic/>
PREFIX currency: <http://worldbank.270a.info/classification/currency/>
PREFIX project: <http://worldbank.270a.info/classification/project/>
PREFIX loan-status: <http://worldbank.270a.info/classification/loan-status/>
PREFIX variable: <http://worldbank.270a.info/classification/variable/>
PREFIX global-circulation-model: <http://worldbank.270a.info/classification/global-circulation-model/>
PREFIX scenario: <http://worldbank.270a.info/classification/scenario/>

PREFIX d-indicators: <http://worldbank.270a.info/dataset/world-bank-indicators>
PREFIX d-finances: <http://worldbank.270a.info/dataset/world-bank-finances/>
PREFIX d-climates: <http://worldbank.270a.info/dataset/world-bank-climates/>

#USE THESE GRAPHS :)
PREFIX g-void: <http://worldbank.270a.info/graph/void>
PREFIX g-meta: <http://worldbank.270a.info/graph/meta>
PREFIX g-climates: <http://worldbank.270a.info/graph/world-bank-climates>
PREFIX g-finances: <http://worldbank.270a.info/graph/world-bank-finances>
PREFIX g-projects: <http://worldbank.270a.info/graph/world-bank-projects-and-operations>
PREFIX g-indicators: <http://worldbank.270a.info/graph/world-development-indicators>

"
q <- "SELECT *
WHERE {
GRAPH g-indicators: {
?s property:indicator indicator:NY.GDP.MKTP.KD.ZG .
?s sdmx-dimension:refPeriod ?period .
?s sdmx-dimension:refArea ?country .
?s sdmx-measure:obsValue ?obsValue .
BIND (substr( str(?period),38,4) as ?year )
FILTER ( ?country 
           IN ( country:US , country:CA , country:MX  )
).

FILTER ( xsd:int(?year) >= 2000 && xsd:int(?year) <= 2008 ) 
}
}
ORDER BY ?country ?year"

query <- paste(sparql_prefix, q)

result <- SPARQL(endpoint, query)$results

iso2c <- substr(result[,3],52,53) #iso2c
country <- countrycode(iso2c, "iso2c", "country.name")
year <- result[,5] #Year
values <- result[,4] #Values


plotar <- data.frame(iso2c,country,values,year)

ggplot(plotar, aes(year, values, color=country))+geom_line(stat="identity",aes(group=country))+theme_bw()+xlab("Year")+opts(title="Annual GDP Growth rate (%)")+ylab("")



#Country vs Year
n2 <- nPlot(values ~ country, group = "year", data = plotar, 
            type = 'multiBarChart')
n2


#Year vs Country
n1 <- nPlot(values ~ year, group = "country", data = plotar, 
            type = 'multiBarChart')
n1