Alle Jahre wieder kommt nicht nur das Christkind sondern auch das Sportamt auf mich als Vorstand eines Sportvereins zu und möchte eine Mitgliederstatistik für die jährliche Bestandserhebung haben. Und da geht der Ärger dann auch los.
Vom Dachverband sind wir angehalten, ein spezielles Programm zur Mitgliederverwaltung zu nutzen und selbiges läuft leider nur auf Windows, für mich ein Grund eine virtuelle Maschine für meinen Linux-KVM zu betreiben damit ich für die paar mal Mitgliederverwaltung im Jahr keinen eigenen Windows-Rechern hier daheim bereitstellen muss. Dieses Verwaltungsprogramm bietet auch eine Statistikauswertung, aber hier wirft es leider nur die Mitgliederzahlen für die verschiedenen, auf unseren Sport bezogenen, Altersklassen aus.
Das Sportamt hier will aber andere Zahlen, zum Einen ebenfalls nach verschiedenen Altersgruppen sortiert, aber eben nicht die gleichen Altersgruppen wie sie das Verwaltungsprogramm auswerfen würde. Und zudem will man wissen, ob die Mitglieder aus der Stadt oder dem Umland kommen. Bisher war das ganze sehr fehleranfällig mit Zählen (zum „Glück“ haben wir nur zweistellige Mitgliederzahlen) verbunden. Dieses Jahr habe ich mir vorgenommen dieses Statistik-Problem anders zu lösen.
Zunächst einmal geht es darum, die Daten für die Statisktik irgendwie auf ein anständiges Rechnersystem zu bringen. Dazu kann man im Mitgliederverwaltungsprogramm eine Liste mit freier Feldwahl erzeugen die alle nötigen Daten enthält, in erster Näherung sind das Wohnort, Geschlecht und Geburtsjahr des jeweiligen Mitgliedes. Diese einfache Liste kann man nun unter Windows in eine CSV (Comma Sperated Values) exportieren. Diese CSV hole ich dann einfach via Windows-Freigabe vom virtuellen XP auf meinen Linux-Rechner.
Dort steht natürlich das passende Handwerkszeug für den Statistiker in Form von „R“ bereit. Um die Daten für das Sportamt aufzubereiten habe ich ein paar einfache Funktionen in eine Skriptdatei geschrieben.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
# Ein paar Funktionen für die Mitgliederstatistik stala <- function(x) { if (x=="Augsburg") return("Stadt") else return("Land") } manfrau <- function(x) { if (x==1) return("m") else return("w") } altgruppe <- function(x,heuer) { if (x > heuer-7) return(1) else if (x > heuer-15) return(2) else if (x > heuer-19) return(3) else if (x > heuer-28) return(4) else if (x > heuer-42) return(5) else if (x > heuer-62) return(6) else return(7) } |
Die „stala“-Funktion entscheidet, ob jemand aus der Stadt oder einer der umliegenden Gemeinden kommt. Ähnliches gilt  für „manfrau“ das die „0“ bzw. „1“ die von der Windows-Anwendung kommt in „m“ bzw. „w“ umsetzt.
Die Funktion „altgruppe“ schließlich bekommt zwei Parameter, einmal das „x“ welches beim Aufruf das Geburtsjahr bekommt und einen Parameter „heuer“, der das aktuelle Jahr enthält. Damit sind keine Jahreszahlen „fest verdrahtet“ sondern nur relative Werte. Der Rückgabewert ist die Nummer der Spalte im Sportamts-Formular.
Nun ist es einfach, diese Daten einzulesen und auszuwerten:
|
1 2 |
source("Formeln.R") daten <- read.csv("bestand.csv") |
Damit haben wir den Dataframe eingelesen. Nun wird er um ein paar wichtige Informationen angereichert:
|
1 2 3 |
daten$woher <- sapply(daten$Ort,stala) daten$gender <- sapply(daten$Geschlecht, manfrau) daten$alter <- sapply(daten$GeburtsJahr, altgruppe, 2013) |
Der Frame wurde als um Spalten wie „woher“ („Stadt“ oder „Land“), „gender“ („m“ oder „w“) und der Spalte der Alterstabelle ergänzt.
Eine Statistik zu erzeugen ist nun relativ simpel. Schauen wir uns an, wieviele Männer und Frauen wir in den entsprechenden Altersgruppen haben:
|
1 2 3 4 |
> table(daten$gender,daten$alter)    2  3  4  5  6  7  m  1  2  6  6 23 23  w  1  0  5  3  7  3 |
Und nun sehen wir, wo die verschiedenen Altersgruppen herkommen:
|
1 2 3 4 |
> table(daten$woher,daten$alter)      2  3  4  5  6  7  Land  1  1  0  4 16 10  Stadt  1  1 11  5 14 16 |
Damit habe ich reproduzierbar und ganz flott alle für das Erhebungsformular notwendigen Informationen ermittelt. Natürlich kann man auch mal ganz flott die Daten graphisch aufbereiten. So kann man z.B. mit
|
1 |
pie(table(daten$Ort)) |
eine einfache Tortengraphik erzeugen die zeigt, woher unsere Mitglieder kommen. Das sieht dann so aus:
Das sieht doch schon mal viel besser aus als die ewigen Zahlenfriedhöfe.
[ratings]