install.packages
(
'qcc'
)
library
(qcc)
defect <-
c
(27, 789, 9, 65, 12, 109, 30, 15, 45, 621)
names
(defect) <-
c
(
"Too noisy"
,
"Overpriced"
,
"Food not fresh"
,
"Food is tasteless"
,
"Unfriendly staff"
,
"Wait time"
,
"Not clean"
,
"Food is too salty"
,
"No atmosphere"
,
"Small portions"
)
pareto.chart
(defect, xlab =
"Categories"
,
ylab=
"Frequency"
,
col=
heat.colors
(
length
(defect)),
cumperc =
seq
(0, 100, by = 20),
ylab2 =
"Cumulative Percentage"
,
main =
"Complaints of different customers"
)