library(ggplot2)Warning: package 'ggplot2' was built under R version 4.5.3library(tidyr)Team 23
Load required library
Step 1: Read CSV file
# Read dataset
data <- read.csv(file.choose())
# Display first few rows
head(data) ID Source Severity Start_Time End_Time Start_Lat
1 A-1 Source2 3 2016-02-08 05:46:00 2016-02-08 11:00:00 39.86515
2 A-2 Source2 2 2016-02-08 06:07:59 2016-02-08 06:37:59 39.92806
3 A-3 Source2 2 2016-02-08 06:49:27 2016-02-08 07:19:27 39.06315
4 A-4 Source2 3 2016-02-08 07:23:34 2016-02-08 07:53:34 39.74775
5 A-5 Source2 2 2016-02-08 07:39:07 2016-02-08 08:09:07 39.62778
6 A-6 Source2 3 2016-02-08 07:44:26 2016-02-08 08:14:26 40.10059
Start_Lng End_Lat End_Lng Distance.mi.
1 -84.05872 NA NA 0.01
2 -82.83118 NA NA 0.01
3 -84.03261 NA NA 0.01
4 -84.20558 NA NA 0.01
5 -84.18835 NA NA 0.01
6 -82.92519 NA NA 0.01
Description
1 Right lane blocked due to accident on I-70 Eastbound at Exit 41 OH-235 State Route 4.
2 Accident on Brice Rd at Tussing Rd. Expect delays.
3 Accident on OH-32 State Route 32 Westbound at Dela Palma Rd. Expect delays.
4 Accident on I-75 Southbound at Exits 52 52B US-35. Expect delays.
5 Accident on McEwen Rd at OH-725 Miamisburg Centerville Rd. Expect delays.
6 Accident on I-270 Outerbelt Northbound near Exit 29 OH-3 State St. Expect delays.
Street City County State Zipcode Country
1 I-70 E Dayton Montgomery OH 45424 US
2 Brice Rd Reynoldsburg Franklin OH 43068-3402 US
3 State Route 32 Williamsburg Clermont OH 45176 US
4 I-75 S Dayton Montgomery OH 45417 US
5 Miamisburg Centerville Rd Dayton Montgomery OH 45459 US
6 Westerville Rd Westerville Franklin OH 43081 US
Timezone Airport_Code Weather_Timestamp Temperature.F. Wind_Chill.F.
1 US/Eastern KFFO 2016-02-08 05:58:00 36.9 NA
2 US/Eastern KCMH 2016-02-08 05:51:00 37.9 NA
3 US/Eastern KI69 2016-02-08 06:56:00 36.0 33.3
4 US/Eastern KDAY 2016-02-08 07:38:00 35.1 31.0
5 US/Eastern KMGY 2016-02-08 07:53:00 36.0 33.3
6 US/Eastern KCMH 2016-02-08 07:51:00 37.9 35.5
Humidity... Pressure.in. Visibility.mi. Wind_Direction Wind_Speed.mph.
1 91 29.68 10 Calm NA
2 100 29.65 10 Calm NA
3 100 29.67 10 SW 3.5
4 96 29.64 9 SW 4.6
5 89 29.65 6 SW 3.5
6 97 29.63 7 SSW 3.5
Precipitation.in. Weather_Condition Amenity Bump Crossing Give_Way Junction
1 0.02 Light Rain False False False False False
2 0.00 Light Rain False False False False False
3 NA Overcast False False False False False
4 NA Mostly Cloudy False False False False False
5 NA Mostly Cloudy False False False False False
6 0.03 Light Rain False False False False False
No_Exit Railway Roundabout Station Stop Traffic_Calming Traffic_Signal
1 False False False False False False False
2 False False False False False False False
3 False False False False False False True
4 False False False False False False False
5 False False False False False False True
6 False False False False False False False
Turning_Loop Sunrise_Sunset Civil_Twilight Nautical_Twilight
1 False Night Night Night
2 False Night Night Night
3 False Night Night Day
4 False Night Day Day
5 False Day Day Day
6 False Day Day Day
Astronomical_Twilight
1 Night
2 Day
3 Day
4 Day
5 Day
6 DayStep 2: Convert columns
data$Severity <- as.factor(data$Severity)
data$Source <- as.factor(data$Source)Step 3: Basic Facet Grid Plot
plot1 <- ggplot(data, aes(x = Start_Lat, y = Start_Lng)) +
geom_point(color = "blue") +
facet_grid(Severity ~ Source) +
labs(
title = "Accident Distribution by Severity and Source",
x = "Start Latitude",
y = "Start Longitude"
)Display plot
print(plot1)