STATS399-Week3-WhioA

library(leaflet.extras)

library(leaflet)

leaflet(crime_data) %>%
  addTiles() %>%
  addHeatmap(lng = ~Longitude,lat = ~Latitude,intensity = ~Victimisations,radius = 10)

ggplot(hourly_crimes, aes(x = factor(Occurrence.Hour.Of.Day), 
                          y = crime_count, fill = crime_count)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  coord_polar(start = -0.15) +  
  scale_fill_gradient(low = "white", high = "red") +
  labs(
    title = "Crime Heatmap by Hour of Day in Auckland",
    x = "Hour of Day",y = "Crime Count") +
  theme_minimal() +
  theme(
    axis.text.x = element_text(size = 12, angle = 0, hjust = 0.5, face = "bold"),  
    axis.text.y = element_blank(),
    axis.ticks = element_blank(),
    plot.title = element_text(size = 14, hjust = 0.5))