Commission chart

comm_chart(results_df, title, fill_scale, colour_scale)

Arguments

results_df

Results dataframe from rsims backtest

title

Plot title

fill_scale

ggplot2 fill scale (tickers only)

colour_scale

ggplot2 colour scale (tickers only)

Value

Plot of commission cost by ticker and date

Examples

if (FALSE) {
tickers = unique(prices$ticker)
my_cols = portfolio_colours(length(tickers))
col_scale <- make_col_scale(my_cols)
fill_scale <- make_fill_scale(my_cols)
results <- cash_backtest(prices, weights)
comm_chart(results, "Commission Cost", fill_scale, col_scale)
}