Как добавить линии UCL и LCL на график в R

Question

Я использую пакет qicharts2 для построения графика КК случайных проверок. Мне удалось правильно построить диаграмму x-bar, она даже показывает центральную линию (но без правильного тега), однако я не могу добавить нижний и верхний контрольные пределы, чтобы проверить, какие точки выходят за ее пределы. 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)