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

문제는 멋쟁이천재사자님의 내용을 참고하였습니다.

https://it-freelancer.tistory.com/298

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

문제

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)과 함께 나타나도록 시각화하라 

 

 

풀이

6-1

1월 은값 : 41.1

9월 은값 : 55.1

 

은값 상승율 = (55.1-41.1)/41.1*100(%) = 34.06% 상승

 

6-2

이동평균은 TTR library의 runMean 함수를 이용해서 구했고,

 

시각화는 plot과 ggplot을 이용해서 각각그려보았다.

 

실제 시험때는 조금 더 다듬어서 제출해야한다.

 

 

library(TTR)
prices <- c(41.1, 46.0, 43.2, 55.1, 31.4, 52.0, 60.1, 44.9, 55.1)
months <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep")
df <- data.frame(month = months, price = prices)


ma<-runMean(df$price,n = 3)

month2<-c(3:9)
df2 <- data.frame(average = ma[-c(1,2)], month =month2)


plot(df2$month,df2$average,type="l")

library(ggplot2)
ggplot()+
  geom_line(data= df2, aes(x=month,y=average))