Dispariții forțate în Chile (1973-1989)

Dacă această postare vă este utilă, vă cer o donație minimă pentru a -mi cumpăra o cafea. Acesta va fi folosit pentru a continua eforturile mele open source. Explicația completă este aici: un mesaj personal de la un contribuabil open source.

Puteți să -mi trimiteți întrebări pentru blog folosind acest formular și să vă abonați pentru a primi un e -mail atunci când există o nouă postare.

Aceasta este poate cea mai polemică polemică de pe blogul meu încă. Între 1973 și 1989, 1.093 de chilieni au dispărut forțat de către stat. Acest post își propune să arunce lumină asupra acestui capitol întunecat al istoriei.

Pentru persoanele care citesc acest blog în afara Chile, pe 11 septembrie, comemorăm victimele dictaturii. A început cu lovitura de stat militară în 1973, ceea ce a dus la încălcări pe scară largă a drepturilor omului, inclusiv dispariții forțate.

Cupa a început cu un atac al Forțelor Aeriene care a distrus palatul guvernamental din Santiago de Chile.

După lovitura de stat, junta militară condusă de generalul Augusto Pinochet a schimbat monedele circulante cu monede cu „Liberty” înscrise pe ele, un contrast puternic cu ceea ce s -a întâmplat dacă considerăm că libertatea este „absența unei constrângeri (arbitrare)”.

Am descărcat datele de la Muzeul de la Memoria și Los Derechos Humanos, care include informații despre victimele disparițiilor forțate în timpul dictaturii.

library(readxl)
library(janitor)
library(dplyr)
library(lubridate)
library(stringr)
library(ggplot2)

url <- "https://interactivos.museodelamemoria.cl/victims/?page_id=7670&exportar_entradas_dd=true"
file <- "2025/09/11/desaparecidos.xlsx"

if (!file.exists(file)) {
  download.file(url, destfile = file, mode = "wb")
}

Apoi am redactat datele pentru a crea două parcele:

1. An de arestare și dispariție
2. Vârsta arestării și dispariției

desaparecidos <- read_excel(file) %>%
    clean_names()

arrest_year <- desaparecidos %>%
    select(fecha_detencion_muerte) %>%
    mutate(year = as.integer(str_sub(fecha_detencion_muerte, -4, -1)))

arrest_year %>%
    filter(is.na(year))

arrest_year <- arrest_year %>%
    group_by(year) %>%
    count()

desaparecidos %>%
    distinct(edad)

arrest_age <- desaparecidos %>%
    select(edad) %>%
    mutate(
        age = case_when(
            str_detect(edad, "meses") ~ "1 - Less than 1",
            edad <= 18 ~ "2 - 18 of less",
            edad > 18 & edad <= 30 ~ "3 - 19 - 30",
            edad > 30 & edad <= 50 ~ "4 - 31 - 50",
            edad > 50 & edad <= 70 ~ "5 - 51 - 70",
            edad > 70 ~ "6 - 71 or more",
            TRUE ~ "7 - Unknown"
        )
    ) %>%
    group_by(age) %>%
    count()

Primul complot arată numărul de arestări și dispariții pe an:

ggplot(arrest_year, aes(x = year, y = n)) +
    geom_col(fill = "#c95555") +
    labs(
        title = "Year of Arrest and Disappearance",
        subtitle = "Source: Museo de la Memoria y los Derechos Humanos",
        x = "Year",
        y = "Number of Arrests"
    ) +
    theme_minimal(base_size = 13)

Al doilea complot arată distribuția vârstei arestărilor și disparițiilor:

ggplot(arrest_age, aes(x = age, y = n)) +
    geom_col(fill = "#c95555") +
    labs(
        title = "Age of Arrest and Disappearance",
        subtitle = "Source: Museo de la Memoria y los Derechos Humanos",
        x = "Age Group",
        y = "Number of Arrests"
    ) +
    theme_minimal(base_size = 13) +
    theme(axis.text.x = element_text(angle = 30, hjust = 1))

Unul caz al copilului dispărut nu a fost o dactilografie. Un copil în vârstă de opt luni a dispărut forțat cu familia.