Dear members,
Kindly assist, I am struggling to produce a plot that shows average use duration of a bike share service each day of the week.
I am using the geom_bar option however the mapping function will not plot the y-axis properly
see code below
ggplot(data = Summary_weekday_with_count)+geom_bar(mapping = aes(x=day))
the object is below;
Summary_weekday_with_count<-cleaned %>%
select(rideable_type(trimmed)
,day, date,Duration_hrs_min_ss,Member_casual(trimmed)
) %>%
group_by(day) %>%
drop_na() %>%
summarise(n=n(),average_duration=mean(Duration_hrs_min_ss))
Summary_weekday_with_count$day<- as.factor(Summary_weekday_with_count$day)
levels(Summary_weekday_with_count$day)
Summary_weekday_with_count$day <- factor(Summary_weekday_with_count$day,
levels = c("Monday", "Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"))