# GDP per capita in Purchasing Power Standards (PPS) (EU-27 = 100)
data(gdp)
meta <- sparkTable_Config(gdp, groups=c("EU27","AT","DE","TR"),
groupVar="region",
vars=c("gdp"),
typeNumeric=list(c("min","max","last")) ,
typePlot=c("line","bar"),
output="eps")
# creating a tex-document in the directory examples
obj <- print(meta,outdir="examples",outfile="gdp.tex")
# --------------------------------
# production index
data(dat)
pi_konsum <- dat$Konsumgueter[6:67]
# creating a line, box plot and bar plot
para <- spark_init(pi_konsum, type="line")
sparkEPS("examples/pi_konsum_line.eps",para,type="line")
para <- spark_init(pi_konsum, type="box")
sparkEPS("examples/pi_konsum_box.eps",para,type="box")
para <- spark_init(pi_konsum, type="bar")
sparkEPS("examples/pi_konsum_bar.eps",para, type="bar")
Run the code above in your browser using DataLab