ledger_graph: Graph your net worth

Description Usage Arguments Value Examples

Description

Helper function to graph net worth over time

Usage

1
2
ledger_graph(data, start = NA, end = Sys.Date(), separate = FALSE,
  aggregate = "day", cumulative = FALSE)

Arguments

data

the data to graph

start

the start date (e.g. "2017-01-01"), defaults to the start of the series

end

the end date (e.g. "2017-12-31"), defaults to today

Value

a "ggplot2" graph object

Examples

1
2
3
4
5
6
7
demo <- system.file("extdata", "demo.ledger", package="ledgerReports")
## plot net worth over time:
ledge <- read_ledger("'^assets' '^liab' -X $", file = demo)
ledger_graph(ledge, end = "2011-12-02", cumulative = TRUE)
## plot assets vs expenses separately:
ledge <- read_ledger("'^assets' '^exp' -X $", file = demo)
ledger_graph(ledge, separate = TRUE, end="2011-12-02")

jabranham/ledgerReports documentation built on May 7, 2019, 10:39 a.m.