ggplot$($data$\_$filtered$\_$vis, aes$($x $=$ data$\_$filtered$\_$vis$credit.rating, fill $=$ functionary$))+$ geom$\_$bar$($stat$=$"count", position $=$ "dodge"$)+$ scale$\_$fill$\_$manual$($values $=$ c$("$red$",$"grey"$))+$ labs$($x $=$ "Credit Rating", y $=$ "Count", fill $=$ "Functionary"$)+$ ggtitle$("$Credit Rating with Functionary Feature"$)$