• Erstellt mit: R 2.0.0 und GIMP 2.0.0 (deutsch)
• R-Code:

WahlenDo <- #Daten
WahlenDo$Datum <- as.Date(as.character(WahlenDo$Datum),
 format = "%d.%m.%Y")
png("Kommunalwahl ergebnisse dortmund.png",
 width=1024, height=640, bg="white")
op <- par(no.readonly = TRUE)
par(mar = c(5, 4, 4, 8) + 0.1, bg = "#909090")
plot(SPD~Datum, data = WahlenDo,
 ylim = c(0, max(WahlenDo[, -1], na.rm = TRUE)),
 type = "b", las = 1, col = "red", lwd = 2,
 ylab = "Stimmenanteil [%]",
 xlab = "Jahr",
 main = "Wahlergebnisse in der Stadt Dortmund ab 1946")
lines(CDU~Datum, data = WahlenDo,
 type = "b", col = "black", lwd = 2)
lines(GRÜNE~Datum, data = WahlenDo,
 type = "b", col = "darkgreen", lwd = 2)
lines(FDP~Datum, data = WahlenDo,
 type = "b", col = "blue", lwd = 2)
lines(Sonstige~Datum, data = WahlenDo,
 type = "b", col = "white", lwd = 2)
#Erzeugen einer Pseudo-Grafik um die Legende
#außerhalb der eigentlich Zeichenfläche einzufügen
par(mar = c(5, 4, 4, 0) + 0.1, new = TRUE)
plot(SPD~Datum, data = WahlenDo,
 ylim = c(0, max(WahlenDo[, -1], na.rm = TRUE)),
 type = "n", axes = FALSE, ylab = "", xlab = "")
par(new = FALSE)
legend(11000, 65, bty = "n", lty=1,
 c("SPD", "CDU", "GRÜNE", "FDP", "Sonstige"),
 col=c("red", "black", "darkgreen", "blue", "white"))
par(op)