R/plot_my_debt.R

In meerawhy/financeTracker:

#' Plots my debt
#' @import dplyr
#' @importFrom lubridate ymd
#' @importFrom magrittr %>%
#' @importFrom timeStampede get_year_from_timestamp
#' @import ggplot2
#' @export
#'
plot_my_debt <-
        function(starting_year = 2018) {
                require(dplyr)
                cc_data <- get_cc_data_as_tmp_file()
                spending_df <- trend_my_cc_debt(cc_data$SPEND)
                spending_df_to_chart <-
                        spending_df %>%
                        mutate(day_number = format(lubridate::ymd(date), "%j")) %>%
                        mutate(day_number = as.integer(ifelse(as.integer(timeStampede::get_year_from_timestamp(date)) - starting_year == 0,
                                                              day_number,
                                                              (as.integer(timeStampede::get_year_from_timestamp(date)) - starting_year)*365 + as.integer(day_number))
                        ))

                ggplot(spending_df_to_chart, aes(day_number, rowsum)) + geom_smooth() +
                        geom_point() + geom_text(aes(label = date), size = 3, hjust = .1, vjust = -.2)
        }