在 pareto.char() - 包 qcc 中调整 x 轴的标签

resize the labels of x axis in a pareto.char() - package qcc

如何在pareto.chat()中调整x轴的标签,例如:

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

我想要的是缩小标签 "contact num."、"price code"、...

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