RでUNIXTIMEに変換

R

例１ そのままの場合

as.numeric(as.POSIXlt("2007-07-03 13:32:06 JST"))

例2
日付が2007.07.03だったら？

hidu<-paste(unlist(strsplit("2007.07.03","\\.")),collapse="-")
as.numeric(as.POSIXlt(paste(sep="",hidu," 13:32:06 JST"))

例３　ベクトルを一括返還

#data1<-c("2005.3.4","2005.5.7","2003.2.1")
#data2<-c("13:32","13:52","13:62")

hidulist1<-unique(data1)
hidulist123_c<-0
for(i in 1:length(hidulist1)){
	hidulist123_c[hidulist1[i]]<-paste(unlist(strsplit(paste(hidulist1[i]),"\\.")),collapse="-")
}

hidu1<-hidulist123_c[data1]
hidu2<-paste(sep="",data2,":00 JST")
hidu<-paste(sep=" ",hidu1,hidu2)
hidu_time<-as.numeric(as.POSIXlt(hidu))

補足：60秒ごとのデータの穴をNAでうめる．

data<-c(60,120,180,240,360,420)
data2<-c(42,42,52,63,23,32)
ti<-seq(min(data),max(data),60)
tmp<-0
tmp[paste(data_y)]<-data
data<-tmp[paste(ti)]
data<-ti