# gnuplot 


### Variablen - die wichtigsten Paramter dieser Grafik:
# (in der Regel wird es reichen für eine neue Grafik diese Werte zu ändern)
my_data               = 'Bierverbrauch-DEU-jeKopf.dat'
my_xrange_min         = '1940'
my_xrange_max         = '2025'
my_xtics_years        = '10'
my_mxtics             = '2'
my_yrange_min         = '0'    # bei '-1' wird der erste 
                               # Achsenstrich unter Null berechnet
my_yrange_max         = '180'    # hier ist '*' erlaubt und sinnvoll
my_ytics              = '20'
my_ymtics             = '1'


### Farben - nummerische Equavalente zu Namen nach: 
# https://stackoverflow.com/questions/54658674/gnuplot-apply-colornames-from-datafile
# Die beiden Ziffen am Ende der Variablen geben  opacity/transparenz an
#
my_darkred_00       = '#008B0000';     my_darkred_20       = '#208B0000';
my_darkred_40       = '#408B0000';     my_darkred_60       = '#608B0000';
my_darkred_80       = '#808B0000';     my_darkred_a0       = '#a08B0000';
my_darkred_c0       = '#c08B0000';     my_darkred_e0       = '#e08B0000';
#
my_darkblue_00      = '#0000008B';     my_darkblue_20      = '#2000008B';
my_darkblue_40      = '#4000008B';     my_darkblue_60      = '#6000008B';
my_darkblue_80      = '#8000008B';     my_darkblue_a0      = '#a000008B';
my_darkblue_c0      = '#c000008B';     my_darkblue_e0      = '#e000008B';
#
my_darkorange_00    = '#00FF8C00';     my_darkorange_20    = '#20FF8C00';
my_darkorange_40    = '#40FF8C00';     my_darkorange_60    = '#60FF8C00';
my_darkorange_80    = '#80FF8C00';     my_darkorange_a0    = '#a0FF8C00';
my_darkorange_c0    = '#c0FF8C00';     my_darkorange_e0    = '#e0FF8C00';
#
my_black_00         = '#00000000';     my_black_20         = '#20000000';
my_black_40         = '#40000000';     my_black_60         = '#60000000';
my_black_80         = '#80000000';     my_black_a0         = '#a0000000';
my_black_c0         = '#c0000000';     my_black_e0         = '#e0000000';
#
my_lemonchiffon     = '#ffffc0'


### Allgemeines zu den Eingabedaten
set timefmt "%Y"          # Zeitangaben in YYYY
set datafile separator ";"      # Spaltenseparator 
set datafile commentschars "#"  # Kommentarzeichen 
  stats my_data  u (strptime("%Y",strcol(1))) nooutput 
  my_diff = (STATS_max - STATS_min) / (60*60*24*365.25)
  print '     -----Stats-(Timestamp)----------------------'
  print '     Erster Wert der Datendatei:  ', strftime("%Y", STATS_min)
  print '     Letzter Wert der Datendatei: ', strftime("%Y", STATS_max)
  print '     Diff in Jahren:              ', sprintf("%.2f", my_diff)
  print '     --------------------------------------------'
  # Anmerk.: die ausgegebenen Timestamps können in einer Shell bequem mit 
  # 'date -d @[Wert]' in humanleserliches Format gewandelt werden

### Allgemeines zur Ausgabe
unset key                  # alle Werte für Legende aufheben (werden gleich gesetzt)
set key vertical maxrows 2 # max Anzahl Zeilen der Legende
set key at graph 0.25,0.10 # Legende weit links-unten (Pos. bezogen auf Graph)
set key left bottom        # Punkt der Legendenbox an dem sie ausgerichtet wird
set key nobox              # Legende o. Rahmen (zu Testzwecken box setzen!)
set key noopaque           # Transparenz 
set key width -10          # Breite schmaler
set key samplen 2          # Breite der Linenbeispiele 
                           # das 'unset key' einfach auskommentieren um eine 
                           # vernünftige Legende auszugeben 
set style data lines       # wird bei 'plot' überschrieben 
#set style fill transparent solid 0.4 # wird ebenfalls bei 'plot' überschrieben
set border 3               # Rahmen unten (Bit 1) und links (+ Bit 2) 
set grid                   # Gitterlinien verwenden
# Gitterlinien per Hand setzen falls gewünscht 
# set style line 1 linetype rgb '#4F4F4F' linewidth 0.5 dashtype 2 # Def. Major-grid
set style line 1 linecolor rgb my_darkred_80 linewidth 2.0  # Def. Major-grid
set style line 2 linecolor rgb my_darkblue_40 linewidth 1.0  # def. Minor-grid
set grid  xtics mxtics     # eventuell noxtics und nomxtics
set grid  ytics mytics     # eventuell noytics und nomytics
set grid  back             # Gitter im Hintergrund
set grid  linestyle 1, linestyle 2 # Setzen des linestyle für Major u. Minor 
# show grid                  # Kontrollausgabe auf der Konsole


