调整x轴的标签在pareto.char（） - 包QCC

Question

如何调整x轴的标签在pareto.chat（），例如：

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

我想要的是使标签“联系号码”，“价格代码”，...

Answer 1

x = rpois(10, 10) 
names(x) = paste0("x", 1:length(x)) 
par(cex.axis = 0.4) 
pareto.chart(x)