write.csv(fuck,"fuck.csv")
####fix date in excel
refined <- read.xlsx(xlsxFile = "fuck_refined_in_Excel.xlsx", skipEmptyRows = FALSE,detectDates = TRUE)
z <- read.zoo(refined, FUN = as.yearmon)#make sure date in data frame is ok in zoo
write.csv(fuck,"fuck.csv")
####fix date in excel
refined <- read.xlsx(xlsxFile = "fuck_refined_in_Excel.xlsx", skipEmptyRows = FALSE,detectDates = TRUE)
z <- read.zoo(refined, FUN = as.yearmon)#make sure date in data frame is ok in zoo
转载于:https://my.oschina.net/u/3044869/blog/817511