Load libraries
Get data for the past approximately 13 months
start_date <- today() - months(13)
my_data <-
aws_billing(date_start = start_date)
Simple plot of RDS spend through time
rds_by_day <-
my_data %>%
filter(
id == "blended",
service == "Amazon Relational Database Service"
) %>%
mutate(date = as.Date(date))
ggplot(rds_by_day, aes(date, cost)) +
geom_col() +
scale_x_date(date_breaks = "10 days", date_labels = "%b %d") +
theme_grey(base_size = 16)
Plot of all types with cost greater than zero though time