Solution
Pritam answered on
Sep 06 2021
---
title: "Untitled"
author: "Unknown"
date: "6 September 2019"
output:
word_document: default
pdf_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
# Required li
aries:
```{r, warning=FALSE, message=FALSE}
li
ary(readxl)
li
ary(dplyr)
li
ary(tidyr)
li
ary(ggplot2)
li
ary(ggco
plot)
li
ary(gridExtra)
```
# Import, Plot, summarize and save data:
```{r, warning=FALSE, message=FALSE}
cdr12017_sfyfso0o <- read_excel("cdr12017-sfyfso0o.xlsx", skip = 4)
#View(cdr12017_sfyfso0o)
d1 = cdr12017_sfyfso0o
colnames(d1) = c("Industry","NAICS_code","Total_cases","sprains_strains_tears",
"Fractures","Total","Cuts_lacerations","Punctures",
"Bruise_contusions",
"Heat_burns","chemical_burns","Amputations",
"Carpal_tunnel_syndrome",
"Tendonitis","Total_trauma","with_sprains","with_fractures",
"soreness_pain","other_natures")
# changing the character type to numeric
d1[,2:19] = as.data.frame(sapply(d1[,2:19], as.numeric))
# Brief observation of the...