library(readr)
tw50_2018<-read_csv("2018Q4_code.csv",na="null")
## Warning: Missing column names filled in: 'X1' [1]
## Parsed with column specification:
## cols(
## .default = col_character()
## )
## See spec(...) for full column specifications.
head(tw50_2018)
## # A tibble: 6 x 738
## X1 `2016/1/4` `2016/1/5` `2016/1/6` `2016/1/7` `2016/1/8` `2016/1/11`
## <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 證券代碼~ 收盤價(元) 收盤價(元) 收盤價(元) 收盤價(元) 收盤價(元) 收盤價(元)
## 2 1101~ 21.21 21.41 21.13 22.18 21.9 21.09
## 3 1102~ 23.82 23.59 23.54 23.73 23.59 23.32
## 4 1216~ 46.88 47.06 47.06 46.8 46.1 45.14
## 5 1301~ 62.4 62.83 62.92 62.92 61.54 61.8
## 6 1303~ 48.33 48.41 48.41 48.5 47.91 47.91
## # ... with 731 more variables: `2016/1/12` <chr>, `2016/1/13` <chr>,
## # `2016/1/14` <chr>, `2016/1/15` <chr>, `2016/1/18` <chr>,
## # `2016/1/19` <chr>, `2016/1/20` <chr>, `2016/1/21` <chr>,
## # `2016/1/22` <chr>, `2016/1/25` <chr>, `2016/1/26` <chr>,
## # `2016/1/27` <chr>, `2016/1/28` <chr>, `2016/1/29` <chr>,
## # `2016/1/30` <chr>, `2016/2/1` <chr>, `2016/2/2` <chr>,
## # `2016/2/3` <chr>, `2016/2/15` <chr>, `2016/2/16` <chr>,
## # `2016/2/17` <chr>, `2016/2/18` <chr>, `2016/2/19` <chr>,
## # `2016/2/22` <chr>, `2016/2/23` <chr>, `2016/2/24` <chr>,
## # `2016/2/25` <chr>, `2016/2/26` <chr>, `2016/3/1` <chr>,
## # `2016/3/2` <chr>, `2016/3/3` <chr>, `2016/3/4` <chr>,
## # `2016/3/7` <chr>, `2016/3/8` <chr>, `2016/3/9` <chr>,
## # `2016/3/10` <chr>, `2016/3/11` <chr>, `2016/3/14` <chr>,
## # `2016/3/15` <chr>, `2016/3/16` <chr>, `2016/3/17` <chr>,
## # `2016/3/18` <chr>, `2016/3/21` <chr>, `2016/3/22` <chr>,
## # `2016/3/23` <chr>, `2016/3/24` <chr>, `2016/3/25` <chr>,
## # `2016/3/28` <chr>, `2016/3/29` <chr>, `2016/3/30` <chr>,
## # `2016/3/31` <chr>, `2016/4/1` <chr>, `2016/4/6` <chr>,
## # `2016/4/7` <chr>, `2016/4/8` <chr>, `2016/4/11` <chr>,
## # `2016/4/12` <chr>, `2016/4/13` <chr>, `2016/4/14` <chr>,
## # `2016/4/15` <chr>, `2016/4/18` <chr>, `2016/4/19` <chr>,
## # `2016/4/20` <chr>, `2016/4/21` <chr>, `2016/4/22` <chr>,
## # `2016/4/25` <chr>, `2016/4/26` <chr>, `2016/4/27` <chr>,
## # `2016/4/28` <chr>, `2016/4/29` <chr>, `2016/5/3` <chr>,
## # `2016/5/4` <chr>, `2016/5/5` <chr>, `2016/5/6` <chr>,
## # `2016/5/9` <chr>, `2016/5/10` <chr>, `2016/5/11` <chr>,
## # `2016/5/12` <chr>, `2016/5/13` <chr>, `2016/5/16` <chr>,
## # `2016/5/17` <chr>, `2016/5/18` <chr>, `2016/5/19` <chr>,
## # `2016/5/20` <chr>, `2016/5/23` <chr>, `2016/5/24` <chr>,
## # `2016/5/25` <chr>, `2016/5/26` <chr>, `2016/5/27` <chr>,
## # `2016/5/30` <chr>, `2016/5/31` <chr>, `2016/6/1` <chr>,
## # `2016/6/2` <chr>, `2016/6/3` <chr>, `2016/6/4` <chr>,
## # `2016/6/6` <chr>, `2016/6/7` <chr>, `2016/6/8` <chr>,
## # `2016/6/13` <chr>, `2016/6/14` <chr>, ...