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

Question

如何在 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")

我想要的是缩小标签“联系人号码。”，“价格代码”，......

Answer 1

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