Contexto de EE. UU. en 1973

En 1973, Estados Unidos atravesaba un período de transformación y agitación. La guerra de Vietnam estaba llegando a su fin, lo que había provocado divisiones profundas en la sociedad americana. El escándalo de Watergate estaba en pleno desarrollo, sacudiendo la confianza en el gobierno. Económicamente, el país enfrentaba la inflación y el inicio de lo que sería una década de desafíos económicos.

library(dplyr)
library(ggplot2)
library(factoextra)
library(cluster)
library(maps)
library(ggrepel)
library(sf)
library(tmap)
data("USArrests")
# Estandarización de los datos
data_scaled <- scale(USArrests)
# Determinación del número óptimo de clústeres
fviz_nbclust(data_scaled, kmeans, method = "wss") +
  geom_vline(xintercept = 4, linetype = 2)

# Aplicando k-means con el número óptimo de clústeres
set.seed(123) # Para reproducibilidad
kmeans_result <- kmeans(data_scaled, centers = 4, nstart = 25)

# Añadiendo los resultados al dataset original
USArrests$Cluster <- as.factor(kmeans_result$cluster)
fviz_cluster(kmeans_result, data = data_scaled)

# Preparación de los datos de mapa
states_map <- map_data("state")
USArrests$state <- tolower(row.names(USArrests))
map_data_merged <- merge(states_map, USArrests, by.x = "region", by.y = "state")

# Creación del mapa
ggplot(map_data_merged, aes(x = long, y = lat, group = group, fill = Cluster)) +
  geom_polygon(color = "white") +
  scale_fill_brewer(palette = "RdYlGn", name = "Safety\nLevel") +
  coord_fixed(1.3) +
  labs(title = "Mapa de Seguridad de EE.UU. en 1973 Basado en Arrestos",
       subtitle = "Clasificación por análisis de clústeres") +
  theme_minimal()

Decidimos asignar un color a cada clúster, ya que la división óptima son 4. Estos clústeres representan un ranking del más seguro al más inseguro; el número 1 es el más inseguro y el número 4 es el más seguro. También se presentan por color, siendo el verde para los más seguros y el rojo para los más inseguros.

Hipótesis

  1. Influencia del Entorno Urbano: Los estados del sureste podrían tener una mayor proporción de áreas urbanas densamente pobladas, donde históricamente las tasas de criminalidad son más altas debido a factores como la desigualdad y la visibilidad de la actividad delictiva.

  2. Efectos de la Política y Legislación: Las políticas estatales, incluyendo la dureza de las leyes penales, el financiamiento para la aplicación de la ley y los programas de prevención de delitos, podrían estar influyendo en las tasas de arrestos observadas.

  3. Cuestiones Culturales e Históricas: El sureste de EE. UU. tiene una historia compleja que incluye problemas de segregación racial y desigualdad que podrían continuar influyendo en las tasas de criminalidad y arrestos.

  4. Venta de Armas: Las diferencias en la seguridad entre los estados del sureste y suroeste podrían estar parcialmente influenciadas por las leyes y regulaciones estatales sobre la venta y posesión de armas de fuego. Es posible que los estados más inseguros tengan leyes más permisivas que faciliten el acceso a las armas, lo que podría correlacionarse con tasas más altas de delitos violentos. Por otro lado, los estados más seguros podrían tener controles más estrictos que limitan la disponibilidad de armas y, por ende, posiblemente contribuyen a tasas de criminalidad más bajas. Sería importante investigar la correlación entre las leyes de armas en estos estados y las tasas de criminalidad para entender mejor su relación.

