How do I fix this data set to flip so the incomes are on the bottom and coupon redemption $(0,200,400,600)$ are on the side? And can I change the colors?Coupon Redemption Count by Top $10$ Incomes

Total coupon redemption for each income level

demographics $\%>\%$

inner$\_$join$($coupon$\_$redemptions$)\%>\%$

mutate$($income $=$ fct$\_$lump$\_$n$($fct$\_$infreq$($income$),$ n $=10,$ other$\_$level $=$ "Others"$),$

Legend $=$ fct$\_$other$($income$,$ keep $=$ "Others", other$\_$level $=$ "Top $10$ Incomes"$))\%>\%$

ggplot$($aes$($income$,$ fill $=$ Legend$))+$

geom$\_$bar$()+$

coord$\_$flip$()+$

labs$($x $=$ "Coupon Redemption Count",

y $=$ "Income Range",

subtitle $=$ "Total coupon redemption for each income level"$)+$

ggtitle$("$Coupon Redemption Count by Top $10$ Incomes"$)$