r - 如何在 QCC Xbar 图表中显示日期

Question

我有正在工作的 qcc 图表，但我想在控制图中显示值的真实日期，而不是显示值索引号

我遇到了下面的帖子，但我无法将它应用到我的代码中。 在 qcc 控制图中添加线以绘制

以下是我的 R QCC 代码：

install.packages("qcc")
install.packages("ggQC")    
library(qcc)
library(ggQC)


date= seq(as.Date("2000/1/1"), by = "month", length.out = 20)
values = c( 
  2.92,    3.16,    2.88,    2.90,    2.92,
  2.94,    2.96,    2.98,    3.02,    2.67,
  3.09,    3.07,    3.04,    3.06,    3.05,
  3.03,    3.07,    2.91,    3.07,    3.30
)

exampl_data <- data.frame(ScrewID , values)
str(exampl_data)

qcc(exampl_data$values, type = "xbar.one", plot = True)

我希望 qcc 图表的 x 轴以“jan-2019”/mmyy 格式显示日期。

谢谢

Answer 1

labels通过提供参数，可以将组标签添加到 qcc 图。

由于您没有分享 的内容ScrewID，因此我将date其用作第一个观察结果：

> exampl_data <- data.frame(date , values)
> exampl_data
         date values
1  2000-01-01   2.92
2  2000-02-01   3.16
3  ...

下面的代码产生下面的图：

qcc(exampl_data$values,
  labels = format(exampl_data$date, "%b-%Y"),
  type = "xbar.one")

（可选）用于axes.las更改标签的文本方向（请注意，由于空间有限，我用 删除了 x 轴标签xlab = ""）：

qcc(exampl_data$values,
  labels = format(exampl_data$date, "%b-%Y"),
  type = "xbar.one",
  axes.las = 2,
  xlab = "")