



data science and bicycle touring
Nach gut 40.000km kann man einen Ledersattel durchaus mal tauschen. Die Spannschraube hatte ich zwischenzeitlich schon durch eine längere Schraube ersetzt. Prinzipiell könnte ich den Sattel also locker noch weiter fahren, aber er ist durch zu starkes Fetten inzwischen zu weich geworden. Und, wie bei jedem Brooks-Sattel, den ich bisher hatte: der neue Sattel muss erst eingeritten werden, dann hört auch das Quietschen im Gestell auf. Nach 1.000km dürfte es wieder ruhig sein, und nach schätzungsweise 500km wird der neue Sattel auch so anatomieangepasst wie der alte sein und der Begriff arschbequem wieder zutreffen. Das dauert nur etwas bei meinen momentan sehr geringen Fahrleistungen. Im Vergleich zwischen neu und alt sieht man auch durchaus den Längenunterschied. Als Unterlage hat’s die NZZ von heute mit der Doppelseite über die Seegfrörni (zugefrorener Zürichsee vor 50 Jahren).
Gleis 9 3/4 Gleis 13 noch den Churchill-Pfeil, einen mietbaren Ausflugstriebwagen der SBB, aus dem Jahr 1939 zu sehen. Zwei Triebhälften jeweils in Restaurantausstattung, also das wäre mal ein Zug zum Mieten für Festivitäten.
Die gute alte Veritas-Nähmaschine macht doch schon hübsche Nähte, man muss sich nur trauen, roten Faden auf grün-weissem Vorhangstoff zu nehmen. Ob das velum jetzt die richtige lateinische Übersetzung von Vorhang ist, weiss ich aber auch nicht. Ich hoffe, es kapiert keiner das Wortspiel.
Barcode — Piep — Barcode — Piep — Barcode — Piep — … so ähnlich geht’s im Supermarkt und heutzutage auch beim Blutspenden zu.
Continue reading “5-Zonen-Tageskarte”
Genau ein Kaffee zum Frühstück, regelmässig über Wochen, und schon gibt’s mittägliche Kopfschmerzen als Entzugserscheinungen bei Nicht-Morgenkaffee. In dem Fall gehe ich aber eher von Kausalität statt Korrelation aus. Frische Luft und Kägi-Fret helfen aber ungemein. Ausserdem ist die Alliteration im Titel irgendwie von den Namen der Big-Bang-Theory-Folgen inspiriert: hier die englische Liste (auf Deutsch kann man das allerdings vergessen, genauso wie die synchronisierte Fassung).
Sieht so aus, als ob ich nicht der einzige gewesen bin, der versucht hat, in R mit ggplot2 mehrere Variablen eines Data Frames einzeln nacheinander in einer Schleife z.B. in Histogramme zu plotten. Irgendwie wollte ggplot da nicht die Variablennamen annehmen, sondern ich musste einen kleinen Umweg gehen. Letzten Endes hat http://dodata.wordpress.com/2012/10/25/ggplot2-in-loops-and-multiple-plots/ geholfen.
Mit dem untenstehenden Beispiel gibt’s neun bestimmte Variablen eines Data Frames in einem png-Bild in 3×3-Aufteilung inklusive Extra-Titel obendrüber. Nach der Lösung hab ich schon eine Weile gesucht. Es ist allerdings kein commented, minimal, self-contained, reproducible code, den es sonst auf den R-Mailing-Listen erfordert, um keine dämlichen Antworten zu kriegen 🙂
vars <- names(dframe)[c(4,5,6,8,9,12,13,14,50)
dfplot <- dframe
plotlist <- list()
png(filename=paste(plotdirprefix,"015-histogramme-rpm", ".png", sep=""), width=1800,height=900)
for(i in c(1:length(vars))){
varname <- vars[i]
print(varname)
plot <- ggplot(data=dfplot) +
aes_string(x = vars[i]) +
geom_histogram() +
xlab(paste(varname, sep="")) +
ylab("Häufigkeit") +
theme_bw(base_size=20)
plotlist[[varname]] <- plot
}
grid.arrange(plotlist[[1]], plotlist[[2]], plotlist[[3]],
plotlist[[4]], plotlist[[5]], plotlist[[6]],
plotlist[[7]], plotlist[[8]], plotlist[[9]],
widths=c(3,3,3), nrow=3,
main=textGrob(label="Verteilungen Mess-/Stellgrössen", gp=gpar(cex=3)))
dev.off()
Die traditionelle Neujahrsveranstaltung der SVP findet jedes Jahr in einer anderen Schweizer Region statt und es werden ebenfalls traditionell dabei bedeutende Persönlichkeiten dieser Region gewürdigt. Dieses Jahr war das Toggenburg an der Reihe, in dessen Hauptort Wattwil auch die Parteiveranstaltung der Schweizerischen Volkspartei heute abgehalten wurde. Ich weiss gar nicht mehr, wie ich drauf gekommen bin, wahrscheinlich war irgendwo in einer der kostenlosen Zeitungen im Briefkasten die Anzeige für die Veranstaltung drin. Jedenfalls hat es mich interessiert, mal einen der grossen politischen Exponenten der letzten Jahre, Christoph Blocher, zu sehen und zu hören. Eingeführt wurde Blocher von Toni Brunner, dem derzeitigen Parteipräsidenten der SVP.
Es war in dem Sinne keine echte politische Werbeveranstaltung, dass es rund 100 Minuten lang vor (nicht von mir) geschätzten 1’500 Anwesenden um drei bedeutende Toggenburger Persönlichkeiten ging und ganz wenig um aktuelle oder vergangene Politik, wobei sich Blocher natürlich einige Seitenhiebe an passenden Stellen in seinen historischen Erzählungen nicht verkneifen konnte und wollte, hatte ich den Eindruck. Die erste gewürdigte Persönlichkeit war der Reformator Huldrych Zwingli, die zweite der Schriftsteller Ulrich Bräker und die dritte die Bauernmalerin Babeli Giezendanner. Insgesamt war das doch ein gelungener kultureller Auftakt für 2013. Mal schauen, ob ich es schaffe, dieses Jahr alle sieben Bundesräte irgendwo live zu erleben.