[Adp 실기 기출 풀이] 22 회 P관리도

9월 25일 26회 실기 시험을 준비하고 있습니다.

22회 기출 문제 중 통계분석 관리도 문제를 재구성하여 풀어보았습니다.

 

1. 문제

다음은 Lot별 200개에 대한 불량 제품 수량 데이터(Lot번호, 불량제품수)이다

 

 

데이터 x은 아래 scipt 를 실행하여 생성하시오.

library(dplyr)
set.seed(3312)
round(rnorm(40, mean = 10, sd = 4)) %>%
  data.frame(errors=.) %>%
  mutate(lot=row_number()) %>%
  mutate(errors=ifelse(errors<0,0,errors)) %>% 
  select(2,1) -> x

1. 주어진 데이터 x를 이용하여 CL UCL LCL 을 각각 구하시오

2. 주어진 데이터 x에 대한 불량률 관리도(P관리도)를 시각화하라

 

 

2. 풀이

 

부분군의 크기가 200개로 일정하므로 요철이 생기지 않는다.

CL UCL LCL (LCL 은 0보다 작으면 의미가 없다) 을 먼저 구하자.

 

summary(x)
plot(x)
sum(x$errors) # 총부적합품수 = 387
pbar <- sum(x$errors) / (200 * 40)
sigma <- sqrt(pbar *(1-pbar) / 200)

CL <- pbar
UCL <- pbar + 3 * sigma
LCL <- pbar - 3 * sigma
UCL;CL;LCL

[1] 0.09388949
[1] 0.048375
[1] 0.002860511

 

CL UCL LCL 은 각각 0.094 0.048 0.003 임

 

x %>% mutate(r=(errors/200))  %>%
 ggplot(aes(lot, r)) +
 geom_line(size=1, color = 'blue') +
 geom_line(aes(y = UCL),col = 'red') + # 관리상한선
 geom_line(aes(y = CL),col = 'red') + # 관리중심선
 geom_line(aes(y = LCL),col = 'red') # 관리하한선

시각화를 해보면 다음과 같다

 

 

3. 문제 생성에 참고한 자료들

 

 

출처 : https://ysjang0926.github.io/data/2021/09/22/ADP-22-comments/

 

 

 

4. Study 이력

 

문제에서 사용할 데이터셋 생성 스크립트를 수정했습니다.

 

최초 버전

 

library(dplyr)
set.seed(3312)
round(rnorm(40, mean = 10, sd = 4)) %>%
  data.frame() %>%
  mutate(lot=row_number()) %>%
  select(2,1) -> x
colnames(x) <- c("lot","errors")
x %>% mutate(errors=ifelse(errors<0,0,errors)) -> x

 

2022-09-13 수정 버전

 

library(dplyr)
set.seed(3312)
round(rnorm(40, mean = 10, sd = 4)) %>%
  data.frame(errors=.) %>%
  mutate(lot=row_number()) %>%
  mutate(errors=ifelse(errors<0,0,errors)) %>% 
  select(2,1) -> x

 

 

5. 참고한 자료들

 

https://ysjang0926.github.io/data/2021/09/22/ADP-22-comments/

https://lovelydiary.tistory.com/381

https://terms.naver.com/entry.naver?docId=413569&cid=42327&categoryId=42327

https://blog.naver.com/easternsun/220075418507

https://youtu.be/7bCmGglrmrk?t=795 

https://youtu.be/7bCmGglrmrk?list=LL&t=1017