오늘 WTI원유 가격이 소폭하락했다. 관련 데이터를 가지고 선그래프를 그렸다.
ggplot 코드 작성하기
dt = read_csv('./data_clc1.csv', show_col_types = F) |>
clean_names() |>
mutate(date = mdy(date))
ggplot(dt, aes(x = date, y = price)) +
geom_area(fill = "#E9EFF4", colour = "#84ACD1", size = 0.7) +
coord_cartesian(ylim = c(50, 100) ) +
labs(title = "Crude Oil WTI (CLc1)",
subtitle = "Crude Oil WTI moved -4.32% today") +
theme_bw(base_family = "Pretendard") +
theme(plot.title = element_text(family = "Pretendard ExtraBold", size = 18),
axis.title = element_blank(),
axis.text = element_text(family = "Pretendard Bold", size = 12)) # Pretendard