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

輸出：