# NOT RUN {
plot_bar(dat = lendingclub, x = "grade")
plot_bar(dat = lendingclub, x = "grade", y= "dti",
g_x = 5,g_y = 3,
position = 'dodge', dodge_width = 0.9,
type = "each_pct_x",
reverse = FALSE,
cut_bin = 'equal_depth',
fill_colors = c(love_color(type = "line"),
love_color(type = "line")))
# }
Run the code above in your browser using DataLab