gccplot2を使ってqccパッケージからpareto.chartプロットを再現するには？

Question

私はRのqccパッケージからpareto.chart関数を使用しています。私は本当にそれが好きです。今では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))) 

誰にでも解決策がありますか？パレート図はhereの前に議論されていますが、結果は私が欲しいものに似ていません。

Answer 1

ここに行く：、

library(ggplot2) 

counts <- c(80, 27, 66, 94, 33) 
defects <- c("price code", "schedule date", "supplier code", "contact num.", "part num.") 

dat <- data.frame(
    count = counts, 
    defect = defects, 
    stringsAsFactors=FALSE 
) 

dat <- dat[order(dat$count, decreasing=TRUE), ] 
dat$defect <- factor(dat$defect, levels=dat$defect) 
dat$cum <- cumsum(dat$count) 
dat 

ggplot(dat, aes(x=defect)) + 
    geom_bar(aes(y=count), fill="blue", stat="identity") + 
    geom_point(aes(y=cum)) + 
    geom_path(aes(y=cum, group=1))