Chart exploring Ukraininan median salaries

Preparing data

df <- df |> mutate(
  salary=parse_number(data),
  year=parse_integer(str_sub(period, 1, 4)),
  month=parse_integer(str_sub(period, 6, 7)),
  date=ymd(str_glue("{year}-{month}-01"))
)

Looks like salaries are rising, but keep in mind - these are absolute numbers in UAH.

df |> ggplot(aes(x=date, y=salary)) +
  geom_line() + 
  geom_smooth(method = "loess", formula = y~x) +
  labs(title="Salary by month", x="Date", y="Salary (UAH)")