# Databrowsers $<-$ c$("$Chrome$",$ "Safari", "Internet Explorer", "Firefox", "Other"$)$users $<-$ c$(94,50,40,10,6)$# Convert to percentagespercentages $<-$ round$($users $/$ sum$($users$)*100)$# Label the pie chart with percentageslabels $<-$ paste$($browsers$,$ percentages, $"\%",$ sep $="")$# Create the pie chartpie$($users$,$ labels $=$ labels, main $=$ "Internet Browser Preferences"$)$