HW1_0318

library(readr)

## Warning: package 'readr' was built under R version 3.5.3

tw50_2017 = read_csv("2017Q4_code.csv", locale = locale(encoding= 'big5'))

## Parsed with column specification:
## cols(
##   code = col_double(),
##   name = col_character(),
##   share1 = col_character(),
##   industry = col_character(),
##   share2 = col_character()
## )

head(tw50_2017)

## # A tibble: 6 x 5
##    code name     share1 industry share2
##   <dbl> <chr>    <chr>  <chr>    <chr> 
## 1  1101 台泥     0.79%  水泥工業 1.19% 
## 2  1102 亞泥     0.40%  水泥工業 1.19% 
## 3  1216 統一     1.92%  食品工業 1.92% 
## 4  1301 台塑     2.92%  塑膠工業 7.73% 
## 5  1303 南亞塑膠 2.67%  塑膠工業 7.73% 
## 6  1326 台化     2.14%  塑膠工業 7.73%

tw50_2017_tej = read_csv("tw50.csv",locale = locale(encoding= 'big5'))

## Warning: Missing column names filled in: 'X1' [1]

## Parsed with column specification:
## cols(
##   .default = col_character()
## )

## See spec(...) for full column specifications.

head(tw50_2017_tej)

## # A tibble: 6 x 49
##   X1    `1101 台泥` `1102 亞泥` `1216 統一` `1301 台塑` `1303 南亞`
##   <chr> <chr>       <chr>       <chr>       <chr>       <chr>      
## 1 年月日~ 收盤價(元)  收盤價(元)  收盤價(元)  收盤價(元)  收盤價(元) 
## 2 2016~ 21.21       23.82       46.88       62.4        48.33      
## 3 2016~ 21.41       23.59       47.06       62.83       48.41      
## 4 2016~ 21.13       23.54       47.06       62.92       48.41      
## 5 2016~ 22.18       23.73       46.8        62.92       48.5       
## 6 2016~ 21.9        23.59       46.1        61.54       47.91      
## # ... with 43 more variables: `1326 台化` <chr>, `1402 遠東新` <chr>,
## #   `2002 中鋼` <chr>, `2105 正新` <chr>, `2207 和泰車` <chr>, `2301
## #   光寶科` <chr>, `2303 聯電` <chr>, `2308 台達電` <chr>, `2317
## #   鴻海` <chr>, `2324 仁寶` <chr>, `2330 台積電` <chr>, `2354
## #   鴻準` <chr>, `2357 華碩` <chr>, `2382 廣達` <chr>, `2395 研華` <chr>,
## #   `2408 南亞科` <chr>, `2409 友達` <chr>, `2412 中華電` <chr>, `2454
## #   聯發科` <chr>, `2474 可成` <chr>, `2633 台灣高鐵` <chr>, `2801
## #   彰銀` <chr>, `2823 中壽` <chr>, `2880 華南金` <chr>, `2881
## #   富邦金` <chr>, `2882 國泰金` <chr>, `2883 開發金` <chr>, `2884
## #   玉山金` <chr>, `2885 元大金` <chr>, `2886 兆豐金` <chr>, `2887
## #   台新金` <chr>, `2890 永豐金` <chr>, `2891 中信金` <chr>, `2892
## #   第一金` <chr>, `2912 統一超` <chr>, `3008 大立光` <chr>, `3045
## #   台灣大` <chr>, `3481 群創` <chr>, `4904 遠傳` <chr>, `4938
## #   和碩` <chr>, `5880 合庫金` <chr>, `6505 台塑化` <chr>, `9904
## #   寶成` <chr>

台灣50(0050) 107年Q4成分股名單

library(readr) 執行才可跑程式

用read_csv將成分股名單及代碼(CSV檔)讀進去

head(tw50_2017) - 讀取前面tw50_2017的幾筆資料(預設為6筆資料)

將TEJ下載107年Q4過去2年除權調整後日收盤價的台灣50(0050)成分股名單(CSV檔)讀進去