library(dplyr) library(ggplot2) library(plotly) library(treemapify) library(htmlwidgets) # Asegúrate de cargar el paquete htmlwidgets

setwd(“~/Desktop”) # Establece el directorio de trabajo

Lee los datos desde el archivo CSV

data <- read.csv(“accidentes_transito_con_victimas_2016_2022.csv”, sep = “;”)

Gráfico de barras para Tipo de Accidente

barChartTipoAccidente <- ggplot(data, aes(x = Tipo.de.accidente)) + geom_bar(fill = “#00abff”, colour = “black”) + theme(axis.text.x = element_text(angle = -25, hjust = 0)) + labs( x = “Tipo de Accidente”, y = “Frecuencia” )

Convertir el gráfico de barras en un objeto HTML interactivo

barChartTipoAccidente_interactive <- ggplotly(barChartTipoAccidente)

Conteo de accidentes por provincia

dfProvincia <- data %>% count(Provincia)

Crear treemap interactivo para visualizar el conteo por provincia

treeMapProvincia <- plot_ly(dfProvincia, labels = ~ Provincia, parents = NA, values = ~ n, type = “treemap”, hovertemplate = “Provincia: %{label}
Frecuencia: %{value}”)

Convertir el treemap en un objeto HTML interactivo

treeMapProvincia_interactive <- plotly::plotly_build(treeMapProvincia)

Gráfico de barras para Hora del Accidente

barChartHoraAccidente <- ggplot(data, aes (x = Hora)) + geom_bar(fill = “#00abff”, colour = “black”) + theme(axis.text.x = element_text(angle = -30, hjust = 0)) + labs( x = “Hora del Accidente”, y = “Frecuencia” )

Convertir el gráfico de barras en un objeto HTML interactivo

barChartHoraAccidente_interactive <- ggplotly(barChartHoraAccidente)