my code:
bike <- read.csv('bikeshare.csv',sep=',')
library(ggplot2)
library(plotly)
library(dplyr)
pl2 <- ggplot(filter(bike,workingday == 0), aes(hour,count))
pl2 <- pl2+ geom_point()
pl2 <- pl2 + geom_point(position=position_jitter(w=1,h=0),aes(color = temp),alpha=0.5)
pl2 <- pl2 + scale_color_gradientn(colours = c('dark blue','blue','light blue','light green','yellow','orange','red'))
print(pl2 + theme_bw())