# set terminal svg size 600,400 dynamic enhanced fname 'arial'  fsize 10 mousing name "boxplot_4" butt dashlength 1.0 
# set output 'boxplot.4.svg'
set bar 1.000000 front
set border 2 front lt black linewidth 1.000 dashtype solid
set boxwidth 0.5 absolute
set style fill   solid 0.25 border lt -1
set style circle radius graph 0.02, first 0.00000, 0.00000 
set style ellipse size graph 0.05, 0.03, first 0.00000 angle 0 units xy
unset key
set style textbox transparent margins  1.0,  1.0 border
unset logscale
set pointsize 0.5
set style data boxplot
set xtics border in scale 0,0 nomirror norotate  autojustify
set xtics  norangelimit 
set xtics   ("Coal" 1.00000, "Gas" 2.00000, "Hydroelectric" 3.00000, "Nuclear" 4.00000, "Oil" 5.00000, "Renewable" 6.00000)
set ytics border in scale 1,0.5 nomirror norotate  autojustify
unset paxis 1 tics
unset paxis 2 tics
unset paxis 3 tics
unset paxis 4 tics
unset paxis 5 tics
unset paxis 6 tics
unset paxis 7 tics
set title "Distribution of energy usage of the continents, grouped by type of energy source\n" 
set ylabel "Billion Tons of Oil Equivalent" 
set paxis 1 range [ * : * ] noreverse nowriteback
set paxis 2 range [ * : * ] noreverse nowriteback
set paxis 3 range [ * : * ] noreverse nowriteback
set paxis 4 range [ * : * ] noreverse nowriteback
set paxis 5 range [ * : * ] noreverse nowriteback
set paxis 6 range [ * : * ] noreverse nowriteback
set paxis 7 range [ * : * ] noreverse nowriteback
set colorbox vertical origin screen 0.9, 0.2, 0 size screen 0.05, 0.6, 0 front  noinvert bdefault
set style boxplot candles range  1.50 outliers pt 7 separation 1 labels auto sorted
t(x) = x/1.e6
filter(col, factor_col, level) = (strcol(factor_col) eq word(factors, level)) ? t(column(col)) : 1/0
x = 0.0
factors = "Coal Gas Hydroelectric Nuclear Oil Renewable"
n_f = 6
i = 7
GPFUN_t = "t(x) = x/1.e6"
GPFUN_filter = "filter(col, factor_col, level) = (strcol(factor_col) eq word(factors, level)) ? t(column(col)) : 1/0"
## Last datafile plotted: "energy_circles.dat"
plot for [i=1:n_f] 'energy_circles.dat' using (i):(filter(8, 4, i))