Abweichung des Zweitstimmen-Anteils der deutschen Regierungsparteien nach Alter 1972-2021

Deviation of mean share of votes of German government parties by age 1972-2021

library(plotly)
library(tidyr)
library(ggplot2)

data = read.csv2("https://bundeswahlleiter.de/dam/jcr/0c8deca8-4030-419c-9fa8-5ab770cfa123/btw_rws_zwst-1953.csv", skip = 12)
data = data[data$Geschlecht == "Summe" & data$Bundestagswahl>1970,]
colnames(data)[3] = "Altersgruppe"
colnames(data)[8] = "LINKE"

# Gesamtergebnisse für Wahlen 1994 und 1998 ergänzen (trotz ausgesetzter repräsentativer Wahlstatistik)´
data = rbind(
  data,
  #https://www.bundeswahlleiter.de/bundestagswahlen/1994.html
  list("Bundestagswahl"=1994, "Geschlecht"="Summe", "Altersgruppe"="Summe", "CDU"=34.2, "SPD"=36.4, "LINKE"=4.4, "GRÜNE"=7.3, "CSU"=7.3, "FDP"=6.9, "AfD"=NA, "Sonstige"=3.6),
  #https://www.bundeswahlleiter.de/bundestagswahlen/1998.html
  list("Bundestagswahl"=1998, "Geschlecht"="Summe", "Altersgruppe"="Summe", "CDU"=28.4, "SPD"=40.9, "LINKE"=5.1, "GRÜNE"=6.7, "CSU"=6.7, "FDP"=6.2, "AfD"=NA, "Sonstige"=5.9)
)

data["CDU/CSU"] = data$CDU + ifelse(!is.na(data$CSU), data$CSU, 0)

kabinette = data.frame(
  wahl = as.factor(c(1972, 1976, 1980, 1983, 1987, 1990, 1994, 1998, 2002, 2005, 2009, 2013, 2017, 2021)),
  parteien = c("SPD,FDP", "SPD,FDP", "SPD,FDP", "CDU/CSU,FDP", "CDU/CSU,FDP", "CDU/CSU,FDP", "CDU/CSU,FDP", "SPD,GRÜNE", "SPD,GRÜNE", "CDU/CSU,SPD", "CDU/CSU,FDP", "CDU/CSU,SPD", "CDU/CSU,SPD", "SPD,GRÜNE,FDP"),
  kabinett = c("Brandt II + Schmidt I", "Schmidt II", "Schmidt III", "Kohl II", "Kohl III", "Kohl IV", "Kohl V", "Schröder I", "Schröder II", "Merkel I", "Merkel II", "Merkel III", "Merkel IV", "Scholz I")
)
#kabinette=kabinette[-c(7:8),] # 1994 und 1998 entfernen (repräsentative Wahlstatistik wurde ausgesetzt)
#kabinette = kabinette[9:14,] # just show 2002-2021, set fig.width=8, fig.height=3
rownames(kabinette) = kabinette$wahl

zeitpunkte = c("18 - 24", "25 - 34", "35 - 44", "45 - 59", "60 und mehr")

for (i in 1:nrow(kabinette)) {
  wahl = data[data$Bundestagswahl == kabinette[i, "wahl"],]
  if (nrow(wahl) == 0) next
  rownames(wahl) = wahl$Altersgruppe
  parteien = strsplit(kabinette[i, "parteien"], ",", fixed=T)[[1]]
  summe = wahl["Summe", parteien]
  
  kabinette[i, zeitpunkte] = rowSums(wahl[zeitpunkte, parteien])-sum(summe)
  
  kabinette[i, "Summe"] = sum(summe)
  
  kabinette[i, "Gewinner1"] = parteien[1]
  kabinette[i, "Gewinner2"] = parteien[2]
  kabinette[i, "Gewinner3"] = parteien[3]
  kabinette[i, "Prozente1"] = summe[1]/sum(summe)
  kabinette[i, "Prozente2"] = summe[2]/sum(summe)
  kabinette[i, "Prozente3"] = ifelse(!is.na(parteien[3]), summe[3]/sum(summe), NA)
}

colorcode = list("CDU/CSU" = "black", "SPD" = "#e3000f", "GRÜNE" = "#46962b", "FDP" = "yellow", "LINKE" = "#be3075", "AfD" = "#009ee0", "Sonstige" = "#ffffff")

get_tooltip = function(Wahl, Altersgruppe) {
  sub = data[data$Bundestagswahl == Wahl & data$Altersgruppe == Altersgruppe,]
  parteien = names(colorcode)[!is.na(sub[names(colorcode)])]
  paste(sapply(
    parteien,
    function(partei) paste0("<span style='", ifelse(partei=="CDU/CSU", "text-shadow: 0px 0px 3px #ffffff; ", ""), "color:", colorcode[[partei]], "'>", partei, ": ", sub[partei], "%</span>")
  )[order(sub[parteien], decreasing=T)], collapse="\n")
}

