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))