inst/applications/boardpack2/D1MI.R

In stephlocke/Rtraining: Training Materials on R

# ---- LoadD1 ----
library(data.table)

#Error in fread(system.file("extdata/Accidents2013.csv", package = "Rtraining")) : 
#showProgress must be 0 or 1, currently

#dt1<-fread(system.file("extdata/Accidents2013.csv",package = "Rtraining"))
dt1<-readr::read_csv(system.file("extdata/Accidents2013.csv",package = "Rtraining"))
setDT(dt1)
dt1[,AccidentDate:=as.Date(Date,format = "%d/%m/%Y")]

# ---- TableD1 ----
interestingCols<-colnames(dt1)[1:5]
knitr::kable(dt1[,lapply(.SD,uniqueN),.SDcols=interestingCols])

#--- ChartD1 ----
library(ggplot2)
ggplot(data=dt1, aes(x=AccidentDate,y=..density..))+
  geom_density(fill="blue", colour="blue", alpha=.5)+
  optiRum::theme_optimum()