### Bereiche/Format/etc X-Achse 
set xdata time             # X-Achse als Zeitachse
set xlabel 'Jahr'          # Beschriftung X-Achse
set xlabel offset 0, 0.75  # Schrift etwas höher
set xrange [ my_xrange_min : my_xrange_max]
                           # Wertebreich der X-Achse
set xtics '1000', (60*60*24*365.25) * my_xtics_years
                           # xtics in Sekunden 
                           # der Beginn (Wert vor dem Komma) der X-Einteilung 
                           # kann außerhalb xrange liegen
set xtics offset  0, 0.5   # Beschriftung näher an die X-Achse
set mxtics my_mxtics       # Skalenstriche 
set xtics nomirror         # Nur unten Skalieren
set format x '%3Y'         # Beschr.format JJJJ (bei 3 Stellen o. führend 0)
set xtics  out             # Skal. aussen damit sie nicht von Grafik 
                           # überschr. wird


### Bereiche/Format/etc Y-Achse
set ylabel 'Liter je Einwohner' offset 2 # Abstand Achse/Label 
# Untere Begrenzung des Bereichs der Y-Achse
# Falls my_yrange_min wird der erste Achsenstrich unterhalb der
# Nulllinie berechnen falls my_yrange gleich -1
if (my_yrange_min eq '-1' ) {
  my_yrange_min = - my_ytics / my_ymtics
  # für den Fall Nullline etwas fetter
  set arrow from my_xrange_min, '0' to     my_xrange_max, '0' nohead lc rgb '#C0000000' back
}
set yrange [ my_yrange_min : ]
# Obere  Begrenzung des Bereichs der Y-Achse
# wir Testen ob der Wert der Var.  my_yrange_max ein '*' ist und reagieren 
# entsprechend weil der '*' sich nicht direkt via Var. setzen lässt. 
if ( ( my_yrange_max eq '*' )) set yrange [ : *             ]
if (!( my_yrange_max eq '*' )) set yrange [ : my_yrange_max ]
set ytics my_ytics         # Anzahl der kleinen Teilstriche
set ytics offset 0.9       # Schrift etwas nach rechts
set ytics nomirror         # oben keine Teilstriche
# Abfrage nach Betriebssystem und Aufruf spezifischer Befehle für 
# Dezimal- und Tausenderseparator für die y-Achse
# Bei dem Betriebssystemaufruf verwenden wir den Befehl 'echo' weil den
# jedes Betriebssysem kennt und so keinen gnuplot-Fehler erzeugt
if ("Linux" eq "`echo $(uname -s)`") {
  # Einstellungen für Linux
  print "Wir setzten Dezimal- und Tausenderseparator nach Linux Art"
  set decimalsign locale "de_DE.utf8"
  set format y "%'.0f"     
} else {
  # Einstellungen für Windows
  print "Wir setzten Dezimal- und Tausenderseparator nach Windows Art"
  set decimalsign locale; 
  set decimalsign ",";
  set format y "%'g"
}
set mytics my_ymtics       # Unterskalierung 
set ytics  out             # Skal. aussen da sie sonst von Grafik 
                           # überschr. wird



### Außenränder (keine Angabe entspricht Automatik)
# keine Angabe hinter Xmargin entspr auto 
# zur Positionierung siehe 'Coordinates' in: 
# http://gnuplot.sourceforge.net/docs_4.2/node49.html#448
set lmargin 
set rmargin at screen 0.990
set bmargin at screen 0.175
set tmargin at screen 0.960
# grauer Hintergrund für Testzwecke
# set object rectangle from screen 0,0 to screen 1,1 fillcolor rgb my_black_e0 behind
set object rectangle from graph 0, graph 0 to graph 1, graph 1 behind fillcolor rgb my_lemonchiffon   # Zeichenbereich einfärben


### Dateiausgabe definieren 
# Ausgabeformat: Wir erzeugen SVG
  set output 'Bierverbrauch-DEU-jeKopf.svg' 
  set encoding utf8 # falls bei Windows iso_8859_1 stellen wir es um
#  set term svg size 800,400 font "Arial,16" background rgb "gray75"  # Hintergrund grau eingefärbt
  set term svg size 500,400 font "Arial,16" background rgb "cyan"

