Take the assignment from week three, add at least twice as much data to the sets. Note how this impacted the results from the previous week. Be sure to have a visualization to show the initial results and the new results. Be sure to explain why the results are different or similar from last week.

This is the data from my Old Assignment and the code in R$.$ Can you please add at least twice as much data to the sets and modify the code for R and create the visualization to show the initial results and the new results.

$1.$ Innovative Visualization:

# Doughnut Chart for Market Share

library$($ggplot$2)$

# Sample Data

market$\_$share$\_$data $<-$ data.frame$($

Brand $=$ c$("$Apple$",$ "Samsung", "Google"$),$

Market$\_$Share $=$ c$(20\mathrm{.}1,19\mathrm{.}4,12\mathrm{.}5)$

$)$

# Create Doughnut Chart

ggplot$($market$\_$share$\_$data, aes$($x $="",$ y $=$ Market$\_$Share, fill $=$ Brand$))+$

geom$\_$bar$($width $=1,$ stat $=$ "identity"$)+$

coord$\_$polar$("$y$",$ start $=0)+$

theme$\_$void$()+$

labs$($title $=$ "Smartphone Market Share"$)$

$2.$ Useful Visualization:

# Grouped Bar Chart for Customer Satisfaction

library$($ggplot$2)$

# Sample Data

satisfaction$\_$data $<-$ data.frame$($

Brand $=$ c$("$Apple$",$ "Samsung", "Google"$),$

Customer$\_$Satisfaction $=$ c$(8\mathrm{.}1,8\mathrm{.}0,7\mathrm{.}1)$

$)$

# Create Grouped Bar Chart

ggplot$($satisfaction$\_$data, aes$($x $=$ Brand, y $=$ Customer$\_$Satisfaction, fill $=$ Brand$))+$

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

theme$\_$minimal$()+$

labs$($title $=$ "Customer Satisfaction Ratings",

x $=$ "Brand", y $=$ "Customer Satisfaction"$)$

$3.$ Aesthetic Visualization:

# Combined Plot for Market Share and Customer Satisfaction

library$($ggplot$2)$

# Sample Data

combined$\_$data $<-$ data.frame$($

Brand $=$ c$("$Apple$",$ "Samsung", "Google"$),$

Market$\_$Share $=$ c$(20\mathrm{.}1,19\mathrm{.}4,12\mathrm{.}5),$

Customer$\_$Satisfaction $=$ c$(8\mathrm{.}1,8\mathrm{.}0,7\mathrm{.}1)$

$)$

# Create Combined Plot

p $<-$ ggplot$($combined$\_$data, aes$($x $=$ Market$\_$Share, y $=$ Customer$\_$Satisfaction, color $=$ Brand$))+$

geom$\_$point$($size $=4)+$

geom$\_$text$($aes$($label $=$ Brand$),$ vjust $=-0\mathrm{.}5)+$

theme$\_$minimal$()+$

labs$($title $=$ "Market Share vs$.$ Customer Satisfaction",

x $=$ "Market Share", y $=$ "Customer Satisfaction"$)$

UUuu