如何在QCC Xbar图中显示日期

Question

我有一个正在运行的qcc图，但我想在控制图中显示这些值的真实日期，而不是显示值的索引号

我在下面看到了这篇文章，但我一直无法将它应用到我的代码中。Adding line to plot in qcc Control Chart

以下是我的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更改标签的文本方向(请注意，由于空间有限，我使用xlab = ""删除了x轴标签)：

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

​

​