时间序列

https://zhidao.baidu.com/question/1495823064595097579.html

x <- "2012/9/1 0:10"
#转化为时间日期型
x <- as.POSIXct(x)
x
#以下用format控制格式
d1 <- format(x,"%Y-%m-%d")
d1
t1 <- format(x,"%H:%M")
t1
t2 <- format(x,"%H:%M:%S")
t2
year <- format(x,"%Y")
year
d2 <- format(x,"%m月%d日")
d2

data1 <- read.csv("C:/Users/maojh/Documents/city/jmdata3.csv",stringsAsFactors=F)

options(scipen = 20)
data0[1,1]

data=cbind(data0[,1],data1[,2:8])
names(data[,1]) <- c("id")
names(data)
# x <- as.POSIXct(data$var7_t[1])
# x
# #以下用format控制格式
# d1 <- format(x,"%Y-%m-%d")
# d1
# t1 <- format(x,"%H:%M")
# t1



timeformat<-function(x){  
  if (x!=''){
    d1 <- as.POSIXct(x)   #先完整时间 年月日 小时分钟秒
    t1 <- format(d1,"%H:%M")
    t1
  }
}  
data$var7_t2 <- sapply(data$var7_t,timeformat) 
data$var8_t2 <- sapply(data$var8_t,timeformat) 

timeformat2<-function(x){  
  if (x!=''){
    d1 <- as.POSIXct(x)
    t1 <- format(d1,"%H")
    t1
  }
} 
data$var7_t3 <- sapply(data$var7_t,timeformat2)