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

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

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)

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

我检查了文档，在qicharts2中没有发现任何内容。在qic（不再支持）中，我发现：

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

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

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

这只是我的家庭作业的一个加号，一点也不必要，我只是想知道热做它，所以快速修复是非常受欢迎的。谢谢。

我想你最好的选择是

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

加载包并创建虚拟数据---使用sin函数

library(ggplot2)

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

geom_hline

这是允许您绘制水平CL限制的内容

geom_文本

将标签添加到上面提到的已违反的点，并使用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)

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

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

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)