Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何创建一个以1分钟为间隔的28小时时钟表?_R_Time_Sequence_Hour_Minute - Fatal编程技术网

R 如何创建一个以1分钟为间隔的28小时时钟表?

R 如何创建一个以1分钟为间隔的28小时时钟表?,r,time,sequence,hour,minute,R,Time,Sequence,Hour,Minute,我不太熟悉使用循环。我正在尝试创建如下表: 00:00 00:01 00:02 ... 27:58 27:59 28:00 它适用于运行到第二天的数据,但仍被视为原始日期的一部分 我试过这个: hh<-c(seq('00','28',1)) mm<-c(seq('01','60',1)) for (i in (1:29)) { int<-paste(hh[i],":",mm) } View(int) hh您可以在outer的帮助下执行此操作: t

我不太熟悉使用循环。我正在尝试创建如下表: 00:00 00:01 00:02 ... 27:58 27:59 28:00

它适用于运行到第二天的数据,但仍被视为原始日期的一部分

我试过这个:

hh<-c(seq('00','28',1))  
mm<-c(seq('01','60',1))

for (i in (1:29)) {
  int<-paste(hh[i],":",mm)
}
View(int)

hh您可以在
outer
的帮助下执行此操作:

times <- c(t(outer(sprintf('%02d', 0:27),sprintf('%02d', 0:59),paste,sep = ":")))
#add the last time manually
times <- c(times, '28:00')

head(times, 8)  
#[1] "00:00" "00:01" "00:02" "00:03" "00:04" "00:05" "00:06" "00:07"
tail(times, 8)  
#[1] "27:53" "27:54" "27:55" "27:56" "27:57" "27:58" "27:59" "28:00"

时代这对我来说也很有效:

hh<-c(seq('00','28',1))
mm<-c(seq('00','59',1))

library(stringr)
hh<-str_pad(hh, 2,pad="0")
mm<-str_pad(mm, 2,pad="0")

times<-c(sapply(hh, paste, sep=":",mm))
View(times)

hh还将
gsub(“”,'0',times)
或类似的内容,因为对于数字,用前导零填充字段宽度。对于角色来说,这个零在某些平台上起作用,而在其他平台上则被忽略。
我似乎有所进展。我试过:``` int