Commission chart — comm_chart • rsims

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)
}