#!/usr/bin/gnuplot
# gnuplot 


# Daten per Here-Document
# (siehe Abschntt 'Inline data and datablocks' in
# http://www.gnuplot.info/docs_5.2/Gnuplot_5.2.pdf )
#
$my_HD_1 << EndOfData_1
#
# Quelle: Graph in 
# http://www.fao.org/state-of-food-security-nutrition/en/
#
#
# Spalte 1: Jahr 
# Spalte 2: Absolute Anzahl der Hungernden weltweit 
# Spalte 3: Prozentualer Anteil  der hungernden an der steigenden Weltbevölkerung
#
#
2000 ; 900,0 ; 14,7
2001 ; 917,5 ; 14,8
2002 ; 936,3 ; 14,9
2003 ; 947,2 ; 14,9
2004 ; 941,7 ; 14,6
2005 ; 926,0 ; 14,2
2006 ; 890,9 ; 13,5
2007 ; 854,5 ; 12,8
2008 ; 831,8 ; 12,3
2009 ; 814,7 ; 11,9
2010 ; 794,6 ; 11,5
2011 ; 782,1 ; 11,2
2012 ; 779,3 ; 11,0
2013 ; 775,4 ; 10,8
2014 ; 775,4 ; 10,7
2015 ; 777,0 ; 10,6
2016 ; 815,0 ; 11,0
# EOF
EndOfData_1


# Allgemeines zu den Eingabedaten
set timefmt "%Y"           # Zeitangaben in YYYY
set datafile separator ";" # Spaltenseparator 


# Allgemeines zur Ausgabe
unset key
set style data lines
set style fill transparent solid 0.4
set grid
set border 11              # Bit 1 (unten) + Bit 2 (links) + Bit 8 (rechts)


# Bereiche/Format/etc X-Achse 
set xdata time
set xlabel 'Jahr'
set xrange ['1999':'2017']
set xtics '2000', 60 * 60 * 24 * 365.25 * 5
                      #  xtics in Sekunden 
                      # der Beginn der X-Einteilung kann außerhalb xrange
                      # liegen
set mxtics 5
set format x '%Y'     # Beschriftungsformat JJJJ
set xtics nomirror    # Nur unten Skalieren


# Bereiche/Format/etc Y-Achse
set ylabel      'Zahl der Hungernden weltweit in Mio.' textcolor 'dark-blue'
set yrange      [400:1000]
set ytics       100 textcolor 'dark-blue'
set decimalsign locale "de_DE.utf8"
set decimal     locale "de_DE.utf8"
set format      y  "%'.0f"  # Ausgabeformat
set mytics      5
set ytics nomirror


# Bereiche/Format/etc zweite Y-Achse
set y2label 'Anteil der Hungernden an der Weltbevölkerung in %' textcolor 'dark-red'
set y2range     [10:16]
set y2tics      1 textcolor 'dark-red'
set format      y2  "%'.0f"  # Ausgabeformat
set my2tics     2


# Ausgabeformat: Wir erzeugen SVG
# Die Ausgabedaten leiten wir in eine Pipe und sind so bei Namen der
# Ausgabedatei flexibel (Aufruf: Progname.plt > Ausgabe-svg)
set term svg size 800,400 font "Arial,14"
# keine "set output '<Dateiname>'" Angabe


# Erzeugen der Ausgabe 
plot \
  $my_HD_1 using 1:($2) axes x1y1 with linespoints lc 'dark-blue' lt 1 lw 2 pt 7 ps 0.5,\
  $my_HD_1 using 1:($3) axes x1y2 with linespoints lc 'dark-red'  lt 1 lw 2 pt 7 ps 0.5