Conclusión

  1. Distribución Geográfica de la Criminalidad: Hay una clara tendencia geográfica en los datos de criminalidad, con los estados del sureste mostrando mayores tasas de arrestos en comparación con los del suroeste. Esto podría reflejar diferencias en factores socioeconómicos, culturales o en la aplicación de la ley entre estas regiones.

  2. Políticas de Aplicación de la Ley: Los estados más inseguros podrían tener sistemas de justicia más agresivos o eficientes en la detección y arresto de delitos, o por el contrario, podrían estar lidiando con tasas de criminalidad objetivamente más altas que resultan en más arrestos.

  3. Factores Socioeconómicos: Las diferencias en seguridad podrían estar correlacionadas con factores socioeconómicos como la pobreza, el desempleo, la educación y la desigualdad social y económica. Estos factores a menudo influyen en la tasa de criminalidad de una región.

LS0tDQp0aXRsZTogIkFuw6FsaXNpcyBkZSBDbHVzdGVycyBkZWwgTWFwYSBkZSBVU0EiDQphdXRob3I6ICJFZHVhcmRvIENhbWFjaG8gLSBBMDEwMjY0MzcsIERhbmllbCBOw6FqZXJhIC0gQTAxNzA5NTc4LCBHZXJhcmRvIENlZGlsbG8gLSBBMDE3MDQyMzIsIEFsZWphbmRyYSBTdcOhcmV6IC0gQTAwODM1MjQ3Ig0KZGF0ZTogIjIwMjQtMDItMTkiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQojIENvbnRleHRvIGRlIEVFLiBVVS4gZW4gMTk3Mw0KDQpFbiAxOTczLCBFc3RhZG9zIFVuaWRvcyBhdHJhdmVzYWJhIHVuIHBlcsOtb2RvIGRlIHRyYW5zZm9ybWFjacOzbiB5IGFnaXRhY2nDs24uIExhIGd1ZXJyYSBkZSBWaWV0bmFtIGVzdGFiYSBsbGVnYW5kbyBhIHN1IGZpbiwgbG8gcXVlIGhhYsOtYSBwcm92b2NhZG8gZGl2aXNpb25lcyBwcm9mdW5kYXMgZW4gbGEgc29jaWVkYWQgYW1lcmljYW5hLiBFbCBlc2PDoW5kYWxvIGRlIFdhdGVyZ2F0ZSBlc3RhYmEgZW4gcGxlbm8gZGVzYXJyb2xsbywgc2FjdWRpZW5kbyBsYSBjb25maWFuemEgZW4gZWwgZ29iaWVybm8uIEVjb27Ds21pY2FtZW50ZSwgZWwgcGHDrXMgZW5mcmVudGFiYSBsYSBpbmZsYWNpw7NuIHkgZWwgaW5pY2lvIGRlIGxvIHF1ZSBzZXLDrWEgdW5hIGTDqWNhZGEgZGUgZGVzYWbDrW9zIGVjb27Ds21pY29zLg0KDQpgYGB7ciwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRX0NCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KGZhY3RvZXh0cmEpDQpsaWJyYXJ5KGNsdXN0ZXIpDQpsaWJyYXJ5KG1hcHMpDQpsaWJyYXJ5KGdncmVwZWwpDQpsaWJyYXJ5KHNmKQ0KbGlicmFyeSh0bWFwKQ0KYGBgDQoNCmBgYHtyIG1lc3NhZ2U9RkFMU0V9DQpkYXRhKCJVU0FycmVzdHMiKQ0KIyBFc3RhbmRhcml6YWNpw7NuIGRlIGxvcyBkYXRvcw0KZGF0YV9zY2FsZWQgPC0gc2NhbGUoVVNBcnJlc3RzKQ0KYGBgDQoNCmBgYHtyfQ0KIyBEZXRlcm1pbmFjacOzbiBkZWwgbsO6bWVybyDDs3B0aW1vIGRlIGNsw7pzdGVyZXMNCmZ2aXpfbmJjbHVzdChkYXRhX3NjYWxlZCwga21lYW5zLCBtZXRob2QgPSAid3NzIikgKw0KICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSA0LCBsaW5ldHlwZSA9IDIpDQoNCiMgQXBsaWNhbmRvIGstbWVhbnMgY29uIGVsIG7Dum1lcm8gw7NwdGltbyBkZSBjbMO6c3RlcmVzDQpzZXQuc2VlZCgxMjMpICMgUGFyYSByZXByb2R1Y2liaWxpZGFkDQprbWVhbnNfcmVzdWx0IDwtIGttZWFucyhkYXRhX3NjYWxlZCwgY2VudGVycyA9IDQsIG5zdGFydCA9IDI1KQ0KDQojIEHDsWFkaWVuZG8gbG9zIHJlc3VsdGFkb3MgYWwgZGF0YXNldCBvcmlnaW5hbA0KVVNBcnJlc3RzJENsdXN0ZXIgPC0gYXMuZmFjdG9yKGttZWFuc19yZXN1bHQkY2x1c3RlcikNCmBgYA0KDQpgYGB7cn0NCmZ2aXpfY2x1c3RlcihrbWVhbnNfcmVzdWx0LCBkYXRhID0gZGF0YV9zY2FsZWQpDQpgYGANCg0KYGBge3J9DQojIFByZXBhcmFjacOzbiBkZSBsb3MgZGF0b3MgZGUgbWFwYQ0Kc3RhdGVzX21hcCA8LSBtYXBfZGF0YSgic3RhdGUiKQ0KVVNBcnJlc3RzJHN0YXRlIDwtIHRvbG93ZXIocm93Lm5hbWVzKFVTQXJyZXN0cykpDQptYXBfZGF0YV9tZXJnZWQgPC0gbWVyZ2Uoc3RhdGVzX21hcCwgVVNBcnJlc3RzLCBieS54ID0gInJlZ2lvbiIsIGJ5LnkgPSAic3RhdGUiKQ0KDQojIENyZWFjacOzbiBkZWwgbWFwYQ0KZ2dwbG90KG1hcF9kYXRhX21lcmdlZCwgYWVzKHggPSBsb25nLCB5ID0gbGF0LCBncm91cCA9IGdyb3VwLCBmaWxsID0gQ2x1c3RlcikpICsNCiAgZ2VvbV9wb2x5Z29uKGNvbG9yID0gIndoaXRlIikgKw0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlJkWWxHbiIsIG5hbWUgPSAiU2FmZXR5XG5MZXZlbCIpICsNCiAgY29vcmRfZml4ZWQoMS4zKSArDQogIGxhYnModGl0bGUgPSAiTWFwYSBkZSBTZWd1cmlkYWQgZGUgRUUuVVUuIGVuIDE5NzMgQmFzYWRvIGVuIEFycmVzdG9zIiwNCiAgICAgICBzdWJ0aXRsZSA9ICJDbGFzaWZpY2FjacOzbiBwb3IgYW7DoWxpc2lzIGRlIGNsw7pzdGVyZXMiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KDQpgYGANCg0KRGVjaWRpbW9zIGFzaWduYXIgdW4gY29sb3IgYSBjYWRhIGNsw7pzdGVyLCB5YSBxdWUgbGEgZGl2aXNpw7NuIMOzcHRpbWEgc29uIDQuIEVzdG9zIGNsw7pzdGVyZXMgcmVwcmVzZW50YW4gdW4gcmFua2luZyBkZWwgbcOhcyBzZWd1cm8gYWwgbcOhcyBpbnNlZ3VybzsgZWwgbsO6bWVybyAxIGVzIGVsIG3DoXMgaW5zZWd1cm8geSBlbCBuw7ptZXJvIDQgZXMgZWwgbcOhcyBzZWd1cm8uIFRhbWJpw6luIHNlIHByZXNlbnRhbiBwb3IgY29sb3IsIHNpZW5kbyBlbCB2ZXJkZSBwYXJhIGxvcyBtw6FzIHNlZ3Vyb3MgeSBlbCByb2pvIHBhcmEgbG9zIG3DoXMgaW5zZWd1cm9zLg0KDQojIEhpcMOzdGVzaXMNCg0KMS4gICoqSW5mbHVlbmNpYSBkZWwgRW50b3JubyBVcmJhbm8qKjogTG9zIGVzdGFkb3MgZGVsIHN1cmVzdGUgcG9kcsOtYW4gdGVuZXIgdW5hIG1heW9yIHByb3BvcmNpw7NuIGRlIMOhcmVhcyB1cmJhbmFzIGRlbnNhbWVudGUgcG9ibGFkYXMsIGRvbmRlIGhpc3TDs3JpY2FtZW50ZSBsYXMgdGFzYXMgZGUgY3JpbWluYWxpZGFkIHNvbiBtw6FzIGFsdGFzIGRlYmlkbyBhIGZhY3RvcmVzIGNvbW8gbGEgZGVzaWd1YWxkYWQgeSBsYSB2aXNpYmlsaWRhZCBkZSBsYSBhY3RpdmlkYWQgZGVsaWN0aXZhLg0KDQoyLiAgKipFZmVjdG9zIGRlIGxhIFBvbMOtdGljYSB5IExlZ2lzbGFjacOzbioqOiBMYXMgcG9sw610aWNhcyBlc3RhdGFsZXMsIGluY2x1eWVuZG8gbGEgZHVyZXphIGRlIGxhcyBsZXllcyBwZW5hbGVzLCBlbCBmaW5hbmNpYW1pZW50byBwYXJhIGxhIGFwbGljYWNpw7NuIGRlIGxhIGxleSB5IGxvcyBwcm9ncmFtYXMgZGUgcHJldmVuY2nDs24gZGUgZGVsaXRvcywgcG9kcsOtYW4gZXN0YXIgaW5mbHV5ZW5kbyBlbiBsYXMgdGFzYXMgZGUgYXJyZXN0b3Mgb2JzZXJ2YWRhcy4NCg0KMy4gICoqQ3Vlc3Rpb25lcyBDdWx0dXJhbGVzIGUgSGlzdMOzcmljYXMqKjogRWwgc3VyZXN0ZSBkZSBFRS4gVVUuIHRpZW5lIHVuYSBoaXN0b3JpYSBjb21wbGVqYSBxdWUgaW5jbHV5ZSBwcm9ibGVtYXMgZGUgc2VncmVnYWNpw7NuIHJhY2lhbCB5IGRlc2lndWFsZGFkIHF1ZSBwb2Ryw61hbiBjb250aW51YXIgaW5mbHV5ZW5kbyBlbiBsYXMgdGFzYXMgZGUgY3JpbWluYWxpZGFkIHkgYXJyZXN0b3MuDQoNCjQuICAqKlZlbnRhIGRlIEFybWFzKio6IExhcyBkaWZlcmVuY2lhcyBlbiBsYSBzZWd1cmlkYWQgZW50cmUgbG9zIGVzdGFkb3MgZGVsIHN1cmVzdGUgeSBzdXJvZXN0ZSBwb2Ryw61hbiBlc3RhciBwYXJjaWFsbWVudGUgaW5mbHVlbmNpYWRhcyBwb3IgbGFzIGxleWVzIHkgcmVndWxhY2lvbmVzIGVzdGF0YWxlcyBzb2JyZSBsYSB2ZW50YSB5IHBvc2VzacOzbiBkZSBhcm1hcyBkZSBmdWVnby4gRXMgcG9zaWJsZSBxdWUgbG9zIGVzdGFkb3MgbcOhcyBpbnNlZ3Vyb3MgdGVuZ2FuIGxleWVzIG3DoXMgcGVybWlzaXZhcyBxdWUgZmFjaWxpdGVuIGVsIGFjY2VzbyBhIGxhcyBhcm1hcywgbG8gcXVlIHBvZHLDrWEgY29ycmVsYWNpb25hcnNlIGNvbiB0YXNhcyBtw6FzIGFsdGFzIGRlIGRlbGl0b3MgdmlvbGVudG9zLiBQb3Igb3RybyBsYWRvLCBsb3MgZXN0YWRvcyBtw6FzIHNlZ3Vyb3MgcG9kcsOtYW4gdGVuZXIgY29udHJvbGVzIG3DoXMgZXN0cmljdG9zIHF1ZSBsaW1pdGFuIGxhIGRpc3BvbmliaWxpZGFkIGRlIGFybWFzIHksIHBvciBlbmRlLCBwb3NpYmxlbWVudGUgY29udHJpYnV5ZW4gYSB0YXNhcyBkZSBjcmltaW5hbGlkYWQgbcOhcyBiYWphcy4gU2Vyw61hIGltcG9ydGFudGUgaW52ZXN0aWdhciBsYSBjb3JyZWxhY2nDs24gZW50cmUgbGFzIGxleWVzIGRlIGFybWFzIGVuIGVzdG9zIGVzdGFkb3MgeSBsYXMgdGFzYXMgZGUgY3JpbWluYWxpZGFkIHBhcmEgZW50ZW5kZXIgbWVqb3Igc3UgcmVsYWNpw7NuLg0KDQojIENvbmNsdXNpw7NuDQoNCjEuICAqKkRpc3RyaWJ1Y2nDs24gR2VvZ3LDoWZpY2EgZGUgbGEgQ3JpbWluYWxpZGFkKio6IEhheSB1bmEgY2xhcmEgdGVuZGVuY2lhIGdlb2dyw6FmaWNhIGVuIGxvcyBkYXRvcyBkZSBjcmltaW5hbGlkYWQsIGNvbiBsb3MgZXN0YWRvcyBkZWwgc3VyZXN0ZSBtb3N0cmFuZG8gbWF5b3JlcyB0YXNhcyBkZSBhcnJlc3RvcyBlbiBjb21wYXJhY2nDs24gY29uIGxvcyBkZWwgc3Vyb2VzdGUuIEVzdG8gcG9kcsOtYSByZWZsZWphciBkaWZlcmVuY2lhcyBlbiBmYWN0b3JlcyBzb2Npb2Vjb27Ds21pY29zLCBjdWx0dXJhbGVzIG8gZW4gbGEgYXBsaWNhY2nDs24gZGUgbGEgbGV5IGVudHJlIGVzdGFzIHJlZ2lvbmVzLg0KDQoyLiAgKipQb2zDrXRpY2FzIGRlIEFwbGljYWNpw7NuIGRlIGxhIExleSoqOiBMb3MgZXN0YWRvcyBtw6FzIGluc2VndXJvcyBwb2Ryw61hbiB0ZW5lciBzaXN0ZW1hcyBkZSBqdXN0aWNpYSBtw6FzIGFncmVzaXZvcyBvIGVmaWNpZW50ZXMgZW4gbGEgZGV0ZWNjacOzbiB5IGFycmVzdG8gZGUgZGVsaXRvcywgbyBwb3IgZWwgY29udHJhcmlvLCBwb2Ryw61hbiBlc3RhciBsaWRpYW5kbyBjb24gdGFzYXMgZGUgY3JpbWluYWxpZGFkIG9iamV0aXZhbWVudGUgbcOhcyBhbHRhcyBxdWUgcmVzdWx0YW4gZW4gbcOhcyBhcnJlc3Rvcy4NCg0KMy4gICoqRmFjdG9yZXMgU29jaW9lY29uw7NtaWNvcyoqOiBMYXMgZGlmZXJlbmNpYXMgZW4gc2VndXJpZGFkIHBvZHLDrWFuIGVzdGFyIGNvcnJlbGFjaW9uYWRhcyBjb24gZmFjdG9yZXMgc29jaW9lY29uw7NtaWNvcyBjb21vIGxhIHBvYnJlemEsIGVsIGRlc2VtcGxlbywgbGEgZWR1Y2FjacOzbiB5IGxhIGRlc2lndWFsZGFkIHNvY2lhbCB5IGVjb27Ds21pY2EuIEVzdG9zIGZhY3RvcmVzIGEgbWVudWRvIGluZmx1eWVuIGVuIGxhIHRhc2EgZGUgY3JpbWluYWxpZGFkIGRlIHVuYSByZWdpw7NuLg0K