Wie wird das Pareto.chart-Plot aus dem qcc-Paket mit ggplot2 reproduziert?

Question

Ich habe die Pareto.chart-Funktion aus dem qcc-Paket in R verwendet und ich mag es wirklich. Jetzt möchte ich alle meine Grafiken portieren, um stattdessen das ggplot2-Paket zu verwenden. Allerdings ist mein Wissen über ggplot2 trotz der ausgezeichneten Dokumentation sehr begrenzt, so dass ich nicht alle Details herausfinden kann. Grundsätzlich möchte ich ein Grundstück suchen, wie dieses

aber mit dem ggplot2 Paket stattdessen gemacht. Der Code für die Erstellung der Grafik ist unten aufgeführt:

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))) 

Hat jemand eine Lösung dafür? Das Pareto-Diagramm wurde vor here diskutiert, aber das Ergebnis sieht nicht ähnlich wie ich es will.

Answer 1

Hier gehen Sie:

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))