Data-Visualization-Bike-Assignment.R

df<-read.csv('bike_share.csv')
library(ggplot2)
options(scipen=999)

#5:
ggplot(data= df, aes(x=hoursSinceStart, y=registered))+geom_line()

#6:
ggplot(data=df, aes(x=registered))+geom_histogram(bins=20, fill="orange")

#7:
ggplot(data=df, aes(x=weathersit, y=casual))+geom_bar(stat='identity', fill="pink")

#8:
ggplot(data=df, aes(y=casual))+geom_boxplot()

#9:
ggplot(data=df, aes(x=month, y=weekday, fill=registered))+geom_tile(stat='sum')