Please redo this problem, the code provided does not produce the bar plot required. The dataset provided in the answer is missing the percentages that are needed to produce the bar plot. Using R Markdown in RStudio : Create a bar plot using ggplot that shows ratings categories for the years

$2015-2022$ in the Customer Satisfaction Survery data attached.$\backslash$table$[[$Please rat...

:$,2020$ : $,2019$ : $,2017$ : $,2016$ : $,2015$ :$,2021!,2022$

Poor, $4\mathrm{.}3\%,3\%,2\%,2\mathrm{.}4\%,3\mathrm{.}5\%,6\mathrm{.}94\%,6\mathrm{.}82\%],[$Satisfactory

$,29\mathrm{.}7\%,24\mathrm{.}2\%,26\mathrm{.}4\%,29\mathrm{.}1\%,29\mathrm{.}7\%,27\mathrm{.}95\%,31\mathrm{.}43\%,[$Above Average,

$30\mathrm{.}2\%,29\mathrm{.}5\%,31\mathrm{.}5\%,33\mathrm{.}7\%,31\mathrm{.}2\%,26\mathrm{.}78\%,23\mathrm{.}5\%],[$Excellent

$,35\mathrm{.}5\%,42\mathrm{.}6\%,38\mathrm{.}6\%,34\mathrm{.}6\%,34\mathrm{.}4\%,36\mathrm{.}52\%,36\mathrm{.}86\%$ Step $2$

The $R$ studio code to perfrom Bar plot is$,$

install.packages$("$ggplot$2")$ # Only run this line if ggplot$2$ is not already installed

library$($ggplot$2)$

ratings$\_$data data.frame$($

Year $=$ rep$($c$("2015","2016","2017","2019","2020","2021","2022"),$ each $=5),$

Rating $=$ rep$($c$("$Very Poor", "Poor", "Satisfactory", "Above Average", "Excellent"$),$ times $=7),$

print$($ratings$\_$data$)$

ggplot$($ratings$\_$data, aes$($x $=$ Year, y $=$ Percentage, fill $=$ Rating$))$

geom $\_$ bar$($stat $=$ "identity", position $=$ "dodge"$)+$

labs$($title $=$ "Customer Satisfaction Ratings $(2015-2022)",$

x $=$ "Year",

y $=$ "Percentage $(\%)")+$

theme$\_$minimal$()+$

scale $\_$ fill $\_$ brewer$($palette $=$ "Set$3")$ # Option to apply a color palette Error in geom$\_$blank$()$:

$!$ Problem while computing aesthetics.

i Error occurred in the $1$st layer.

Caused by error:

object 'Percentage' not found

Backtrace:

base $($local$)($x$)$

ggplot$2$:::print.ggplot$($x$)$

ggplot$2$:::ggplot$\_$build.ggplot$($x$)$

ggplot$2$:::by$\_$layer$(...)$

ggplot$2($local$)$ f$($l $=$ layers$[[$i$]],$ d $=$ data$[[$i$]])$

l$compute$\_$aesthetics$($d$,$ plot$)$

ggplot$2($local$)$ compute$\_$aesthetics$(...,$ self $=$ self$)$