删除所有小于指定值的时间答案

【问题标题】：Delete all times less than a specified value删除所有小于指定值的时间
【发布时间】：2017-09-22 08:29:35
【问题描述】：

这可能是一个简单的问题，但是我是 R 新手，找不到答案（或者谷歌搜索错误）。我目前正在开展一个项目，该项目涉及删除所有少于 5 分钟的时间值。数据示例如下，使用“lubridate”包创建的时间。

Time
19S
1M 24S
7M 53S
11M 6S
.
.
.

现在我想删除所有少于 5 分钟的值。因此我希望得到的最终数据集是：

Time
7M 53S
11M 6S
.
.
.

任何帮助都会很棒！谢谢！

【问题讨论】：

标签： r if-statement time lubridate

【解决方案1】：

你可以这样做：

df <- df[df$time > ms('5:00'), ]

结果：

> df
    time value
3 7M 53S     3
4 11M 6S     4

很奇怪，将其转换为 dplyr 代码；它不起作用：

filter(df, time > ms('5:00'))

结果：

   time
1   53S
2 1M 6S
Warning message:
In format.data.frame(x, digits = digits, na.encode = FALSE) :
  corrupt data frame: columns will be truncated or padded with NAs

我问了一个问题并找到了答案here。你得到了很好的解决方案：

df %>% 
  mutate(time = as.numeric(time)) %>% 
  filter(time > as.numeric(ms('5:00'))) %>% 
  mutate(time = ms(paste0(floor(time/60),':',round((time/60 - floor(time/60))*60))))

数据：

df <- data.frame(time = ms(c('0:19','1:24','7:53','11:6')), value = 1:4)

【讨论】：

我刚刚删除了我以前的 cmets，因为我发现我的方式有错误。你的代码很完美。谢谢！ :)

【解决方案2】：

试试这个..

> library(lubridate)
> TimeData <- data.frame(Time = c("0M 19S", "1M 24S", "7M 53S", "11M 6S"))
> TimeData$Time <- ms(TimeData$Time)
> subset(TimeData, Time > "5M 00S")
    Time
3 7M 53S
4 11M 6S

【讨论】：

这与我之前发布的方法基本相同。
感谢您的意见 :)