library(tidyverse)
library(janitor)
library(googlesheets4)
library(tools)


#Read google sheets data into R
kitten_weight_gain <- read_sheet('https://docs.google.com/spreadsheets/d/1x-Udhm5VkhSh0siWLtipbDZFAMs5Zp7TsTpnUlmz9Jg/edit?gid=0#gid=0')
                                                                                        

#names(kitten_weight_gain)



kitten_weight_gain <- clean_names(kitten_weight_gain)

tidy_kittens <- pivot_longer(kitten_weight_gain, cols = 3:5, names_to = "kitten_name", values_to = "weight_in_grams") 

tidy_kittens <- tidy_kittens %>% separate(col = 4, into = c("kitten_name", "sex"), sep = "_")

tidy_kittens$sex <- as.factor(tidy_kittens$sex)

tidy_kittens$scale <- as.factor(tidy_kittens$scale)

tidy_kittens$date <- as.Date(tidy_kittens$date, format = "%m/%d/%Y")

tidy_kittens$weight_in_grams <- as.numeric(tidy_kittens$weight_in_grams)

tidy_kittens$kitten_name <- tools::toTitleCase(tidy_kittens$kitten_name)

#head(tidy_kittens)


graphic_kittens <- ggplot(tidy_kittens, aes(x = date, y = weight_in_grams, color = kitten_name, shape = sex)) +
  geom_line() +
  geom_point() +
  labs(title = "Foster Kitten Weight Gain", subtitle = "Journey to adequate weight for neutering and adoption") +
  xlab(" ") +
  ylab("Weight in grams") +
  theme_minimal() +
  scale_x_date(date_breaks = "1 day", date_labels = "%b-%d")+
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  labs(color = "Which kitten?") +
  labs(shape = "Sex of kitten?") 
  


print(graphic_kittens)