R Notebook

How it works (only::only_hour) Importing necessary packages

library(readr)
library(only)

Get the data

bike <- read.csv('bikeshare.csv')
head(bike)

plottig the plot

library(ggplot2)
library(dplyr)
bike$datetime <- as.POSIXct(bike$datetime)
ggplot(bike,aes(datetime,count))+geom_point()

Creating a new column hour and grabing the only hour from the datetime column

library(only)
bike$hour <- sapply(bike$datetime,only_hour)
head(bike)

  Here is the use of my package >>library(only)::only_hour

head(bike[,c('datetime','hour')])

NA