# Die Parameter von 'set term' sind so gewählt, das man in Wikipedia bei einer 
# Einbindung [[Datei:Einwohnerentwicklung_von_Moers.svg|mini|400px|Text]] noch Schrift/Details 
# erkennen kann. 


### Log10 Skalierung für Y-Achse wählen 
# Für Formatparam siehe http://gnuplot.sourceforge.net/docs_4.2/node184.html
# Wert für ytics hier mit 10 Überschreiben damit die Mantisse wegfallen kann. 
# Ansonsten müsste sie wie in 'set format y "%.1l*10^{%L}"; set ytics 5' angegeben 
# werden was ungerade Werte ergibt. 
# xrange muss größer Null beginnen. Kann oben mit my_yrange_min auf 10, 100, 1000 ... 
# gesetzt werden oder hier auskommentieren. 
#  set logscale y 10; set format y "  10^{%L}"; set ytics 10; set mytics 10; 
#  set lmargin 5 # ev. bei 'Schwestergrafik' gleichen fixen Wert setzen.
#  set yrange [ 100 : 1000000 ] # yrange manuell Anpassen!!!


### Abkürzungen hinter dem Plot-Befehl:
#       u : using
#       w : with
#      lc : linecolor
#      lt : linetype 
#      lw : linewidth
#      pt : pointtype  
#      ps : pointsize
#      lp : linespoints
#       p : points
#       t : title
#     not : notitle
# filledc : filledcurves (Bsp.: File:Einwohnerentwicklung von Wanne-Eickel.svg)
#     rgb : RedGreenBlue
#      ax ; axes (bei der Plotanweisung meist x1y1)
#      dt ; dashtype (Wert 1 entspricht normale durchgezogene Linie)


### 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
# bei 'plot' mit '$my_HD_1 use 1:2 with ...' einbinden
...
EndOfData_1


### Plot
# Jede Kurve wird zweimal gezeichnet. Beim ersten mal mit etwas Transparenz
# damit es heller wird. Beim zweiten mal werden die Punkt dunkel
# nachgezeichnet. Dadurch sollte der Betrachter besser erkennen können, wo
# Messpunkte fehlen. 
#
# Erzeugen der Ausgabe 
plot \
  my_data  u 1:2 ax x1y1 w lp lc rgb my_darkorange_40  lt 1 lw 5.5 pt 7 ps 0.22  t 'Bierverbrauch in Deutschland',\
#  my_data  u 1:2 ax x1y1 w  p lc rgb my_darkorange_00  lt 1 lw 1.5 pt 7 ps 0.22 not              ,\
# $my_HD_1 u 1:2 ax x1y1 w lp lc rgb my_darkred_40   lt 1 lw 1.5 pt 7 ps 0.22   t 'Einw. Entw.',\
# $my_HD_1 u 1:2 ax x1y1 w  p lc rgb my_darkred_00   lt 1 lw 1.5 pt 7 ps 0.22 not              ,\

Die folgenden Daten bitte in eine Textdatei unter dem Namen "Bierverbrauch-DEU-jeKopf.dat" abspeichern und ins gleiche Verzeichnis wie das GnuPlot-Script ablegen. <br>
Sollte jemand bessere / vollständigere Daten besitzen ist eine Änderung der nachstehenden Datendatei bzw. eine Neuerstellung der Grafik ausdrücklich erwünscht.


# Quellen
# https://de.statista.com/statistik/daten/studie/4628/umfrage/entwicklung-des-bierverbrauchs-pro-kopf-in-deutschland-seit-2000/
# https://web.archive.org/web/20140222204507/https://www.destatis.de/DE/Publikationen/Thematisch/FinanzenSteuern/Steuern/Verbrauchsteuer/Verbrauchsteuerstatistik5791001097004.html8
# https://www.statistischebibliothek.de/mir/receive/DESerie_mods_00000147
1950; 35,6
1955; 61
1960; 94,7
1965; 120
1970; 141,1
1975; 150
1976; 151
1980; 145,9
1985; 142
1990; 141
1991; 141,2
1992; 143,3
1993; 130,3
1994; 132,7
1995; 131,1
1996; 127,3
1997; 126,7
1998; 123,0
1999; 123,1
2000; 121,0
2001; 118,3
2002; 117,8
2003; 114,0
2004; 112,0
2005; 111,0
2006; 111,8
2007; 107,9
2008; 107,1
2009; 105,1
2010; 102,3
2011; 103,5
2012; 101,0
2013; 99,1
2014; 99,1
2015; 97,6
2016; 96,2
2017; 93,7
2018; 94,2
2019; 92,1
2020; 87,1
# EOF