pie(i_pie, labels =['0','1'], autopct = '%1.1f%%', startangle = 90 ,colors = ['lightsteelblue', 'navajowhite'], shadow = True ) ax[1].set_title('History Default count is 0', fontsize = 10) fig.suptitle('Distrib
df_out[["col"]] <- sapply(df_out[["col"]], function(x) blendcolors(c(x, "black"))) df_out[["fontsize"]] <- terms_fontsize if (length(df_out[["fontsize"]]) == 0 || any(is.infinite(df_out[["fontsize"]])) || any(is.na(df_out[["fontsize"]]))) { print(df)...