0

我正在尝试解决一个一开始看起来很简单但我发现自己陷入困境的问题。所以,我有一个名为“out”的角色对象:

out<-c( " 59mn 59s", " 59mn 59s", " 1h 0mn",  " 1h 0mn",  " 1h 0mn",  " 1h 0mn",  " 1h 0mn", " 1h 0mn",   " 59mn 59s"," 59mn 59s", " 46mn 42s")

我的最终目标是使用包 lubridate 中的函数“hms”将角色转换为时间对象。问题是数据集不一致,在某些情况下我有几小时和几分钟,而我有几分钟和几秒钟。所以我尝试像这样统一数据集:

    out<-for(p in 1:length(out)) {                                         
 ifelse(!grepl("h",out[p]),paste("0h",out[p]),ifelse(!grepl("mn",out[p]),paste("0h 0mn",out[p]),ifelse(!grepl("s",out[p]),paste(out[p],"0s"))))                                                
                           } 

ifelse 语句本身可以正常工作,但是在 for 循环中它只返回 NULL。有谁知道这段代码出了什么问题?另一种选择是结合 lubridate 中的“hm”和“hms”功能,但我的技能不允许我走这条路。

非常感谢

4

2 回答 2

2

由于ifelse是矢量化的,因此您可以在不使用循环的情况下执行此操作:

ifelse(!grepl("h",out), paste("0h",out),
       ifelse(!grepl("mn",out), paste("0h 0mn",out),
              ifelse(!grepl("s",out), paste(out,"0s"), NA)))

#[1] "0h  59mn 59s" "0h  59mn 59s" " 1h 0mn 0s"   " 1h 0mn 0s"   " 1h 0mn 0s"   " 1h 0mn 0s"   " 1h 0mn 0s"  
#[8] " 1h 0mn 0s"   "0h  59mn 59s" "0h  59mn 59s" "0h  46mn 42s"

那是你所期望的吗?

(请注意,我添加了一个NAincase all other conditions are not TRUE 并out[p]在内部替换为ifelseonly out。)

于 2014-07-30T13:22:16.083 回答
2

使用一些更安全的正则表达式。

t<-c( " 59mn 59s", " 59mn 59s", " 1h 0mn",  " 1h 0mn",  " 1h 0mn",  " 1h 0mn",  " 1h 0mn", " 1h 0mn",   " 59mn 59s"," 59mn 59s", " 46mn 42s")
t[grep(" [0-9]{2}mn", t)] = paste( "0h", t[grep(" [0-9]{2}mn", t)], sep="")
t[grep("mn$", t)] = paste(t[grep("mn$", t)], " 0s", sep ="")

hms(t)
> [1] "59M 59S"  "59M 59S"  "1H 0M 0S" "1H 0M 0S" "1H 0M 0S" "1H 0M 0S" "1H 0M 0S"
> [8] "1H 0M 0S" "59M 59S"  "59M 59S"  "46M 42S" 
于 2014-07-30T13:32:15.683 回答