Как воспроизвести график pareto.chart из пакета qcc с помощью ggplot2?

Я использую функцию pareto.chart из пакета qcc в R, и она мне очень нравится. Теперь я хотел бы перенести всю свою графику, чтобы вместо этого использовать пакет ggplot2. Однако мои знания о ggplot2 очень ограничены, несмотря на отличную документацию, поэтому я не могу разобраться во всех деталях. По сути, я хочу, чтобы график выглядел так

, но вместо этого был создан с помощью пакета ggplot2. Код для создания сюжета указан ниже :

    library(qcc)
    defect <- c(80, 27, 66, 94, 33)
    names(defect) <- c("price code", "schedule date", "supplier code", "contact num.", "part num.")
    pareto.chart(defect, ylab = "Error frequency", col=heat.colors(length(defect)))

. Есть ли у кого-нибудь решение для этого? Диаграмма Парето обсуждалась ранее здесь , но результат не похож на то, что я хочу.