Traffic Congestion Management - 1

R Markdown

train=read.csv("data.txt",header = F)

new <- do.call( rbind , strsplit( as.character( train$V1 ) , " " ) )

train=cbind( train , Time = new[,2] , Date = new[,1] )

train$Date=as.Date(train$Date,"%m/%d/%Y")
df <- data.frame(date = train$Date,
                 year = as.numeric(format(train$Date, format = "%Y")),
                 month = as.numeric(format(train$Date, format = "%m")),
                 day = as.numeric(format(train$Date, format = "%d")))

df$date<-NULL
df$Time=train$Time
df$Total_Vehicle=train$V2

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.2.5

qplot(x=Total_Vehicle,data = df,binwidth=1)

ggplot(data = df,aes(x=Total_Vehicle))+
  geom_bar()+
  scale_x_discrete(breaks = 1:100)

ggplot(data = df,aes(x=Total_Vehicle))+
  geom_bar()+
  scale_x_discrete(breaks = 1:100)+
  facet_wrap(~month,ncol = 3)

ggplot(df,aes(Time,Total_Vehicle)) + geom_point()

oneMonth <- subset(df,df$month==4)

ggplot(oneMonth,aes(Time,Total_Vehicle)) + geom_point()

ggplot(oneMonth[oneMonth$day==20,],aes(Time,Total_Vehicle)) + geom_jitter()

ggplot(oneMonth,aes(Time,Total_Vehicle)) + geom_point() + facet_wrap(~day,ncol = 3)