tw50 homework3

台灣50 107年Q4成分股名單。

library(readr)
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%

股票代碼2311及2325在TEJ、Yahoo找不到。

台灣50 107年Q4 除息調整收盤價。

library(readr)
tw50<-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.

tw50<-na.omit(tw50)
head(tw50)

## # A tibble: 6 x 49
##   X1    `1101 台泥` `1102 亞泥` `1216 統一` `1301 台塑` `1303 南亞`
##   <chr> <chr>       <chr>       <chr>       <chr>       <chr>      
## 1 年月日~ 收盤價(元)  收盤價(元)  收盤價(元)  收盤價(元)  收盤價(元) 
## 2 2016~ 31.67       26.22       53.19       76.59       57.94      
## 3 2016~ 31.88       26.32       53.82       77.23       58.11      
## 4 2016~ 31.92       25.94       54.81       77.04       58.29      
## 5 2016~ 31.5        25.89       54.54       76.68       57.58      
## 6 2016~ 30.57       25.61       54.45       76.32       57.23      
## # ... 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>