Work Health and Safety EDA - Initial

This is an initial exploration of the WHS Data. The objective is to predict a risk score for possible offenders

library(tidyverse)
library(ggplot2)
library(dplyr)
library(dtplyr)
library(readxl)
library(data.table)
library(stringr)
library(janitor)
library(mice)
library(VIM)
library(cowplot)
library(DataExplorer)

# Load the data
data_ds1 <- read_excel("DS1_WSMS_WI_20190201_clean.xlsx")
df.data_ds1 <- data_ds1

# Import the File with ABN
data_abr <- read_excel("ABR_construction_clean_clean.xlsx")
glimpse(data_abr)

# Import the File with ABN
data_abr <- read_excel("ABR_construction_clean_clean.xlsx")
glimpse(data_abr)

# Convert the Data into a Dataframe
df.data_abr <- data_abr
str(df.data_abr)

# Rename column names using janitor package
df.data_ds1 <- clean_names(df.data_ds1)

This concludes the initial analysis of the WHS Data.