[Adp 실기 기출 풀이] 26회 - Silver 9개월 가격 시각화

지난 5월 21일 25회 ADP 필기를 합격했고, 9월 25일 첫 번째 실기를 보았습니다.
필기 유예 기간 끝날 때까지 도전할 계획이며, 11월 26일 27회 실기를 준비하고 있습니다.
제 기억과 다른 후기에서 확인한 정보를 이용해서 기출 문제를 재구성하여 풀어보려고 합니다.

1. 문제

1월 ~9월까지 9개월간의 국제 Silver 가격이 다음과 같다. 

	1월	2월	3월	4월	5월	6월	7월	8월	9월
가격	41.1	46.0	43.2	55.1	31.4	52.0	60.1	44.9	55.1

6-1. 1월 대비 9월의 은값 상승률을 소수점 2자리 반올림하여 구하라
6-2. Silver 가격의 추이를 이동평균(3N)과 함께 나타나도록 시각화하라 

 

2. 제출 답안

6.1 가격상승율

1월대비 9월의 가격상승율은 34.06% 임

 

6-2 시각화

x <- c(41.1,46.0,43.2,55.1,31.4,52.0,60.1,44.9,55.1)
x_ts <- ts(x,start=1,frequency = 12)
library(forecast)
ma3 <- ma(x_ts, 3, centre = FALSE)
plot(x_ts)
lines(ma3,col="red")

3. 시험 시간 108번뇌

상승률?

이거 초등학교 산수 문제 아닌가? 무슨 함정이 있는 것일까?

처음에는 (9월-1월)/1월로 구하려고 했고 시킨대로 소수점 2자리 반올림하면 0.34입니다.

왠지 너무 짧은거 같아서 곱하기 100 한 다음에 소수점 2자리 반올림해서 34.06%로 바꾸었습니다.

 

이동평균 3N 이면 3개월 이동평균을 의미하는 것이겠지요?

plot 으로 그려봐도 plot.ts 로 그려봐도 x 축에 1.0, 1.1, ...아 이건 좀 아닌데...

시계열로 변환한 x_ts 찍어보면 Jan Feb... 예쁘게 월이름이 나오는데 그래프에서는 이상하게 나옴.

ts(x,start=1,frequency = 12) 이거 방식을 좀 바꿔서 해보면 될것 같은데 다른 문제 다 풀고 시간이 남으면 해보자.

 

forecast 패키지 이용해서 ma(x_ts, 3)로 3개월 이동평균 찍어봄

3번째 부터 즉 NA, NA, 숫자, 숫자... 이런식으로 나올줄 알았는데 NA,숫자,숫자....NA 이렇게 나옴.

뭐지?

?ma 찍어서 함수 설명을 다시 보니 ma(x, order, centre = TRUE)

centre = FALSE 로 바꿔보자.

뭔가 뜻대로 안됨. 일단 통과.

 

이동 평균선 겹쳐그리기. 이거 다항회귀식 1,2,3차 겹쳐그리기 연습해본 경험으로 lines 함수 써서 그림. 허접하지만 만족!

 

 

4. Study

#x축에 소수 대신 월표시로 바꾸기
x <- c(41.1,46.0,43.2,55.1,31.4,52.0,60.1,44.9,55.1)

# start=2 로 하면 Feb 시작일줄 알았는데 그래도 Jan 시작
x_ts <- ts(x,start=2,frequency = 12)

plot(x)
#월명이 변수가 아니고 colnames 또는 rownames 암튼 dimnames 라 그랬던 듯

#1. 레이블 이름을 칼럼화 해서 ... 모두 NULL 
dimnames(x_ts)
colnames(x_ts)
names(x_ts)
str(x_ts)

2. 데이터 프레임으로변환해서
x_ts
data.frame(x_ts)

3. 기타 어떤 방법
# start 를 제대로 주어야 함 : 소숫점 -> 2000.1 처럼 연도.월
x_ts <- ts(x,start=c(2000,2),frequency = 12)
x_ts
plot(x_ts)

 

5. 참고할 자료

 

1. 미디멀리즘님 블로그

출처 : https://medimalism.tistory.com/2

 

 

2. amaruak00님 블로그

출처 : https://amaruak00.github.io/2022/09/26/adp26th.html