library(tidyverse)
setwd("~/Dropbox/2024 Indonesia Election/replication_file")
load("./data/data.Rdata")
sikap_df <- dat
sikap_df$moments_memory_tragedy
sikap_df$moments_memory_suharto
sikap_df$moments_memory_violence
summary(sikap_df$moments_memory_violence)
sikap_df <- dat
sikap_df <- haven::zap_labels(sikap_df)
remember_plot <-
sikap_df %>%
filter(week %in% c(12)) %>%
mutate(birthyear = 2024 - as.numeric(demog_age),
age_cat = case_when(birthyear %in% seq(1997, 2012, 1) ~ "Gen-Z\n(1997-)",
birthyear %in% seq(1981, 1996, 1) ~ "Millenials\n(1981-96)",
birthyear %in% seq(1965, 1980, 1) ~ "Gen-X\n(1965-80)",
birthyear %in% seq(1944, 1964, 1) ~ "Boomers\n(1944-64)"),
age_cat = factor(age_cat, levels = c("Boomers\n(1944-64)", "Gen-X\n(1965-80)",
"Millenials\n(1981-96)", "Gen-Z\n(1997-)")),
vote_choice = coalesce(polpref_votepres, polpref_votepresb),
vote_choice = case_when(vote_choice == 1 ~ "Anies Baswedan",
vote_choice == 2 ~ "Prabowo Subianto",
vote_choice == 3 ~ "Ganjar Pranowo",
vote_choice == 4 ~ NA_character_),
vote_choice = factor(vote_choice, levels = c("Anies Baswedan", "Prabowo Subianto", "Ganjar Pranowo"))) %>%
mutate(moments_memory_tragedy2pt = case_when(moments_memory_tragedy %in% c(4, 5) ~ 1,
TRUE ~ 0),
moments_memory_suharto2pt = case_when(moments_memory_suharto %in% c(4, 5) ~ 1,
TRUE ~ 0),
moments_memory_violence2pt = case_when(moments_memory_violence %in% c(4, 5) ~ 1,
TRUE ~ 0)) %>%
select(demog_age, age_cat, vote_choice, moments_memory_tragedy2pt:moments_memory_violence2pt) %>%
pivot_longer(cols = moments_memory_tragedy2pt:moments_memory_violence2pt) %>%
mutate(name = case_when(name == "moments_memory_tragedy2pt" ~ "Semanggi\nShootings",
name == "moments_memory_suharto2pt" ~ "Suharto\nResignation",
name == "moments_memory_violence2pt" ~ "Anti-Chinese\nRiots")) %>%
group_by(age_cat, name) %>%
summarise(val = mean(value, na.rm = T)) %>%
filter(name != "Suharto\nResignation") %>%
ggplot(aes(x=fct_rev(age_cat), y = val*100, fill = factor(age_cat))) +
geom_bar(stat = 'identity', color = "black", position = "dodge") +
facet_wrap(name  ~ ., ncol = 3) +
scale_fill_grey() +
geom_text(aes(label = paste0(round(val*100, digits = 0), "%"), y = -3), size = 3) +
theme_bw()+
theme(axis.line.x.bottom = element_line(color = "black"),
axis.line.y.left = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor.x = element_blank(),
legend.position = "none",
strip.background = element_blank(),
axis.title = element_blank(),
legend.title = element_blank(),
panel.border = element_blank(),
axis.ticks = element_blank())
ggsave("~/Dropbox/2024 Indonesia Election/replication_file/outputs/age_remember.pdf", remember_plot, width = 10, height = 5)
ggsave("~/Dropbox/Apps/Overleaf/2024 Indonesia Election/figures/age_remember.pdf", remember_plot, width = 10, height = 5)
support_prabowo_memory <-
sikap_df %>%
filter(week %in% c(12)) %>%
mutate(birthyear = 2024 - as.numeric(demog_age),
age_cat = case_when(birthyear %in% seq(1997, 2012, 1) ~ "Gen-Z\n(1997-)",
birthyear %in% seq(1981, 1996, 1) ~ "Millenials\n(1981-96)",
birthyear %in% seq(1965, 1980, 1) ~ "Gen-X\n(1965-80)",
birthyear %in% seq(1944, 1964, 1) ~ "Boomers\n(1944-64)"),
age_cat = factor(age_cat, levels = c("Boomers\n(1944-64)", "Gen-X\n(1965-80)",
"Millenials\n(1981-96)", "Gen-Z\n(1997-)")),
vote_choice = coalesce(polpref_votepres, polpref_votepresb),
vote_choice = case_when(vote_choice == 1 ~ "Anies Baswedan",
vote_choice == 2 ~ "Prabowo Subianto",
vote_choice == 3 ~ "Ganjar Pranowo",
vote_choice == 4 ~ NA_character_),
vote_choice = factor(vote_choice, levels = c("Anies Baswedan", "Prabowo Subianto", "Ganjar Pranowo"))) %>%
mutate(moments_memory_tragedy2pt = case_when(moments_memory_tragedy %in% c(4, 5) ~ 1,
TRUE ~ 0),
moments_memory_suharto2pt = case_when(moments_memory_suharto %in% c(4, 5) ~ 1,
TRUE ~ 0),
moments_memory_violence2pt = case_when(moments_memory_violence %in% c(4, 5) ~ 1,
TRUE ~ 0)) %>%
select(demog_age, age_cat, vote_choice, moments_memory_tragedy2pt:moments_memory_violence2pt) %>%
pivot_longer(cols = moments_memory_tragedy2pt:moments_memory_violence2pt) %>%
mutate(name = case_when(name == "moments_memory_tragedy2pt" ~ "Semanggi\nShootings",
name == "moments_memory_suharto2pt" ~ "Suharto\nResignation",
name == "moments_memory_violence2pt" ~ "Anti-Chinese\nRiots")) %>%
group_by(age_cat, value, name) %>%
summarise(val = mean(vote_choice == "Prabowo Subianto", na.rm = T)) %>%
mutate(value = case_when(value == 1 ~ "Remembers",
value == 0 ~ "Does not remember")) %>%
filter(name != "Suharto\nResignation") %>%
ggplot(aes(x=fct_rev(age_cat), y = val*100, shape = factor(value), linetype = factor(value), group = factor(value))) +
stat_summary_bin(geom = "point", bins = 8, inherit.aes = T) +
stat_summary_bin(geom = "line", bins = 8) +
facet_wrap(name  ~ ., ncol = 3) +
scale_color_grey() +
theme_bw()+
theme(axis.line.x.bottom = element_line(color = "black"),
axis.line.y.left = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor.x = element_blank(),
legend.position = "bottom",
strip.background = element_blank(),
axis.title.x = element_blank(),
legend.title = element_blank(),
panel.border = element_blank(),
axis.ticks = element_blank( )) +
ylab("Support for Prabowo (%)")
ggsave("~/Dropbox/2024 Indonesia Election/replication_file/outputs/support_prabowo_memory.pdf", support_prabowo_memory, width = 10, height = 5)
sikap_df$moments_memory_tragedy
sikap_df$moments_memory_suharto
sikap_df$moments_memory_violence
sikap_df$moments_memory_tragedy
sikap_df$moments_memory_suharto
sikap_df$moments_memory_violence
summary(sikap_df$moments_memory_violence)
summary(sikap_df$moments_memory_riots)
sikap_df$moments_memory_riots
sikap_df$moments_memory_violence
s
sikap_df$moments_view
sikap_df$moments_engage
sikap_df$moments_engage_1
summary(sikap_df$moments_engage_1)
