Skip to content

Instantly share code, notes, and snippets.

@AndreaCirilloAC

AndreaCirilloAC/bike_sharing.R

Created August 22, 2016 07:42
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AndreaCirilloAC/ef26e3e8a43c0f6aae80aa7630fd4297 to your computer and use it in GitHub Desktop.
Save AndreaCirilloAC/ef26e3e8a43c0f6aae80aa7630fd4297 to your computer and use it in GitHub Desktop.
Download ZIP
bike sharing in washington by season
Raw
bike_sharing.R
library(rio)
library(dplyr)
library(ggplot2)
# data from: https://www.kaggle.com/c/bike-sharing-demand/data
rides_stat <- import ("train.csv")
rides_stat %>%
group_by(season) %>%
summarise(total_rides = sum(count),mean_temp = mean(temp)) %>%
ggplot(aes(x=season,y=total_rides, fill = mean_temp)) +
geom_bar(stat='identity')+
coord_flip()
@AndreaCirilloAC
Copy link
Author

rplot

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment