library(tidyquant) library(timetk)

rm(list=ls()) stock_day_2_year<-read_tsv(“data_wrangle_practice/tej_day_price_2017_2018.txt”)

price_day_2_year <- stock_day_2_year %>% rename(id = 證券代碼, name = 簡稱, date = 年月日, price = 收盤價(元), cap = 市值(百萬元) ) %>% mutate(id = as.character(id)) %>% mutate(date = as.Date(as.character(date), ‘%Y%m%d’)) %>% select(id, date, price) %>% spread(key = id, value = price)

dim(price_day_2_year)

price_day_2_year_na <- price_day_2_year %>% map_df(~sum(is.na(.))) %>% gather() %>% filter(value!=0)

price_day_2_year_na

price_day_2_year_clear <- price_day_2_year %>% na.locf(fromLast = TRUE, na.rm=FALSE) %>% select(-c(“2025”, “6131”)) dim(price_day_2_year_clear)