[DATA&R]휘발유 가격 재역전, 주유소 평균 판매가격은?(R시각화)

안녕하세요,

몇일 전 정부에서 경유 유류세 인하율을 휘발유만큼 낮추는 방안을 검토하고 있다는 기사가 보도되었습니다. 이번 포스팅에서는 경유와 휘발유 가격 추세를 살펴보겠습니다.

휘발유>경유, 가격 재역전…경유도 유류세 인하폭 축소 검토

데이터 준비 : KOSIS

우선 KOSIS에서 자료를 찾아보았습니다. 이번 포스팅과 직접적인 관련이 있는 자료는 주유소 평균 판매가격입니다. 주유소 평균 판매가격 자료는 월별로 2000년 1월부터 2022년 12월까지의 자료가 제공되고 있습니다.

KOSIS

아래와 같은 형태의 데이터를 다운받는 경우 분석을 위해서 가공이 필요해서 번거로움이 추가됩니다.

@KOSIS

그래서 저는 KOSIS의 행렬전환 기능을 활용하였습니다. 기존에는 표측에 제품이, 표두에 시점이 입력되어 있었는데 표측에 제품별, 시점이 오도록 수정하였습니다.

위의 설정을 적용하니 우리가 분석할 때 필요한 형태의 데이터셋으로 수정되었습니다. 

다음으로 에너지 가격(OECD회원국)를 준비하였습니다. OECD회원국의 에너지 가격을 비교할 수 있는데 연 단위자료로 2008년부터 2021년까지의 데이터를 제공합니다.

KOSIS

원하는 국가, 에너지 항목, 분석기간을 설정한 후 행렬 전환 기능을 활용해서 아래와 같은 형태의 표를 얻었습니다. 이후 다운로드를 하여 데이터셋을 준비합니다.

R로 데이터를 불러와서 시각화 하기 전에 엑셀로 데이터를 정리(국가, 제품별 변수 빈칸 채우기, 시점 변수 유형 수정 등)하였습니다.

데이터 시각화 by R

주유소 평균 판매가격

우선 국내 주유소 보통휘발유와 자동차용 경유 평균 판매가격을 살펴보겠습니다. 2000년대 초반에는 보통휘발유와 자동차용 경유의 평균 가격 차이가 상당하였으나 2000년대 후반에 그 차이가 급격하게 감소하였음을 알 수 있습니다. 그리고 2010년 이후에는 보통휘발유의 가격이 자동차용 경유의 가격보다 조금 높은 것을 확인할 수 있습니다. 그리고 전체적으로 변동의 추세가 유사해 보입니다. 그러던 중 2021년 하반기부터 보통휘발유의 가격이 큰폭으로 하락하면서 자동차용 경유가 보통 휘발유보다 높게 형성되었습니다.

 

library(ggplot2)
library(readxl)
library(showtext)
showtext_auto()
local<-read_excel("파일경로//주유소_평균_판매가격_20230311232436.xlsx")

head(local)

ggplot(local, aes(x=시점, y=데이터, color=제품별, group=제품별, linetype=제품별))+
  geom_line(size=0.4) +
  xlab("날짜(월)") + ylab("판매가격(원)") +
  theme_classic() +
  theme(legend.position="bottom", legend.title=element_blank(), axis.title = element_text(face = "bold", size = 12), axis.text.x=element_text(size=10, face='bold'), axis.text.y=element_text(size=11, face='bold'), legend.text=element_text(size=12))

국가별 무연고급휘발유 가격 추세 : 2008-2021

다음으로 국가별 무연고급휘발유 가격 추세를 살펴보겠습니다. 대한민국, 독일, 미국, 영국, 일본의 가격 추세를 시각화하였습니다. 국제유가의 영향을 많이 받기 때문에 무연고급휘발유 가격의 변동 추세는 유사하게 나타납니다. 2010년까지 한국과 일본의 무연고급휘발유 가격은 비슷했으나 2010년 이후 그 가격의 차이가 상당한 것으로 나타났습니다. 급격한 변동에 의아함을 느끼고 KOSIS 주석정보를 확인하였더니 일본은 무연보통휘발유 가격이라고 되어있었습니다. 데이터를 비판적으로 살펴보는 습관이 필요합니다.

int<-read_excel("파일 경로//에너지_가격_OECD회원국__20230311232538.xlsx")

head(int)

int$year<-as.numeric(int$시점)

ggplot(int, aes(x=year, y=`무연고급휘발유(95 RON) (ℓ)`, color=국가별, group=국가별, linetype=국가별))+
  geom_line(size=0.4) +
  xlab("연도") + ylab("판매가격(달러)") +
  theme_classic() +
  theme(legend.position="bottom", legend.title=element_blank(), axis.title = element_text(face = "bold", size = 12), axis.text.x=element_text(size=10, face='bold'), axis.text.y=element_text(size=11, face='bold'), legend.text=element_text(size=12))

이상으로 지난 20년간의 주유소 평균 판매가격과 국가별 무연고급휘발유 추세를 시각화하여 살펴보았습니다.

 

궁금하신 점은 댓글로 남겨주세요:)

감사합니다!

 

☆ 제 코드는 정답이 아니며 틀린 부분이 있을 수 있으니 주의하여 활용하시기 바랍니다.