※ 引述《swilly0906 (史威利哥哥)》之铭言：
: [问题类型]:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: [软件熟悉度]:
: 新手(没写过程式，R 是我的第一次)
: [问题叙述]:
: 我有一个工作的raw data
: 其中有一个column是时间(小时:分钟:秒)
: 现在我想把时间全部变成以分钟表示
: 且超过(含)30秒以上,强制进位一分钟
: [程式范例]:
: library(chron)
: test <- c("01:11:28", "01:01:30", "02:32:31","00:30:42")
: timestest <- times(test)
: 60 * hours(timestest) + minutes(timestest) + round(seconds(timestest)/60)
: #这个ouput输出的vector,就是我要的样式,结果我突然发现round(0.5)竟然不会进位成1
: #所以我只好写循环了(但我是新手,以前根本没碰过循环就是了...)
round1 <- function(x){
a <- vector("integer", length(x))
for(i in seq_along(x)) {
if(x[i] < 0.5){
a[i] <- floor(x[i])
} else if(x[i] >= 0.5 & x[i] <= 1){
a[i] <- ceiling(x[i])
}
}
return(a)
}
# 我不熟chron这个套件，但是用data.table应该是差不多意思
library(data.table)
times <- c("01:11:28", "01:01:30", "02:32:31","00:30:42")
timestest <- as.ITime(times)
60 * hour(timestest) + minute(timestest) + round1(second(timestest)/60)
# [1] 71 62 153 31
: round1 <- function(x){
: for(i in 1:length(x)){
: if(x[i]<0.5){
: a <- floor(x[i])
: }
: else if(x[i]>=0.5 & x[i]<=1){
: a<- ceiling(x[i])
: }
: else{
: a <- 1
: }
: print(a)
: }
: }
: 60 * hours(timestest) + minutes(timestest) + round1(seconds(timestest)/60)
: 结果发现output出现错误(应该说不是我要的output)
: 我直接问了,这边到底要怎么改才对??????????????
: