Skip to content
This repository has been archived by the owner on Jul 30, 2021. It is now read-only.

chinhungtseng/taitratools

Folders and files

NameName
Last commit message
Last commit date

Latest commit

4576fb5 · Jan 11, 2021

History

54 Commits
Jan 11, 2021
Mar 21, 2020
Jan 11, 2021
Oct 17, 2019
Jan 11, 2021
Jan 7, 2021
Nov 13, 2019
Mar 21, 2020
Nov 6, 2020
Jan 11, 2021
Oct 17, 2019
Oct 17, 2019
Apr 9, 2020
Jan 11, 2021
Jan 7, 2021
Jan 7, 2021
Oct 17, 2019

Repository files navigation

taitratools

Taitra Tools package gather all useful helper functions.

Most function in taitratools are prefix with tt_.

You can list all source path with tt_ls() funciton, read data with tt_read_table() or tt_read_mof()

# install.packages("devtools")
devtools::install_github("chinhungtseng/taitratools")

Example

Get data source path

Read data

  • Get source path with tt_get_path(PATH NAME)
  • Read file with tt_read_table
path <- tt_get_path("PATH_AREA")
path

area_tbl <- tt_read_table(path)
head(area_tbl)
  • read mof data
    • tt_vroom_mof()
    • tt_read_mof()

This is a basic example which shows you how to read data from MOF, if you want to read data with past year, you can set period = N

# Default is `export` and `usd`
mof_data <- tt_vroom_mof("2019-01", "2019-02", period = 1, direct = "export", money = "usd", dep_month_cols = TRUE)
head(mof_data)

Data Transform

Industry data transforming

  • tt_bind_industry()
  • tt_industry_grouped_sum()
# industry_type => "all_industry", "industry21", "version1", "version2"
mof_data %>% 
  tt_bind_industry(sub = 8, col_more = TRUE, industry_type = "industry21", verbose = FALSE) %>% 
  head(5)
mof_industry_data <- mof_data %>% 
  tt_industry_grouped_sum(industry_type = "industry21", sub = 6, verbose = FALSE)

str(mof_industry_data)
head(mof_industry_data$data, 5)

Area data transforming

  • tt_bind_area()
  • tt_append_global()
  • tt_append_area()

Adding a area column

mof_industry_data$data %>% tt_bind_area() %>% head(5)

Append area data

mof_industry_data$data %>% tt_append_area() %>% head(5)

Append only world data

mof_industry_data$data %>% tt_append_global() %>% head(5)

Others

  • tt_grouped_sum()
  • tt_df_sub_hscode()

grouped data and sum the value

mof_data %>% tt_grouped_sum(country, year, by = "value") %>% head(5)
mof_data %>% tt_grouped_sum(year, month, by = "count") %>% head(5)
mof_data %>%
  tt_bind_industry(industry_type = "industry21", verbose = FALSE) %>% 
  tt_grouped_sum(industry, country, year, by = "weight") %>% head(5)

About

taitratools

Resources

License

Unknown, MIT licenses found

Licenses found

Unknown
LICENSE
MIT
LICENSE.md

Stars

Watchers

Forks

Packages

No packages published

Languages