0618

library(readr)
m.price <- read_tsv("tej_day_price_2017_2018.txt")

## Parsed with column specification:
## cols(
##   證券代碼 = col_double(),
##   簡稱 = col_character(),
##   `TSE 產業別` = col_character(),
##   上市別 = col_character(),
##   年月日 = col_double(),
##   `開盤價(元)` = col_double(),
##   `最高價(元)` = col_double(),
##   `收盤價(元)` = col_double(),
##   `最低價(元)` = col_double(),
##   `成交值(千元)` = col_double(),
##   `市值(百萬元)` = col_double(),
##   `成交量(千股)` = col_double()
## )

head(m.price)

## # A tibble: 6 x 12
##   證券代碼 簡稱  `TSE 產業別` 上市別 年月日 `開盤價(元)` `最高價(元)`
##      <dbl> <chr> <chr>        <chr>   <dbl>        <dbl>        <dbl>
## 1     1101 台泥  01           TSE    2.02e7        29.9         29.9 
## 2     1102 亞泥  01           TSE    2.02e7        24.9         25.0 
## 3     1103 嘉泥  01           TSE    2.02e7         8.27         8.27
## 4     1104 環泥  01           TSE    2.02e7        21.4         21.5 
## 5     1108 幸福  01           TSE    2.02e7         8.56         8.57
## 6     1109 信大  01           TSE    2.02e7        10.1         10.1 
## # … with 5 more variables: `收盤價(元)` <dbl>, `最低價(元)` <dbl>,
## #   `成交值(千元)` <dbl>, `市值(百萬元)` <dbl>, `成交量(千股)` <dbl>