Im September hat’s Bundestagswahlen (in Deutschland). Mal abgesehen davon, dass ich dann aus dem Ausland (bzw. aus meiner Heimat) Briefwahl machen kann, wird sich meiner Meinung nach an dem Namen des Bundeskanzlers nicht viel ändern. Der Meinung ist auch Hans-Hermann Tiedje in der NZZ, ein persönlicher Berater vom alten Helmut. Genauso nüchtern könnte auch mal in der deutschen Presse berichtet werden. Ein aktueller Artikel im Tagesspiegel zeichnet da ein etwas anderes Bild. Bei der TAZ geht’s dann auch noch um die Grünen, die ein Schwarz-Grün nicht ausschliessen. Ich find’s eh komisch, von vornherein zu sagen “mit denen nicht” oder “nur mit denen”. Dann doch eher merkelpragmatisch “egal, mit wem, Hauptsache ich” (obwohl’s mit den Linken wohl trotzdem nicht ginge). Tja, sie ist halt alternativlos, was aber über absolute Qualitäten nichts aussagt, sondern nur, dass niemand besser ist. Nach gut 60 Jahren Demokratie können auch einige Parteien mal Abnutzungserscheinungen zeitigen, so dass dann weniger Inhalt, sondern lieber mehr Verpackung geliefert wird. Mein Lieblings-Online-Magazin seit vielen Jahren, Telepolis, hat dazu z.B. diesen Artikel. Noch etwas länger ein Interview mit Thomas Rietzschel, witzigerweise einem Ex-Redaktor (von mir aus auch mit eu (Redakteur)) der FAZ und Autor des Buches Die Stunde der Dilettanten.
Author: georgruss
Ulrich Schmid über Sternchen Rainer Brüderle
Mein erfrischender Lieblings-Deutschlandkorrespondent der NZZ, Ulrich Schmid, sorgte heute mal wieder für Erheiterung beim Frühstück, da er im Artikel Brüderle beschäftigt Medien und Politik (NZZ 29.01.2013) im Abschnitt “Aufblähung” Folgendes schreibt:
Die vom Feminismus der siebziger und achtziger Jahre eingeleitete Sexismus-Debatte ist neu entbrannt und wird mit Sicherheit noch eine Weile weiterschwelen. Praktisch durchs Band weg wird dabei aber übersehen, dass der «Stern» wahrlich keine emanzipativen Ansichten hegte, als er seine gut abgehangene Story publizierte. Das offen sexistische Blatt, das auch noch eine Titelgeschichte über Waldameisen mit einer nackten Frau auf der Front bewerben würde, hat ganz einfach Kasse machen wollen. Darauf darf man verweisen, und einige Medien taten es auch, schüchtern genug. Die Apologeten Brüderles allerdings zogen es vor, die berechtigte Kritik an einem gesellschaftlichen Missstand feierlich zum neuen Puritanismus hochzustilisieren, so, wie es etwa die «Welt» tat.
Ein sonniger Wochenstart
Morgennebel, Pflotsch auf den Strassen und später dann ein sonnendurchfluteter Montagnachmittag im Büro. Da passt der Garfield-Spruch “I Hate Mondays” gar nicht dazu.
Baumarkt gen Westen





Neu gesattelt
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).
CNL, mal wieder


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. 
In Velum Veritas :-)
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.
5-Zonen-Tageskarte

Barcode — Piep — Barcode — Piep — Barcode — Piep — … so ähnlich geht’s im Supermarkt und heutzutage auch beim Blutspenden zu.
Continue reading “5-Zonen-Tageskarte”
Kaffee-Kopfschmerzen-Korrelation
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).
ggplot2, Variablennamen in einer Schlaufe
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()