在qicharts上贴上x轴

Question

我制作了如下所示的个人控制图。数据集有一个名为date的变量，它是R格式的YMD。我想让x轴在每个YMD上显示一个标识特定YMD的标签。

这里是我当前生成个人控制图的代码：qic（data $ records，chart = c（“i”），x.format =“％Y-％m-％d”）。

Individuals Control Chart

谢谢！

Answer 1

您需要指定x和xlab参数。下面是使用更新qicharts2包的示例：

library(qicharts2) 

# Build data frame for example 
df <- data.frame(x = rep(1:24, 4), 
      ReportMonth = (rep(seq(as.Date('2014-1-1'), 
            length.out = 24, 
            by = 'month'), 
           4)), 
      num = rbinom(4 * 24, 100, 0.5), 
      denom = round(runif(4 * 24, 90, 110)), 
      grp1 = rep(c('g', 'h'), each = 48), 
      grp2 = rep(c('A', 'B'), each = 24)) 

#now plot an 'i' chart : 
    qic(
    x= ReportMonth, 
    y= num, 
    # n= denom, 
    data=df, 
    chart= "i", 
    x.format="%Y-%m-%d", 
    x.angle = 90, 
    y.expand = 40, # where to start y axis from 
    xlab = "Month", 
    ylab= "Value") 

输出：