Research Data Selection - Vision Zero

R Markdown

#Library
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.6
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.2     ✔ tibble    3.3.1
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.2
## ✔ purrr     1.2.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readxl)

#Set Working Directory
setwd("C:/Users/jalex/OneDrive/Desktop/JS R Homework/City of San Antonio - Vision Zero Data")

#Data
COSA_Severe_Data <- read_csv("COSA Severe Pedestrian Injury Areas.csv")

## Rows: 166 Columns: 10
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (3): StreetName, FromStreet, ToStreet
## dbl (7): OBJECTID, CorridorID, Incapacitated_Injuries, Fata_Injuries, Total_...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

names(COSA_Severe_Data)

##  [1] "OBJECTID"               "CorridorID"             "StreetName"            
##  [4] "FromStreet"             "ToStreet"               "Incapacitated_Injuries"
##  [7] "Fata_Injuries"          "Total_Injuries"         "SPIA_Year"             
## [10] "Shape__Length"

hist(COSA_Severe_Data$Total_Injuries)

hist(COSA_Severe_Data$Fata_Injuries)

plot(COSA_Severe_Data$Total_Injuries,COSA_Severe_Data$Fata_Injuries)

cor(COSA_Severe_Data$Total_Injuries,COSA_Severe_Data$Fata_Injuries)

## [1] 0.7022154