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