https://zhidao.baidu.com/question/1495823064595097579.html
x <- "2012/9/1 0:10"
#轉(zhuǎn)化為時(shí)間日期型
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) #先完整時(shí)間 年月日 小時(shí)分鐘秒
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)
