Program Code

Attention! For repeating the computation a transformed dataset is needed! Run the program for transformation on the wikipage en:Analysis of Tuberculosis first! Additionally, after copying this program code to your XploRe input window, the argument of "graxes(argument)" has to be rewritten in one line.

library("xplore")
library("stats")

choose = "Read data from:"

defaults = "C:\Dokumente und Einstellungen\All Users\Desktop\UN_data_ordered.csv"

v1 = readvalue(choose, defaults)

x = readcsvm(v1)

data = x.double
country = x.text

; ----- Standardization to 0-1-Scale -----------------------------------------------------------

dats = (data - min(data))/(max(data)-min(data))

; ----- Generate Boxplots ----------------------------------------------------------------------

gr4 = grbox(dats[,4],4)
gr5 = grbox(dats[,5],5)
gr6 = grbox(dats[,6],1)

gr5 = grmove(gr5, #(0, 1.5))
gr6 = grmove(gr6, #(0, 3))

; ----- Set Graphical Options ------------------------------------------------------------------

setsize(700, 400)
d1 = createdisplay(1, 1)

; ---------- Label Maxima ----------

ptt = max(data[,4|5|6])'
pt = matrix(3,1)~(0.5|2|3.5)
fmt = "%20.5g"|"%20.5g"|"%12.5g"
ptt = string(fmt, ptt)
setmaskt(pt, ptt, 4|5|1, 12, 16)
setmaskp(pt, 0, 0, 0)

; ----------------------------------

axesoff()
axes=graxes((-0.03|1.03)~(-0.2|4.2), "origin", 7.5, "ytextpos", 9, "xtextpos", 6,
            "xticks", 0|0.5|1, "xtext", "0"|"standardized"|"1",
            "yticks", 0.5|2|3.5, "ytext","Aids"|"Malaria"|"Tuberculosis",
            "xtextsize", 16, "ytextsize", 16)

show(d1, 1, 1, pt, gr4, gr5, gr6, axes)
setgopt(d1, 1, 1, "title", "Boxplot")