Unterschätzung der CDU/CSU Werte?

[InesReinstaedtler]

Das Tortendiagramm, was mir ausgegeben wird, hat einen verdächtig kleinen Anteil der CDU/CSU für Wähler*innen Ü 70. Wenn ich mir das Subset Ü70 anschaue, sind auch deutlich mehr CDU/CSU Stimmen vertreten.
Hier der Code:

library(gles)
data(bt2017)
dim(bt2017)

vote_Birthyear <- as.numeric(bt2017nw[["q2c"]])
vote_year <- as.numeric(bt2017nw[["year"]])
vote_age <- vote_year-vote_Birthyear
vote_ZwSt <- as.numeric(bt2017nw[["q19ba"]])

#Datensatz bauen für Alter und Parteistimme

dt_age_vote <- data.frame(vote_age, vote_ZwSt, vote_parties)
dt_age_vote
vote_ZwSt2 <- vote_ZwSt

Variable mit Parteinamen hinzufügen

vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "1", "CDU/CSU")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "2", "SPD")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "3", "DIE LINKE")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "4", "GRÜNE")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "5", "FDP")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "6", "AfD")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "7", "PIRATEN")
vote_ZwSt2 <- replace(vote_ZwSt2, vote_ZwSt2 == "8", "NPD")

vote_parties <- vote_ZwSt2

table(vote_parties)
pie(table(dt_age_vote$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"))

U 30

data_30 <- subset(dt_age_vote, dt_age_vote$vote_age <= 30)
pie(table(data_30$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red", "purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen U 30")

U40

data_40 <- subset(dt_age_vote, dt_age_vote$vote_age > 30 & dt_age_vote$vote_age <= 40)
pie(table(data_40$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red", "purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen Ü 30 & U 40")

#U 50
data_50 <- subset(dt_age_vote, dt_age_vote$vote_age > 40 & dt_age_vote$vote_age <= 50)
pie(table(data_50$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red", "purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen Ü 40 & U 50")

U60

data_60 <- subset(dt_age_vote, dt_age_vote$vote_age > 50 & dt_age_vote$vote_age <= 60)
pie(table(data_60$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red","purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen Ü 50 & U 60")

U70

data_70 <- subset(dt_age_vote, dt_age_vote$vote_age > 60 & dt_age_vote$vote_age <= 70)
pie(table(data_70$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red", "purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen Ü 60 & U 70")

#Ü70

data_Ü70 <- subset(dt_age_vote, dt_age_vote$vote_age > 70)
pie(table(data_Ü70$vote_parties), labels=c("CDU/CSU", "SPD", "DIE LINKE","GRÜNE", "FDP", "AfD", "PIRATEN", "NPD"), col= c("black", "red", "purple", "green", "yellow", "blue", "orange", "brown"), main = "Stimmen Ü70")