如何在R中的图表中添加UCL和LCL线

Question

我正在使用qicharts2软件包绘制随机检查的质量控制图。 我能够正确绘制x条形图，它甚至显示了中心线（尽管没有适当的标记），但是，我无法添加上下限，以检查哪些点超出该范围。 QC部门将LCL / UCL定义为常量，因此我只将这些数字分配给了变量。 到目前为止，这是我想出的：

qic (y,
     chart='xbar',
     title="Control Graph",
     ylab="Average",
     xlab="Day",
     subtitle="X-Bar"
     )
lcl <- (10.5-(3*0.18)/5)
ucl <- (10.5+(3*0.18)/5)

我尝试添加

target = lcl, ucl

到指令的末尾（我很确定这是错误的和粗略的），但是图形消失了，但是，如果我仅添加ucl或lcl，它会完美显示它。

我检查了文档，但在qicharts2中什么也没找到。在qic中（不再受支持），我发现：

  

标准化：   逻辑值（如果为TRUE）将创建标准化控件   图表，其中点以标准偏差单位以及   中心线为零，控制极限为3和-3。仅相关   用于P，U和Xbar图表。

这正是我要寻找的，但是，如果我尝试使用它，只会得到以下错误：

Error in qic(...  :    unused argument (standardised = TRUE)

这只是我的家庭作业的一个加分，而根本不是必需的，我只是想知道这样做很热，所以非常欢迎快速修复。谢谢。

Answer 1

我认为您最好的选择是ggplot。

添加指定的LCL + UCL的用法示例

使用sin函数加载程序包并创建伪数据

library(ggplot2)

df <- data.frame(x=seq(0,360,20))
df$y <- sin(df$x*pi/180)

绘制图形。

sp <- ggplot(data=df,aes(x, y)) + geom_line()

添加UCL + LCL和标签

sp + geom_hline(yintercept=.5, linetype="dashed", color = "red") + 
  geom_hline(yintercept=-.5, linetype="dashed", color = "blue") +
  ggtitle("Sin Graph") + ylab("sin(x)") + xlab("Degrees") 

  

geom_hline

这就是您绘制水平CL极限的原因。

  

geom_text

为上面提到的违规点添加标签，要使用LCL + UCL对其进行可视化。

sp + geom_hline(yintercept=.95, linetype="dashed", color = "red") + 
  geom_hline(yintercept=-.95, linetype="dashed", color = "blue") +
  ggtitle("Sin Graph") + ylab("sin(x)") + xlab("Degrees") +
  geom_text(aes(x, y, label = paste(x," deg")), data = df[abs(df$y)>0.95,],angle=30,size=3)