Bellabeat’s Visualization

##Setting up the envirnonment {r} library("tidyverse") install.packages("here") install.packages("skimr") install.packages("janitor") library("here") library("skimr") library("janitor")

##Placing the tables {r} avg_steps<-read_csv("/cloud/project/avg_steps.csv") avg_steps_hour<-read_csv("/cloud/project/Supabase Snippet Hourly Step Totals.csv") ##Mini Analysis {r} promedio<-mean(avg_steps$avg)

##Visualization 1: Average step by user {r} ggplot(data=avg_steps)+ geom_point(mapping = aes(x=id, y=avg))+ geom_hline(yintercept = promedio, color= "red")+ theme(axis.title.x = element_blank(), axis.text.x = element_blank(), axis.ticks.x = element_blank())+ labs(title = "Average Steps by User", y="Average Steps")

##Visualization 2: Average steps by hour {r} avg_steps_hour<-read_csv("/cloud/project/Supabase Snippet Hourly Step Totals.csv") ggplot(data=avg_steps_hour)+ geom_line(mapping=aes(x=hour, y=avg_steps))+ labs(title="Average Steps by Hour", x="Hour", y="Average Steps")