我一直在使用 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但结果看起来与我想要的并不相似。
干得好:
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))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)