kabinette$tooltip = sapply(kabinette$wahl, function(x) get_tooltip(x, "Summe"))

p1 = ggplotly(ggplot(data.frame(wahl=rep(kabinette$wahl, n=2), partei=factor(c(kabinette$Gewinner1, kabinette$Gewinner2, kabinette$Gewinner3), levels=rev(names(colorcode))), prozente=c(kabinette$Prozente1, kabinette$Prozente2, kabinette$Prozente3))) +
  geom_col(aes(prozente, wahl, fill=partei), position = position_fill()) +
  geom_text(aes(x=0.5, wahl, label=paste0(Summe, "%"), text=tooltip), data=kabinette, color="white") +
  scale_fill_manual(values=colorcode) +
  theme_minimal() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), legend.position="none", axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank(), axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank()), tooltip="text") %>%
  style(hoverinfo = "none", traces = 1:4) %>%
  layout(hovermode="closest", xaxis=list(fixedrange=T), yaxis=list(fixedrange=T))

overview = kabinette[,c("wahl", zeitpunkte)]
overview = as.data.frame(pivot_longer(overview, cols=2:ncol(overview)))
colnames(overview)[3] = "Abweichung"
overview$tooltip = sapply(1:nrow(overview), function(i) get_tooltip(overview[i, "wahl"], overview[i, "name"]))
overview[is.na(overview$Abweichung), "tooltip"] = ""
overview$name[overview$name == "60 und mehr"] = "60 +"

p2 = ggplotly(ggplot(overview, aes(name, wahl, fill=Abweichung)) +
  geom_tile(aes(fill = Abweichung), na.rm=T) +
  geom_text(aes(label = ifelse(!is.na(Abweichung), paste0("<span style='color:", ifelse(abs(Abweichung)<5, "black", "white"), "'>", ifelse(Abweichung>0, "+", ""), round(Abweichung,1), "%</span>"), ""), text=tooltip)) +
  scale_fill_gradient2(low=scales::muted("violetred"), mid="white", high=scales::muted("aquamarine")) +
  theme_minimal() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()), tooltip="text") %>%
  style(hoverinfo = "none", traces = c(1)) %>%
  layout(xaxis=list(fixedrange=T, tickfont=list(size=16)), yaxis=list(fixedrange=T, tickfont=list(size=16)))

partial_bundle(subplot(p1, plotly_empty() %>% layout(xaxis=list(fixedrange=T), yaxis=list(fixedrange=T)), p2, widths=c(0.2,0.01,0.79)) %>%
  config(displayModeBar = FALSE))

Die linke Spalte zeigt die deutschen Regierungskoalitionen, die nach den Bundestagswahlen seit 1972 gebildet wurden. Die Prozentzahlen beziehen sich auf den Zweitstimmen-Anteil der Regierungsparteien, gibt also in etwa den Anteil der Wählerschaft wider, der durch die Regierung repräsentiert wird. Der Tooltip über den Prozentzahlen listet die die Zweitstimmen der verschiedenen Parteien auf. Der Zeitraum wurde gewählt, da das Wahlalter 1970 auf 18 Jahre reduziert wurde.

Die rechte Tabelle zeigt die Abweichungen des Zweitstimmen-Anteils der deutschen Regierungsparteien je nach Altersgruppe an, ermittelt aus der repräsentativen Wahlstatistik. Violett hervorgehobene Altersgruppen haben verhältnismässig weniger Zweitstimmen für die Regierungsparteien abgegeben als der Durchschnitt, während grüne die Regierungsparteien häufiger wählten. 1994 und 1998 wurde die repräsentative Wahlstatistik ausgesetzt. Der Anteil der verschiedenen Altersgruppen an der Bevölkerung variiert von Jahr zu Jahr und unterliegt dem demographischen Wandel.

Datenquelle: Bundeswahlleiter (csv) / (pdf)

---

The left column shows the German government coalitions formed since 1972. The percentages indicate the proportion the government parties gained together in the respective parliamentary election (in secondary votes), thus roughly representing the proportion of voters represented by the government. The tooltip over the percentages shows the votes for each party. The timeframe was chosen as the voting age was reduced to 18 in 1970.

The table on the right shows the deviation of German government party votes by age groups, derived through the representative electoral statistics. Violet age groups voted less for government parties compared to the average, while green age groups voted for them more. The representative electoral statistics were suspended in 1994 and 1998. The proportion of the different age groups among the total population varies from year to year and is subject to demographic change.

Source: Bundeswahlleiter (csv) / (pdf)