在r中如何将数值数据7.00和19.48转换为7:00和19:48:00?
例:
a<- 1.05
numeric_time <- as.numeric(a);
a<-paste(floor(numeric_time),round((numeric_time-floor(numeric_time))*100), sep=":")当我执行
A "1:5“但我需要1:05
发布于 2015-09-21 08:52:55
我们可以将strptime与format结合使用
v2 <- format(strptime(format(v1, nsmall=2), format='%H.%M'), '%H:%M:%S')
v2
#[1] "07:00:00" "19:48:00"如果不需要前导零,请使用sub匹配字符串开头的'0‘(^),并将其替换为''。
sub('^0', '', v2)
#[1] "7:00:00" "19:48:00"或者另一个选择是sprintf和gsub。我们用sprintf更改格式,并将.替换为: (类似于@CathG的注释)
gsub('[.]', ':', sprintf('%0.2f.00', v1))
#[1] "7:00:00" "19:48:00"数据
v1 <- c(7, 19.48)https://stackoverflow.com/questions/32690924
复制相似问题