akshat3096

install.packages("lubridate")

library(lubridate)

#make endDate in a date-time variable POSIXct using lubridate with Indian time zone
df$endDate <-ymd_hms(df$endDate,tz="UTC")

#new features 
df$month<-format(df$endDate,"%m")
df$year<-format(df$endDate,"%Y")

akshat3096

str(df)

akshat3096

table(df$type)

akshat3096

library(dplyr)
joined_data <- left_join(data,fc,by="center_id")

akshat3096

ggplot(data = data) +
  aes(x = checkout_price, y = base_price) +
  geom_point(color = "#1f9e89") +
  theme_minimal()

akshat3096

ggplot(data = data) +
  aes(x = num_orders, y = num_orders) +
  geom_violin(scale = "area", adjust = 1, fill = "#0c4c8a") +
  theme_minimal()

akshat3096

install.packages("ggplot2")
library(ggplot2)

ggplot(data = data) +
  aes(x = num_orders) +
  geom_density(adjust = 1, fill = "#0c4c8a") +
  theme_minimal()

akshat3096

dist+transition_states(month, wrap = FALSE) +
shadow_mark()

akshat3096

df %>%
  filter(type == 'HKQuantityTypeIdentifierDistanceWalkingRunning') %>%
  group_by(year,month) %>%
  summarize(distance=sum(value)) %>%
  print (n=100) %>%
  ggplot(aes(x=month, y=distance, fill=year)) + 
  geom_bar(position='dodge', stat='identity') +
  scale_y_continuous(labels = scales::comma) +
  theme(panel.grid.major = element_blank())

akshat3096

flight+transition_states(month, wrap = FALSE) +
shadow_mark()