In MichaelGurkov/LearningMaterials: What the Package Does (One Line, Title Case)

library(tidyverse)

library(readxl)

library(xts)

export_data = read_xlsx(paste0("C:\\Users\\Home",
                               "\\OneDrive - Bank Of Israel\\Data",
                               "\\IMF\\Export-Import",
                               "\\Exports_to_Counterpart_Countries.xlsx"),
                        skip = 5) %>% 
  rename("country" = 1) %>% 
  pivot_longer(-country,names_to = "date") %>% 
  mutate(date = as.yearmon(date, "%YM%m"))

export_data %>% 
  filter(date == max(date)) %>% 
  slice_max(order_by = value,n = 30) %>% 
  pull(country)

MichaelGurkov/LearningMaterials documentation built on July 9, 2022, 5:17 p.m.