https://github.com/mrchypark/tqk

한국 주식 데이터를 위한 R 패키지
https://github.com/mrchypark/tqk

hacktoberfest hacktoberfest2021 korea-stock quant r rstats stock tidyquant tidyverse

Last synced: 10 months ago
JSON representation

한국 주식 데이터를 위한 R 패키지

Host: GitHub
URL: https://github.com/mrchypark/tqk
Owner: mrchypark
License: other
Created: 2017-09-02T07:37:09.000Z (over 8 years ago)
Default Branch: main
Last Pushed: 2023-08-29T17:49:53.000Z (over 2 years ago)
Last Synced: 2024-04-14T07:11:05.242Z (almost 2 years ago)
Topics: hacktoberfest, hacktoberfest2021, korea-stock, quant, r, rstats, stock, tidyquant, tidyverse
Language: R
Homepage: https://mrchypark.github.io/tqk/
Size: 9.48 MB
Stars: 60
Watchers: 7
Forks: 28
Open Issues: 2
Metadata Files:
- Readme: README.md
- Funding: .github/FUNDING.yml
- License: LICENSE

Awesome Lists containing this project

README

# tqk [](https://mrchypark.github.io/tqk/index.html)

[![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
[![Codecov test coverage](https://codecov.io/gh/mrchypark/tqk/branch/main/graph/badge.svg)](https://app.codecov.io/gh/mrchypark/tqk?branch=main)
[![R-CMD-check](https://github.com/mrchypark/tqk/actions/workflows/check-standard.yaml/badge.svg)](https://github.com/mrchypark/tqk/actions/workflows/check-standard.yaml)
[![CRAN status](https://www.r-pkg.org/badges/version/tqk)](https://CRAN.R-project.org/package=tqk)
[![runiverse-package](https://mrchypark.r-universe.dev/badges/tqk)](https://mrchypark.r-universe.dev/tqk)
[![All Contributors](https://img.shields.io/badge/all_contributors-2-orange.svg?style=flat-square)](#contributors)

## Installation

``` r
# CRAN version
install.packages("tqk")

# Dev version
install.packages('tqk', repos = c(
'https://mrchypark.r-universe.dev',
'https://cloud.r-project.org'
))
```

## How to use

### Stock code

`code_get()` function provide stock code.

``` r
code_get()
```

## # A tibble: 2,641 × 6
## market name code name_full name_eng code_full
##
## 1 KOSDAQ 마이크로컨텍솔 098120 (주)마이크로컨텍솔루션 Micro Contact … KR709812…
## 2 KOSDAQ 스카이이앤엠 131100 (주)스카이이앤엠 SKY E&M Co., L… KR713110…
## 3 KOSDAQ 포스코엠텍 009520 (주)포스코엠텍 POSCO M-TECH C… KR700952…
## 4 KOSPI AJ네트웍스 095570 AJ네트웍스보통주 AJ Networks Co… KR709557…
## 5 KOSPI AK홀딩스 006840 AK홀딩스보통주 AK Holdings, I… KR700684…
## 6 KOSPI BGF리테일 282330 BGF리테일보통주 BGF Retail KR728233…
## 7 KOSPI BGF 027410 BGF보통주 BGF KR702741…
## 8 KOSPI BNK금융지주 138930 BNK금융지주보통주 BNK Financial … KR713893…
## 9 KOSPI BYC우 001465 BYC1우선주 BYC(1P) KR700146…
## 10 KOSPI BYC 001460 BYC보통주 BYC KR700146…
## # ℹ 2,631 more rows

If want to get current version of stock code, add `fresh = TRUE`.

``` r
code_get(fresh = TRUE)
```

## # A tibble: 2,746 × 6
## market name code name_full name_eng code_full
##
## 1 KOSDAQ 마이크로컨텍솔 098120 (주)마이크로컨텍솔루션 Micro Contact … KR709812…
## 2 KOSDAQ 포스코엠텍 009520 (주)포스코엠텍 POSCO M-TECH C… KR700952…
## 3 KOSPI AJ네트웍스 095570 AJ네트웍스보통주 AJ Networks Co… KR709557…
## 4 KOSPI AK홀딩스 006840 AK홀딩스보통주 AK Holdings, I… KR700684…
## 5 KOSPI BGF리테일 282330 BGF리테일보통주 BGF Retail KR728233…
## 6 KOSPI BGF 027410 BGF보통주 BGF KR702741…
## 7 KOSPI BNK금융지주 138930 BNK금융지주보통주 BNK Financial … KR713893…
## 8 KOSPI BYC우 001465 BYC1우선주 BYC(1P) KR700146…
## 9 KOSPI BYC 001460 BYC보통주 BYC KR700146…
## 10 KOSPI CJ우 001045 CJ1우선주 CJ(1P) KR700104…
## # ℹ 2,736 more rows

### Stock data

`tqk_get()` function provide stock data. First parameter named `x` is
korean stock code like “005930” is samsung. Result of `code_get()`
function has `code` column for `x` parameter on `tqk_get()` function.

``` r
code_get() %>%
dplyr::filter("삼성전자" == name) %>%
dplyr::pull(code) %>%
tqk_get(from = "2018-05-01") -> ss
ss
```

## # A tibble: 1,314 × 6
## date open high low close volume
##
## 1 2023-08-29 66900 67200 66600 66800 9102086
## 2 2023-08-28 66800 67000 66500 66800 5824628
## 3 2023-08-25 67100 67400 66900 67100 7032462
## 4 2023-08-24 68300 68700 67900 68200 15044463
## 5 2023-08-23 66700 67100 66400 67100 9549352
## 6 2023-08-22 67200 67700 66300 66600 10500242
## 7 2023-08-21 66600 67100 66300 66600 9720067
## 8 2023-08-18 66000 66700 65800 66300 11745006
## 9 2023-08-17 66300 66800 66000 66700 10778652
## 10 2023-08-16 66700 67100 66300 67000 13174578
## # ℹ 1,304 more rows

## Built-in dataset

`{tqk}` has built-in dataset called `SHANK` that is data to `2017-09-07`
with Samsung Elect, Hyundai Motor, Amore pacific, Naver, Kakao.

``` r
SHANK %>%
dplyr::distinct(symbol)
```

## # A tibble: 5 × 1
## symbol
##
## 1 SS
## 2 HYD
## 3 AMP
## 4 NVR
## 5 KKO

``` r
SHANK
```

## # A tibble: 22,259 × 7
## symbol date open high low close volume
##
## 1 SS 2017-09-07 2350000 2411000 2350000 2406000 193530
## 2 SS 2017-09-06 2338000 2359000 2335000 2350000 216221
## 3 SS 2017-09-05 2312000 2345000 2298000 2338000 234322
## 4 SS 2017-09-04 2289000 2318000 2275000 2302000 158870
## 5 SS 2017-09-01 2323000 2332000 2315000 2324000 212834
## 6 SS 2017-08-31 2311000 2332000 2300000 2316000 220234
## 7 SS 2017-08-30 2319000 2320000 2298000 2310000 150260
## 8 SS 2017-08-29 2282000 2304000 2258000 2304000 252473
## 9 SS 2017-08-28 2351000 2362000 2298000 2305000 199242
## 10 SS 2017-08-25 2394000 2394000 2336000 2351000 224871
## # ℹ 22,249 more rows

## Contributors ✨

Thanks goes to these wonderful people ([emoji key](https://allcontributors.org/docs/en/emoji-key)):

_{SungChul Hong}
💬

_gbkim01
🐛