[R강의] 166. 개월에 따른 시계열 그래프 그리기 (ggseasonplot)

1. 패키지 설치하고 불러오기

#패키지 설치

install.packages('forecast')
install.packages('readxl')

#패키지 불러오기

library('forecast')
library('readxl')

2. 데이터 불러오기

아래 엑셀 데이터를 불러올 겁니다. 다운로드 하시고 원하는 경로에 넣어주세요. 

 

year_month_variable.xlsx

0.01MB

엑셀 데이터는 아래와 같이 불러옵니다. 

df <- read_excel("여러분의_경로/year_month_variable.xlsx")
df=as.data.frame(df)

데이터는 아래와 같습니다. 

> head(df)
        date income
1 2020-01-01      1
2 2020-02-01      6
3 2020-03-01      6
4 2020-04-01      2
5 2020-05-01      3
6 2020-06-01      5

2020년 부터 월별 매출액입니다. 

3. 데이터 변환

ts 데이터 형태로 바꿔줍시다. 

tsr=ts(df['income'],start=2020,frequency=12)

 

4. 그래프 그리기

 

ggseasonplot(tsr, polar = TRUE) +
  ylab("백만원") +
  xlab("월") +
  ggtitle("매출")